PBMiner

$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