home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct94 / mp_fig07.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  8.5 KB  |  377x429  |  4-bit (5 colors)
   ocr: INSTMAIN-HButton13-pushButton" method pusnbutton(uar eventinto Event) var uiField, uilist, uiButton, uiLabel UlObject enduar uifield.create(FieldTool,1000,1000,0,0) uifield'displaytype = ListField uilist.attach(uiField'first) uiList'list.st.selection - 1 JiList'list.value "No" dilist'list.st.selection - 2 JlL1st'11st.value - "Yes" uifield-displaylype CheckBoxField JiButton.attach(uifield'first) uiLabel.attach(uiButton 1 first) wiLabel'designsizing - TextsizeToFit UlLabeltext Checked? ulField'ulsible True endmethod Edit Line 14 Col: 28