home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / apr95 / bowl13.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  9.8 KB  |  445x516  |  4-bit (4 colors)
   ocr: - 2STAIEPB.FSL-demo Zstate cb::action method action(var eventinto Actiontvent) var ida Smallint endvar ida = eventinfo.id0) switch case ida = UserAction: Execute "On" code nessager-eneckDOX is On.") case ida = Useraction*1: - Execute "Off" code nessage(-Checkbox is Off.") endSwitch endmetnod Edit Line: 14 Col: 1 2STATEPB.FSL-demo 2state cbanewvalue method newualue(uar eventinfo Event) doDefault if eventinfo.reasono <> editvalue then return endif if self = "On" then selr.postActiontion(Useraction) else self-.postaction(uSeraction*1) endif endmetnod Edit Line: 9 Col: 34