[PD-cvs] SF.net SVN: pure-data:[10587] branches/pd-extended/0.41/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 10587
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10587&view=rev
Author:   eighthave
Date:     2009-01-21 18:31:35 +0000 (Wed, 21 Jan 2009)

Log Message:
-----------
intercept kAEQuitApplication sent by hitting Cmd-Q so that it prompts before quitting.  It still is a bit glitchy, sometimes you have to hit another key before it quits, but this is better than just quitting without asking anything

Modified Paths:
--------------
    branches/pd-extended/0.41/pd/src/u_main.tk

Modified: branches/pd-extended/0.41/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-21 18:12:00 UTC (rev 10586)
+++ branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-21 18:31:35 UTC (rev 10587)
@@ -357,6 +357,13 @@
 # Intercept closing the main pd window: MP 20060413:
 wm protocol . WM_DELETE_WINDOW menu_quit
 
+
+# intercept kAEQuitApplication from Cmd-Q
+proc ::tk::mac::Quit {} {
+	puts stderr "::tk::mac::Quit"
+	menu_quit
+}
+
 ############### set up global variables ################################
 
 set untitled_number 1


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.