Changeset 1258 for trunk/gui/scripts/editor.tcl

Timestamp:

Dec 10, 2008, 12:48:52 PM (16 years ago)

Author:

gah

Message:

removed debugging from pymolproxy, field object (dumping dx file)

File:

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

trunk/gui/scripts/editor.tcl

@@ -285 +285 @@
     if {$h+$_loc(y) >= [winfo screenheight $e]} {
         set h [expr {[winfo screenheight $e]-$_loc(y)}]
-    }
-
-    wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)"
+    }                                   
+    # Temporary fix to prevent Opps. Don't deal with negative dimensions.
+    if { $w <= 0 || $h <= 0 } {
+        wm geometry $itk_component(hull) "+$_loc(x)+$_loc(y)"
+    } else {
+        wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)"
+    }
 }