Changeset 1394 for trunk/gui/scripts/balloon.tcl

Timestamp:

Apr 14, 2009, 1:48:57 PM (16 years ago)

Author:

gah

Message:

sequenceresult.tcl:

Playing a sequence continuously and then clicking "Clear" will generate an
infinite number of automatic error 'invalid command name ""' messages.

_fixValue Check for _topmost (top most data object) to be "".

Deletes the viewer.

delete Calls pause method to stop the player.

balloon.tcl:

Bandaid to fix 'bad geometry specifier "-44x184+864+247"' errors. This has to
do with the placement of the popup menu when clicking on axes in the xyresult
widget. Added a test if the width or height is negative and clip the geometry
to +x+y.

xyresult.tcl:

Graph issues 'can't find element "elem1"' error when attempting to
to deactivate an element that doesn't exist. The highlighted element name
is stored in the variable _hilite(elem). It goes out of sync with the graph.
Test for the existence of the element in the graph explicitly.

File:

• trunk/gui/scripts/balloon.tcl (modified) (1 diff)

trunk/gui/scripts/balloon.tcl

@@ -212 +212 @@
         shape set $s -bound photo $_masks($placement)
     }
-
-    wm geometry $p ${pw}x${ph}+$px+$py
+    if { $pw < 1 || $ph < 1 }  {
+        # I really don't know why this is happenning.  I believe this occurs
+        # when in a work space (i.e the main window is smaller than the root
+        # window). So for now, better to place the ballon window somewhere
+        # than to fail with a bad geometry.
+        wm geometry $p +$px+$py
+    } else {
+        wm geometry $p ${pw}x${ph}+$px+$py
+    }
     wm deiconify $p
     raise $p