summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordas <das>2009-04-10 16:29:18 (GMT)
committerdas <das>2009-04-10 16:29:18 (GMT)
commitcde3f5abce011188551a0ecf07930ff80631ef72 (patch)
treef1a676536c5365a47cf025e2bafdbf8b5fc9a9a3 /library
parent40ed7c78b3c99ba14d17fdf2aad572bddadbf94d (diff)
downloadtk-cde3f5abce011188551a0ecf07930ff80631ef72.zip
tk-cde3f5abce011188551a0ecf07930ff80631ef72.tar.gz
tk-cde3f5abce011188551a0ecf07930ff80631ef72.tar.bz2
* library/console.tcl (::tk::ConsoleInit): remove redundant TkAqua
Quit menu item.
Diffstat (limited to 'library')
-rw-r--r--library/console.tcl7
1 files changed, 2 insertions, 5 deletions
diff --git a/library/console.tcl b/library/console.tcl
index 7008c91..8d31e2a 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -4,7 +4,7 @@
# can be used by non-unix systems that do not have built-in support
# for shells.
#
-# RCS: @(#) $Id: console.tcl,v 1.37.2.1 2009/01/30 21:06:05 patthoyts Exp $
+# RCS: @(#) $Id: console.tcl,v 1.37.2.2 2009/04/10 16:29:18 das Exp $
#
# Copyright (c) 1995-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Ajuba Solutions.
@@ -69,10 +69,7 @@ proc ::tk::ConsoleInit {} {
-command {wm withdraw .}
AmpMenuArgs .menubar.file add command -label [mc "&Clear Console"] \
-command {.console delete 1.0 "promptEnd linestart"}
- if {[tk windowingsystem] eq "aqua"} {
- AmpMenuArgs .menubar.file add command \
- -label [mc &Quit] -command {exit} -accel "Cmd-Q"
- } else {
+ if {[tk windowingsystem] ne "aqua"} {
AmpMenuArgs .menubar.file add command -label [mc E&xit] -command {exit}
}