summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authordas <das>2007-11-04 10:38:09 (GMT)
committerdas <das>2007-11-04 10:38:09 (GMT)
commit9ad15b7decd323c998eec03344e91819c4e8512a (patch)
tree9e4a794f8796ede303e31b6a30bb661622493c63 /library/demos/widget
parent9107a42cf16f413e8244ec0241f69a2d1b21bdae (diff)
downloadtk-9ad15b7decd323c998eec03344e91819c4e8512a.zip
tk-9ad15b7decd323c998eec03344e91819c4e8512a.tar.gz
tk-9ad15b7decd323c998eec03344e91819c4e8512a.tar.bz2
* library/demos/mclist.tcl: Aqua GOOBE.
* library/demos/tree.tcl: * library/demos/ttknote.tcl: * library/demos/widget:
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget17
1 files changed, 6 insertions, 11 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 5155875..47d97d7 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.46 2007/11/02 23:53:07 dkf Exp $
+# RCS: @(#) $Id: widget,v 1.47 2007/11/04 10:38:09 das Exp $
package require Tcl 8.5
package require Tk 8.5
@@ -103,19 +103,14 @@ image create photo ::img::new -format GIF -data [mc {
menu .menuBar -tearoff 0
-# On the Mac use the special .apple menu for the about item
-if {[tk windowingsystem] eq "aqua"} {
- .menuBar add cascade -menu .menuBar.apple
- menu .menuBar.apple -tearoff 0
- .menuBar.apple add command -label [mc "About..."] -command {aboutBox}
-} else {
+if {[tk windowingsystem] ne "aqua"} {
# This is a tk-internal procedure to make i18n easier
::tk::AmpMenuArgs .menuBar add cascade -label [mc "&File"] \
-menu .menuBar.file
menu .menuBar.file -tearoff 0
::tk::AmpMenuArgs .menuBar.file add command -label [mc "&About..."] \
- -command {aboutBox} -accelerator [mc "<F1>"]
- bind . <F1> {aboutBox}
+ -command {tkAboutDialog} -accelerator [mc "<F1>"]
+ bind . <F1> {tkAboutDialog}
.menuBar.file add sep
if {[string match win* [tk windowingsystem]]} {
# Windows doesn't usually have a Meta key
@@ -718,11 +713,11 @@ proc PrintTextWin32 {filename} {
eval exec $command
}
-# aboutBox --
+# tkAboutDialog --
#
# Pops up a message box with an "about" message
#
-proc aboutBox {} {
+proc tkAboutDialog {} {
tk_messageBox -icon info -type ok -title [mc "About Widget Demo"] \
-message [mc "Tk widget demonstration application"] -detail \
"[mc {Copyright (c) %s} {1996-1997 Sun Microsystems, Inc.}]