From 5b23006218f40c8fd2afba7d77454650bc348295 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 5 Dec 2007 22:29:50 +0000
Subject: 	* library/demos/widget: reduce start size to 70% of
 screenheight 	from sh-200 for a more reasonable size.

---
 ChangeLog            | 3 +++
 library/demos/widget | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b749c28..b212986 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 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]
     }]
 }
-- 
cgit v0.12