From 31a39a76334a12ed604b7a3fc1f1c939251d22cf Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 10 Apr 2009 16:31:44 +0000
Subject: 	* library/console.tcl (::tk::ConsoleInit): remove redundant
 TkAqua 	Quit menu item.

---
 ChangeLog           | 3 +++
 library/console.tcl | 7 ++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1e1be33..1560077 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-10  Daniel Steffen  <das@users.sourceforge.net>
 
+	* library/console.tcl (::tk::ConsoleInit): remove redundant TkAqua
+	Quit menu item.
+
 	* generic/tkPointer.c (Tk_UpdatePointer): use all 5 buttons.
 
 	* generic/tkMenu.c (PostProcessEntry): delay call to
diff --git a/library/console.tcl b/library/console.tcl
index 2f009f0..e17b898 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.41 2009/02/21 10:22:58 patthoyts Exp $
+# RCS: @(#) $Id: console.tcl,v 1.42 2009/04/10 16:31:44 das Exp $
 #
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Ajuba Solutions.
@@ -68,10 +68,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}
     }
 
-- 
cgit v0.12