chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: expand report area to fill space available
[ypp-sc-tools.db-test.git]
/
yarrg
/
where-vessels
diff --git
a/yarrg/where-vessels
b/yarrg/where-vessels
index 78a29543244ea91848c406051e12bd2d658196fc..99929dbfc4e6794209c89f1c0c334673b4072b40 100755
(executable)
--- a/
yarrg/where-vessels
+++ b/
yarrg/where-vessels
@@
-1341,7
+1341,7
@@
proc widgets-setup {} {
frame .smash -relief groove -bd 2 -padx 1
frame .filter -relief groove -bd 2 -padx 1
frame .islands -pady 2
frame .smash -relief groove -bd 2 -padx 1
frame .filter -relief groove -bd 2 -padx 1
frame .islands -pady 2
- pack .cp .filter .islands .smash -side top
+ pack .cp .filter .islands .smash -side top
-fill x
label .smash.title -text {Display/combine details}
grid .smash.title -row 0 -column 0 -columnspan 2
label .smash.title -text {Display/combine details}
grid .smash.title -row 0 -column 0 -columnspan 2
@@
-1411,7
+1411,7
@@
proc widgets-setup {} {
#----- decoding etc. report -----
frame .cp.report
#----- decoding etc. report -----
frame .cp.report
- pack .cp.report -side left -anchor n
+ pack .cp.report -side left -anchor n
-fill both -expand y
label .cp.report.island -text { }
label .cp.report.island -text { }
@@
-1433,8
+1433,8
@@
proc widgets-setup {} {
.cp.report.list .cp.report.abbrev1 -side top
bind .cp.report.list <<ListboxSelect>> show-report-abbrev1
.cp.report.list .cp.report.abbrev1 -side top
bind .cp.report.list <<ListboxSelect>> show-report-abbrev1
- #pack .cp.report.code -side top
pack configure .cp.report.details -fill x
pack configure .cp.report.details -fill x
+ pack configure .cp.report.list -fill x
foreach sw {inport size subclass lock own xabbrev} {
label .cp.report.details.$sw -text { }
foreach sw {inport size subclass lock own xabbrev} {
label .cp.report.details.$sw -text { }