diff options
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/widget b/library/demos/widget index 47d97d7..f3b9186 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -10,7 +10,7 @@ exec wish "$0" "$@" # separate ".tcl" files is this directory, which are sourced by this script as # needed. # -# RCS: @(#) $Id: widget,v 1.47 2007/11/04 10:38:09 das Exp $ +# RCS: @(#) $Id: widget,v 1.48 2007/12/05 22:29:50 hobbs Exp $ package require Tcl 8.5 package require Tk 8.5 @@ -142,7 +142,7 @@ pack .statusBar -side bottom -fill x -pady 2 set textheight 30 catch { set textheight [expr { - ([winfo screenheight .] - 200) / + ([winfo screenheight .] * 0.7) / [font metrics mainFont -displayof . -linespace] }] } |