chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: Better layout for parsing results toplevel
[ypp-sc-tools.web-live.git]
/
yarrg
/
where-vessels
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} {