Changeset 1728 for trunk/gui

Timestamp:

May 23, 2010, 6:58:09 PM (14 years ago)

Author:

mmc

Message:

Initial version of the "instant rappture" gui builder. To run this,
just say "irappture" or "irappture -tool path/to/tool.xml". It will
bring up an editor that lets you specify inputs/outputs and preview
the tool.

Made two fixes along the way to the scroller, so that it handles
automatic scrollbars better, and to the grab stack, so that it avoids
pushing the same window on the grab stack twice. Both of these fixes
solved problems in iRappture, and they'll probably fix strange behaviors
in the main rappture as well.

Location:

trunk/gui/scripts

Files:

• grab.tcl (modified) (1 diff)
• scroller.tcl (modified) (2 diffs)

trunk/gui/scripts/grab.tcl

@@ -65 +65 @@
         }
 
+        # if the window is already on the stack, then skip it
+        if {[string equal [lindex $::Rappture::grab::stack 0] $window]} {
+            return $window
+        }
+
         # add the current configuration to the grab stack
         set ::Rappture::grab::stack \

trunk/gui/scripts/scroller.tcl

@@ -147 +147 @@
             frame $_frame.f
             $_frame create window 0 0 -anchor nw -window $_frame.f -tags frame
+            bind $_frame.f <Map> \
+                [itcl::code $_dispatcher event -idle !fixframe-inner]
             bind $_frame.f <Configure> \
                 [itcl::code $_dispatcher event -idle !fixframe-inner]
@@ -302 +304 @@
     switch -- $which {
         inner {
-            $_frame configure -scrollregion [$_frame bbox all]
+            set w [winfo reqwidth $_frame.f]
+            set h [winfo reqheight $_frame.f]
+            $_frame configure -scrollregion [list 0 0 $w $h]
+            _lock reset x
+            _lock reset y
             $_dispatcher event -idle !fixsize
         }