home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / apr95 / bowl12.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  8.1 KB  |  371x442  |  4-bit (4 colors)
   ocr: 2STATEPB.FSL-demo togltxt pb::open method open(var eventinto Event) 5elt.Labellext = "Off" endmethod Edit Line: 5 Col: 10 2STATEPB.FSL:demo togltxt pb:pushButton method pushButton(uar eventinto Event) doDerault if 5elt.Labellext = "Off" then self.LabelText = "On" Execute "on" code message("Button is On.") else self.LabelText - "Off" - Execute "off" code messager"button is Off.") endif endmethod Edit Line: 1 Col: 1