diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 23:53:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 23:53:07 (GMT) |
| commit | ef7dfda7bb60e3f9b25c2a0f638893615b28918d (patch) | |
| tree | c5c9e75ea258d08ede7ef87fb3e8234e9b2492d7 | |
| parent | c60a15eceb458b403177e4272b6ee5e674f221a6 (diff) | |
| download | tk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.zip tk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.tar.gz tk-ef7dfda7bb60e3f9b25c2a0f638893615b28918d.tar.bz2 | |
Tinkering with the default demo widget height
| -rw-r--r-- | library/demos/widget | 10 |
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 |