home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / aug94 / srfig07b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  38.2 KB  |  581x288  |  8-bit (256 colors)
   ocr: - FLOAIHLPaCUstomer NotsetFocus* nethod setFocus(var eventinfo Event) var uifarget UIObject targetname String enduar eventinfo-getlarget(ullarget) targetname = ultarget.name if ShowrloatHelpstatus = "TRUE" then retval = ShowfloatHelp(uindowmandle(), "Helplext for field = * targetname, Smallint(FloatHelpPosition)) message("retual is : * string(retual)) endif endMethod Edit Line: 10 Col: 13