summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-11-02 23:53:07 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-11-02 23:53:07 (GMT)
commitef7dfda7bb60e3f9b25c2a0f638893615b28918d (patch)
treec5c9e75ea258d08ede7ef87fb3e8234e9b2492d7
parentc60a15eceb458b403177e4272b6ee5e674f221a6 (diff)
downloadtk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.zip
tk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.tar.gz
tk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.tar.bz2
Tinkering with the default demo widget height
-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