PBMiner

$PBExportHeader$w_tabwidth.srw
forward
global type w_tabwidth from window
end type
type em_width from editmask within w_tabwidth
end type
type st_1 from statictext within w_tabwidth
end type
type cb_ok from commandbutton within w_tabwidth
end type
type cb_cancel from commandbutton within w_tabwidth
end type
end forward

global type w_tabwidth from window
integer width = 923
integer height = 400
boolean titlebar = true
string title = "Set Tab Width"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
em_width em_width
st_1 st_1
cb_ok cb_ok
cb_cancel cb_cancel
end type
global w_tabwidth w_tabwidth

on w_tabwidth.create
this.em_width=create em_width
this.st_1=create st_1
this.cb_ok=create cb_ok
this.cb_cancel=create cb_cancel
this.Control[]={this.em_width,&
this.st_1,&
this.cb_ok,&
this.cb_cancel}
end on

on w_tabwidth.destroy
destroy(this.em_width)
destroy(this.st_1)
destroy(this.cb_ok)
destroy(this.cb_cancel)
end on

event open;em_width.text = gn_app.of_GetReg("TabWidth", "3")

end event

type em_width from editmask within w_tabwidth
integer x = 293
integer y = 32
integer width = 187
integer height = 80
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "1"
borderstyle borderstyle = stylelowered!
string mask = "#####"
end type

type st_1 from statictext within w_tabwidth
integer x = 37
integer y = 40
integer width = 251
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Tab Width:"
boolean focusrectangle = false
end type

type cb_ok from commandbutton within w_tabwidth
integer x = 37
integer y = 160
integer width = 334
integer height = 100
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "OK"
boolean default = true
end type

event clicked;CloseWithReturn(Parent, em_width.text)

end event

type cb_cancel from commandbutton within w_tabwidth
integer x = 512
integer y = 160
integer width = 334
integer height = 100
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Cancel"
boolean cancel = true
end type

event clicked;CloseWithReturn(Parent, "cancel")

end event