PBMiner

$PBExportHeader$w_rapimain.srw
forward
global type w_rapimain from window
end type
type tab_main from u_tab_rapimain within w_rapimain
end type
type tab_main from u_tab_rapimain within w_rapimain
end type
type cb_cancel from commandbutton within w_rapimain
end type
end forward

global type w_rapimain from window
integer width = 2341
integer height = 1640
boolean titlebar = true
string title = "RAPI Demo"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
tab_main tab_main
cb_cancel cb_cancel
end type
global w_rapimain w_rapimain

on w_rapimain.create
this.tab_main=create tab_main
this.cb_cancel=create cb_cancel
this.Control[]={this.tab_main,&
this.cb_cancel}
end on

on w_rapimain.destroy
destroy(this.tab_main)
destroy(this.cb_cancel)
end on

type tab_main from u_tab_rapimain within w_rapimain
integer x = 37
integer y = 32
integer width = 2199
integer height = 1316
integer taborder = 10
end type

type cb_cancel from commandbutton within w_rapimain
integer x = 1902
integer y = 1376
integer width = 334
integer height = 100
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Cancel"
boolean cancel = true
end type

event clicked;Close(Parent)

end event