home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct94 / mp_fig06.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  7.6 KB  |  392x376  |  4-bit (5 colors)
   ocr: INSTMAINEHButton2Z-pushButton" method pushButton(uar eventinto Event) var uiField, uiList UlObject enduar ulfield.create(FieldTool,1000,1000,0,0) uifield'displayType = ListField ullist.attacn(ulfield'first) dilist'list.st.selection - 1 Jilist'list.value "Small" dilist'list.st.selection - 2 Jilist'list.value "Medium" dilist'list.st.selection - 3 Jilist'list.value "Large" uifield'displaylype RadioButtonField ulField'ulsible True endmethod Edit Line 1 Col1