Changeset 1861 for trunk/gui/scripts/progress.tcl

Timestamp:

Aug 14, 2010, 7:57:16 PM (14 years ago)

Author:

mmc

Message:

Fixed the bug report dialog to give the user the option of filing a
ticket, instead of filing something automatically right away. There's
now a button to "Show Details..." so the user can see what sort of
information is being included in the bug report.

Fixed the progress bar to honor the -length option and set its overall
size properly.

File:

• trunk/gui/scripts/progress.tcl (modified) (3 diffs)

trunk/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
 }