PBMiner

$PBExportHeader$w_goto.srw
forward
global type w_goto from window
end type
type em_line from editmask within w_goto
end type
type st_1 from statictext within w_goto
end type
type cb_goto from commandbutton within w_goto
end type
type cb_cancel from commandbutton within w_goto
end type
end forward

global type w_goto from window
integer width = 923
integer height = 400
boolean titlebar = true
string title = "Go To Line"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
em_line em_line
st_1 st_1
cb_goto cb_goto
cb_cancel cb_cancel
end type
global w_goto w_goto

on w_goto.create
this.em_line=create em_line
this.st_1=create st_1
this.cb_goto=create cb_goto
this.cb_cancel=create cb_cancel
this.Control[]={this.em_line,&
this.st_1,&
this.cb_goto,&
this.cb_cancel}
end on

on w_goto.destroy
destroy(this.em_line)
destroy(this.st_1)
destroy(this.cb_goto)
destroy(this.cb_cancel)
end on

event open;Long ll_line

ll_line = Message.DoubleParm

em_line.Text = String(ll_line)

em_line.SelectText(1, Len(String(ll_line)))

end event

type em_line from editmask within w_goto
integer x = 183
integer y = 32
integer width = 261
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_goto
integer x = 37
integer y = 40
integer width = 128
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 = "Line:"
boolean focusrectangle = false
end type

type cb_goto from commandbutton within w_goto
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 = "Go To"
boolean default = true
end type

event clicked;CloseWithReturn(Parent, em_line.text)

end event

type cb_cancel from commandbutton within w_goto
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