Changeset 1865 for trunk/gui/scripts/panes.tcl
- Timestamp:
- Aug 20, 2010, 7:49:45 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/panes.tcl
r1373 r1865 325 325 lappend flist $f 326 326 if {[info exists itk_component($sash)]} { 327 set h [expr {$h - [winfo height $itk_component($sash)]}]327 set h [expr {$h - [winfo reqheight $itk_component($sash)]}] 328 328 } 329 329 } else { … … 373 373 lappend flist $f 374 374 if {[info exists itk_component($sash)]} { 375 set w [expr {$w - [winfo width $itk_component($sash)]}]375 set w [expr {$w - [winfo reqwidth $itk_component($sash)]}] 376 376 } 377 377 } else {
Note: See TracChangeset
for help on using the changeset viewer.