Changeset 1907 for branches/blt4/gui/scripts

Timestamp:

Sep 10, 2010 8:10:36 AM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• panes.tcl (modified) (2 diffs)
• progress.tcl (modified) (3 diffs)

branches/blt4/gui/scripts/panes.tcl

@@ -325 +325 @@
                 lappend flist $f
                 if {[info exists itk_component($sash)]} {
-                    set h [expr {$h - [winfo height $itk_component($sash)]}]
+                    set h [expr {$h - [winfo reqheight $itk_component($sash)]}]
                 }
             } else {
@@ -373 +373 @@
                 lappend flist $f
                 if {[info exists itk_component($sash)]} {
-                    set w [expr {$w - [winfo width $itk_component($sash)]}]
+                    set w [expr {$w - [winfo reqwidth $itk_component($sash)]}]
                 }
             } else {

branches/blt4/gui/scripts/progress.tcl

@@ -56 +56 @@
 
     itk_component add message {
-        label $itk_interior.mesg -anchor w
+        label $itk_interior.mesg -anchor w -width 1
     }
 
@@ -120 +120 @@
     if {[string length $_message] > 0} {
         $itk_component(message) configure -text $_message
-        pack $itk_component(message) -anchor w
+        pack $itk_component(message) -fill x
     } else {
         pack forget $itk_component(message)
@@ -162 +162 @@
 itcl::configbody Rappture::Progress::length {
     set w [winfo pixels $itk_component(hull) $itk_option(-length)]
-    component hull configure -width $w
+    $itk_component(bar) configure -width $w
 }