summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authorhobbs <hobbs>2007-12-05 22:29:50 (GMT)
committerhobbs <hobbs>2007-12-05 22:29:50 (GMT)
commit5b23006218f40c8fd2afba7d77454650bc348295 (patch)
tree009dd3098e13278aa9830d1aa23f3cb68dd7d104 /library/demos/widget
parent0d077f2a7cafa16f82ed232f0d14f2d99f0921e4 (diff)
downloadtk-5b23006218f40c8fd2afba7d77454650bc348295.zip
tk-5b23006218f40c8fd2afba7d77454650bc348295.tar.gz
tk-5b23006218f40c8fd2afba7d77454650bc348295.tar.bz2
* library/demos/widget: reduce start size to 70% of screenheight
from sh-200 for a more reasonable size.
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget4
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]
}]
}