summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authordas <das>2007-11-09 06:48:31 (GMT)
committerdas <das>2007-11-09 06:48:31 (GMT)
commit5430ce93eb851310a68173104ae0b25fbf2ca84e (patch)
tree5e992cec5594fcacfed2290fbfe4c8bdb7044c7b /library/demos/widget
parentb0e3f55fe56f3f1fa4ad3cf7c63dddcfff5a9846 (diff)
downloadtk-5430ce93eb851310a68173104ae0b25fbf2ca84e.zip
tk-5430ce93eb851310a68173104ae0b25fbf2ca84e.tar.gz
tk-5430ce93eb851310a68173104ae0b25fbf2ca84e.tar.bz2
Backport from HEAD of Aqua changes from 2007-10-12 to 2007-11-09
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget31
1 files changed, 18 insertions, 13 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 1e96c59..581aab6 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -11,7 +11,7 @@ exec wish "$0" "$@"
# ".tcl" files is this directory, which are sourced by this script
# as needed.
#
-# RCS: @(#) $Id: widget,v 1.9.2.2 2006/09/11 14:41:16 das Exp $
+# RCS: @(#) $Id: widget,v 1.9.2.3 2007/11/09 06:48:32 das Exp $
eval destroy [winfo child .]
wm title . "Widget Demonstration"
@@ -44,20 +44,15 @@ set font $widgetFont(main)
menu .menuBar -tearoff 0
-# On the Mac use the special .apple menu for the about item
-if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} {
- .menuBar add cascade -menu .menuBar.apple
- menu .menuBar.apple -tearoff 0
- .menuBar.apple add command -label "About..." -command "aboutBox"
-} else {
+if {[tk windowingsystem] ne "classic" && [tk windowingsystem] ne "aqua"} {
.menuBar add cascade -menu .menuBar.file -label "File" -underline 0
menu .menuBar.file -tearoff 0
- .menuBar.file add command -label "About..." -command "aboutBox" \
+ .menuBar.file add command -label "About..." -command "tkAboutDialog" \
-underline 0 -accelerator "<F1>"
.menuBar.file add sep
.menuBar.file add command -label "Quit" -command "exit" -underline 0 \
-accelerator "Meta-Q"
- bind . <F1> aboutBox
+ bind . <F1> tkAboutDialog
}
. configure -menu .menuBar
@@ -71,11 +66,19 @@ pack .statusBar.lab -side left -padx 2 -expand yes -fill both
pack .statusBar.foo -side left -padx 2
pack .statusBar -side bottom -fill x -pady 2
+set textheight 30
+catch {
+ set textheight [expr {
+ ([winfo screenheight .] - 200) /
+ [font metrics $widgetFont(main) -displayof . -linespace]
+ }]
+}
+
frame .textFrame
scrollbar .s -orient vertical -command {.t yview} -highlightthickness 0 \
-takefocus 1
pack .s -in .textFrame -side right -fill y
-text .t -yscrollcommand {.s set} -wrap word -width 70 -height 30 \
+text .t -yscrollcommand {.s set} -wrap word -width 70 -height $textheight \
-font $widgetFont(main) -setgrid 1 -highlightthickness 0 \
-padx 4 -pady 2 -takefocus 0
pack .t -in .textFrame -expand y -fill both -padx 1
@@ -374,11 +377,11 @@ proc showCode w {
close $id
}
-# aboutBox --
+# tkAboutDialog --
#
# Pops up a message box with an "about" message
#
-proc aboutBox {} {
+proc tkAboutDialog {} {
tk_messageBox -icon info -type ok -title "About Widget Demo" -message \
"Tk widget demonstration
@@ -386,7 +389,9 @@ Copyright (c) 1996-1997 Sun Microsystems, Inc.
Copyright (c) 1997-2000 Ajuba Solutions, Inc.
-Copyright (c) 2001-2002 Donal K. Fellows"
+Copyright (c) 2001-2002 Donal K. Fellows
+
+Copyright (c) 2002-2007 Daniel A. Steffen"
}
# Local Variables: