Changeset 440

Timestamp:

May 19, 2006, 8:13:59 AM (18 years ago)

Author:

mmc

Message:

Fixed a bug in the pop-up editor, which showed up whenever a window
was tall and skinny, as it was in nanoMOS 3.0. The editor was using
screenwidth instead of screenheight to adjust its position.

File:

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

trunk/gui/scripts/editor.tcl

@@ -283 +283 @@
     set h [expr {[font metrics $fnt -linespace]+4}]
     set h [expr {($h < $_loc(h)) ? $_loc(h) : $h}]
-    if {$h+$_loc(y) >= [winfo screenwidth $e]} {
-        set h [expr {[winfo screenwidth $e]-$_loc(y)}]
+    if {$h+$_loc(y) >= [winfo screenheight $e]} {
+        set h [expr {[winfo screenheight $e]-$_loc(y)}]
     }