$PBExportHeader$w_main.srw forward global type w_main from window end type type cb_close from commandbutton within w_main end type type cb_open from commandbutton within w_main end type end forward global type w_main from window integer width = 3831 integer height = 2352 boolean titlebar = true string title = "Main Window" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true cb_close cb_close cb_open cb_open end type global w_main w_main on w_main.create this.cb_close=create cb_close this.cb_open=create cb_open this.Control[]={this.cb_close,& this.cb_open} end on on w_main.destroy destroy(this.cb_close) destroy(this.cb_open) end on type cb_close from commandbutton within w_main integer x = 110 integer y = 320 integer width = 517 integer height = 132 integer taborder = 20 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Close" boolean cancel = true end type event clicked;Close(Parent) end event type cb_open from commandbutton within w_main integer x = 110 integer y = 96 integer width = 517 integer height = 132 integer taborder = 10 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Open Response" end type event clicked;Open(w_response) end event
- Sources
- TopWiz
- resize_response
- PB8
- w_main.srw
File: w_main.srw
Size: 1629
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 1629
Date: Mon, 31 Dec 2018 21:14:39 +0100
- window w_main(srw)
- commandbutton cb_close
- commandbutton cb_open