where-vessels: Better layout for parsing results toplevel

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index f9f6879e37f42760aef411a9b5efc283b0fb6e5c..b007a67b878ed873b4964f68554853b322110ed6 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -805,6 +805,7 @@ proc parser-control-create {w base invokebuttontext etl_title} {
     toplevel $eb
     wm withdraw $eb
     wm title $eb "where-vessels - $etl_title"
     toplevel $eb
     wm withdraw $eb
     wm title $eb "where-vessels - $etl_title"

+    wm protocol $eb WM_DELETE_WINDOW [list wm withdraw $eb]

 
     label $eb.title -text $etl_title
     pack $eb.title -side top
 
     label $eb.title -text $etl_title
     pack $eb.title -side top


@@ -813,17 +814,17 @@ proc parser-control-create {w base invokebuttontext etl_title} {
     pack $eb.close -side bottom
 
     frame $eb.emsg -bd 2 -relief groove
     pack $eb.close -side bottom
 
     frame $eb.emsg -bd 2 -relief groove

-    label $eb.emsg.lab -text "Error:"
+    label $eb.emsg.lab -anchor nw -text "Error:"

     text $eb.emsg.text -height 1
     text $eb.emsg.text -height 1

-    pack $eb.emsg.text -side bottom
+    pack $eb.emsg.text -side bottom -fill x

     pack $eb.emsg.lab -side left
 
     pack $eb.emsg.lab -side left
 

-    pack $eb.emsg -side top -pady 2
+    pack $eb.emsg -side top -pady 2 -fill x

 
     frame $eb.text -bd 2 -relief groove
 
     frame $eb.text -bd 2 -relief groove

-    pack $eb.text -side bottom -pady 2
+    pack $eb.text -side bottom -pady 2 -fill both -expand y

     
     

-    label $eb.text.lab
+    label $eb.text.lab -anchor nw

 
     text $eb.text.text -width 85 \
        -xscrollcommand [list $eb.text.xscroll set] \
 
     text $eb.text.text -width 85 \
        -xscrollcommand [list $eb.text.xscroll set] \


@@ -836,10 +837,15 @@ proc parser-control-create {w base invokebuttontext etl_title} {
     scrollbar $eb.text.yscroll -orient vertical \
        -command [list $eb.text.text yview]
 
     scrollbar $eb.text.yscroll -orient vertical \
        -command [list $eb.text.text yview]
 

-    grid configure $eb.text.lab -row 0 -column 0 -sticky w
-    grid configure $eb.text.text -row 1 -column 0
+    grid configure $eb.text.lab -row 0 -column 0 -sticky w -columnspan 2
+    grid configure $eb.text.text -row 1 -column 0 -sticky news

     grid configure $eb.text.yscroll -sticky ns -row 1 -column 1
     grid configure $eb.text.xscroll -sticky ew -row 2 -column 0
     grid configure $eb.text.yscroll -sticky ns -row 1 -column 1
     grid configure $eb.text.xscroll -sticky ew -row 2 -column 0

+    grid rowconfigure $eb.text 0 -weight 0
+    grid rowconfigure $eb.text 1 -weight 1
+    grid rowconfigure $eb.text 2 -weight 0
+    grid columnconfigure $eb.text 0 -weight 1
+    grid columnconfigure $eb.text 1 -weight 0

 }
 
 proc parser-control-ok-core {w base background show} {
 }
 
 proc parser-control-ok-core {w base background show} {