home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / apr94 / lc_fig05.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  6.3 KB  |  640x357  |  4-bit (5 colors)
   ocr: - FORMA.HForml.menuAction uses ObjectPAL HandleNenu(iChoice Smallint) endUses method menuaction(uar eventinfo Menutvent) var ild Smallint enduar if not eventInfo.isPreFilter0) then ild =l eventinfo.1d0) if ild > UserMenu and ild <= UserMenuMax then 11bUt11.HandleMenu(1ld) endif endif endMethod Edit Line: 2 Col: 14