summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/demos/widget10
1 files changed, 7 insertions, 3 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 6bcb0c6..5155875 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.45 2007/11/02 23:48:11 dkf Exp $
+# RCS: @(#) $Id: widget,v 1.46 2007/11/02 23:53:07 dkf Exp $
package require Tcl 8.5
package require Tk 8.5
@@ -145,8 +145,12 @@ if {[tk windowingsystem] ne "aqua"} {
pack .statusBar -side bottom -fill x -pady 2
set textheight 30
-catch {set textheight [expr {([winfo screenheight .] - 100) /
- [font metrics mainFont -displayof . -linespace]}]}
+catch {
+ set textheight [expr {
+ ([winfo screenheight .] - 200) /
+ [font metrics mainFont -displayof . -linespace]
+ }]
+}
ttk::frame .textFrame
scrollbar .s -orient vertical -command {.t yview} -takefocus 1