summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--library/demos/widget4
2 files changed, 5 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 662cf13..c65e1f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2007-12-05 Jeff Hobbs <jeffh@ActiveState.com>
+ * library/demos/widget: reduce start size to 70% of screenheight
+ from sh-200 for a more reasonable size.
+
* win/tkWinButton.c, win/tkWinDialog.c: use SetWindowLongPtr and
* win/tkWinScrlbr.c, win/tkWinWm.c: GetWindowLongPtr only.
* win/ttkWinMonitor.c:
diff --git a/library/demos/widget b/library/demos/widget
index e64b061..268c56c 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.29.2.7 2007/11/05 14:24:18 dgp Exp $
+# RCS: @(#) $Id: widget,v 1.29.2.8 2007/12/06 07:00:05 dgp 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]
}]
}