From 579410edbae28cc350c353db289ba4cc6788d30a Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 8 Aug 2010 20:59:40 +0100 Subject: [PATCH] where-vessels: expand report area to fill space available --- yarrg/where-vessels | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yarrg/where-vessels b/yarrg/where-vessels index 78a2954..99929db 100755 --- 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 - 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 @@ -1411,7 +1411,7 @@ proc widgets-setup {} { #----- 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 { } @@ -1433,8 +1433,8 @@ proc widgets-setup {} { .cp.report.list .cp.report.abbrev1 -side top bind .cp.report.list <> show-report-abbrev1 - #pack .cp.report.code -side top 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 { } -- 2.30.2