GoToNumber entry small change

2018-03-02 15:49:51 +03:00
parent ea76af25d6
commit 77ba144afd
6 changed files with 12 additions and 3 deletions
--- a/lib/baloon.tcl
+++ b/lib/baloon.tcl
@@ -79,3 +79,4 @@ proc raise_balloon {widget text} {
 } ;# proc raise_balloon


+
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -972,3 +972,4 @@ proc ReadFileStructure {mod line lineNumber tree node} {
 GetOp


+
--- a/lib/main.tcl
+++ b/lib/main.tcl
@@ -425,3 +425,4 @@ if {[info exists workingProject]} {



+
--- a/lib/toolbar.tcl
+++ b/lib/toolbar.tcl
@@ -68,7 +68,7 @@ proc GoToLineButton {w} {
    -bg $editor(bg) -fg $editor(fg)
    entry $w.entGoTo -width 6 -validate key -validatecommand "ValidNumber %W %P" \
    -bg $editor(bg) -fg $editor(fg)
-    pack $w.text $w.entGoTo -side left -anchor nw  -padx 2 -pady 2
+    pack $w.text $w.entGoTo -side left  -padx 2 -pady 2
    bind $w.entGoTo <Return> "+ToolBarGoToLineNumber $w"
    balloon $w.entGoTo set [::msgcat::mc "Goto line"]
 }
@@ -77,3 +77,4 @@ proc GoToLineButton {w} {



+
				`@@ -79,3 +79,4 @@ proc raise_balloon {widget text} {`
				`} ;# proc raise_balloon`
				`@@ -972,3 +972,4 @@ proc ReadFileStructure {mod line lineNumber tree node} {`
				`GetOp`