diff options
| author | treectrl <treectrl> | 2005-07-15 01:19:17 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-07-15 01:19:17 (GMT) |
| commit | bd255877dce037f9b7ea27ce06cec81e8b2fe871 (patch) | |
| tree | 688f3b3cd7b59d0f6bb12a8811aff0d67bebf26d /demos | |
| parent | c67865f2b73bb3b08006811a7b1bba39d7c6fdad (diff) | |
| download | tktreectrl-bd255877dce037f9b7ea27ce06cec81e8b2fe871.zip tktreectrl-bd255877dce037f9b7ea27ce06cec81e8b2fe871.tar.gz tktreectrl-bd255877dce037f9b7ea27ce06cec81e8b2fe871.tar.bz2 | |
Mark the first window created as free after getting its height.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/biglist.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/demos/biglist.tcl b/demos/biglist.tcl index 5dbcbbf..0a489ae 100644 --- a/demos/biglist.tcl +++ b/demos/biglist.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: biglist.tcl,v 1.3 2005/07/12 03:42:33 treectrl Exp $ +# RCS: @(#) $Id: biglist.tcl,v 1.4 2005/07/15 01:19:17 treectrl Exp $ proc DemoBigList {} { @@ -125,8 +125,10 @@ proc DemoBigList {} { set w [BigListNewWindow $T root] update idletasks set height [winfo reqheight $w] + # Add 1 pixel for the border incr height set BigList(windowHeight) $height + BigListFreeWindow $T $w bind DemoBigList <Double-ButtonPress-1> { if {[lindex [%W identify %x %y] 0] eq "header"} { |