Changeset 132 for trunk/gui/scripts/imageresult.tcl
- Timestamp:
- Nov 7, 2005, 10:58:27 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/imageresult.tcl
r126 r132 319 319 320 320 if {$_scale(max) == "?"} { 321 _zoom rescale 321 if {![_zoom rescale]} { 322 return 323 } 322 324 } 323 325 if {$_scale(current) == "?"} { … … 394 396 set w [winfo width $itk_component(image)] 395 397 set h [winfo height $itk_component(image)] 398 if {$w == 1 && $h == 1} { 399 return 0 400 } 396 401 397 402 set wfac [expr {$_max(w)/double($w)}] … … 399 404 set _scale(max) [expr {($wfac > $hfac) ? $wfac : $hfac}] 400 405 } 406 return 1 401 407 } 402 408 reset {
Note: See TracChangeset
for help on using the changeset viewer.