home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct94 / mp_fig05.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  19.7 KB  |  801x600  |  4-bit (9 colors)
   ocr: Paradox for' Windows File Edit Language Debug Properties Window Help F INSTMAIN:mButtong:-placeCode* INSTMAIN:HButton9:Var* method placeCode(uar fm Form, t var const StUDJectname String, fmTarget Form const stMethodName String, uiTarget UIObject const stMethodText String) stMethod, stCode String fmTarget.attach(fm'title) enduar uiTarget.attattach(fm,StUbjectname) stMethod = stMethodName * stCode = - StMethodlext self.postaction(Useraction) Edit Line 6 Col7 endmethod * dit Line 1 Col1 INSTMAIN.mButton9:action* 4 method action(var eventinfo ActionEvent) + if eventinfo.1d0) = UserAction then nlar ...