[PD-cvs] SF.net SVN: pure-data: [9851] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 9851
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9851&view=rev
Author:   eighthave
Date:     2008-05-18 12:40:02 -0700 (Sun, 18 May 2008)

Log Message:
-----------
got Cmd-quoteleft (i.e. backtick) working to cycle through windows on Mac OS X

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

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-18 18:35:45 UTC (rev 9850)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-18 19:40:02 UTC (rev 9851)
@@ -488,6 +488,10 @@
 	}
 }
 
+proc menu_raisenextwindow {} {
+	raise [lindex [wm stackorder .] 1]
+}
+
 ################## menu commands for console #########################
 
 proc menu_raise_console {} {
@@ -1498,6 +1502,7 @@
         bind $name.c <Mod1-Key> {pdtk_canvas_ctrlkey %W %K 0}
         bind $name.c <Mod1-Shift-Key> {pdtk_canvas_ctrlkey %W %K 1}
         bind $name.c <Mod1-BackSpace> {pdtk_canvas_sendkey %W 1 %K %A 0}
+        bind $name.c <Mod1-quoteleft> {menu_raisenextwindow}
     }
     bind $name.c <Key> {pdtk_canvas_sendkey %W 1 %K %A 0}
     bind $name.c <Shift-Key> {pdtk_canvas_sendkey %W 1 %K %A 1}


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