Changeset 132 for trunk/gui/scripts

Timestamp:

Nov 7, 2005 10:58:27 PM (18 years ago)

Author:

mmc

Message:

Fixed a scaling bug that caused images to come up so tiny
that you couldn't see them at first.

File:

• trunk/gui/scripts/imageresult.tcl (modified) (3 diffs)

trunk/gui/scripts/imageresult.tcl

@@ -319 +319 @@
 
     if {$_scale(max) == "?"} {
-        _zoom rescale
+        if {![_zoom rescale]} {
+            return
+        }
     }
     if {$_scale(current) == "?"} {
@@ -394 +396 @@
                 set w [winfo width $itk_component(image)]
                 set h [winfo height $itk_component(image)]
+                if {$w == 1 && $h == 1} {
+                    return 0
+                }
 
                 set wfac [expr {$_max(w)/double($w)}]
@@ -399 +404 @@
                 set _scale(max) [expr {($wfac > $hfac) ? $wfac : $hfac}]
             }
+            return 1
         }
         reset {