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