2 # based on code from gitk, Copyright (C) Paul Mackerras
11 constructor new {i_w i_text args} {
17 ${NS}::label $w.l -text [mc "Goto Line:"]
18 entry $w.ent -textvariable ${__this}::linenum -background lightgreen
19 ${NS}::button $w.bn -text [mc Go] -command [cb _incrgoto]
22 pack $w.bn -side right
23 pack $w.ent -side left -expand 1 -fill x
25 eval grid conf $w -sticky we $args
28 bind $w.ent <Return> [cb _incrgoto]
29 bind $w.ent <Escape> [list linebar::hide $this]
31 bind $w <Destroy> [list delete_this $this]
36 if {![visible $this]} {
43 if {[visible $this]} {
50 return [winfo ismapped $w]