- Timestamp:
- Dec 10, 2008, 12:48:52 PM (16 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/editor.tcl
r440 r1258 285 285 if {$h+$_loc(y) >= [winfo screenheight $e]} { 286 286 set h [expr {[winfo screenheight $e]-$_loc(y)}] 287 } 288 289 wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)" 287 } 288 # Temporary fix to prevent Opps. Don't deal with negative dimensions. 289 if { $w <= 0 || $h <= 0 } { 290 wm geometry $itk_component(hull) "+$_loc(x)+$_loc(y)" 291 } else { 292 wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)" 293 } 290 294 } 291 295 -
trunk/gui/scripts/field.tcl
r1220 r1258 693 693 set _comp2style($cname) [$_field get $cname.style] 694 694 incr _counter 695 695 696 } elseif {$type == "opendx"} { 696 697 # … … 702 703 set data [$_field get -decode yes $cname.opendx] 703 704 set data [Rappture::encoding::decode -as zb64 $data] 704 705 global fcount706 if { ![info exists fcount] } {707 set fcount 0708 }709 incr fcount710 set f [open "opendx-$fcount.dx" "w"]711 puts $f $data712 close $f713 705 714 706 set data "<ODX>$data"
Note: See TracChangeset
for help on using the changeset viewer.