Changeset 168 for trunk/gui/scripts/scroller.tcl

Timestamp:

Feb 8, 2006, 5:18:56 PM (18 years ago)

Author:

mmc

Message:

• Fixed the license terms to comply with the official open source license from Purdue's OTC office.

• Fixed the scroller to handle scrollbars properly. They weren't always popping up when needed. Sometimes you had to scroll a little first. Better now.

• Fixed the DeviceEditor? to pack its internal widgets better, so images within a DeviceViewer1D structure can change size and will show up properly.

• Fixed the analyzer to take down the progress bar properly when there's an error during execution.

• Fixed the Rappture::exec command to initialize execctl properly, in case there's an error during execution.

File:

• trunk/gui/scripts/scroller.tcl (modified) (2 diffs)

trunk/gui/scripts/scroller.tcl

@@ -78 +78 @@
         scrollbar $itk_interior.ysbar -orient vertical
     }
+
+    # we don't fix scrollbars when window is withdrawn, so
+    # fix them whenever a window pops up
+    bind $itk_component(hull) <Map> "
+        [itcl::code $this _fixsbar x]
+        [itcl::code $this _fixsbar y]
+    "
 
     grid rowconfigure $itk_component(hull) 0 -weight 1
@@ -177 +184 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Scroller::_fixsbar {which {state ""}} {
+    if {![winfo ismapped $itk_component(hull)]} {
+        #
+        # If we're not on yet screen, bail out!  This keeps bad
+        # numbers (from an empty or partially constructed widget)
+        # from prematurely influencing the scrollbar.
+        #
+        return
+    }
+
     if {$state == ""} {
         switch -- [string tolower $itk_option(-${which}scrollmode)] {