[PD-cvs] SF.net SVN: pure-data: [9851] branches/pd-extended/v0-40/pd/src/u_main.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Sun May 18 21:40:02 CEST 2008
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.
More information about the Pd-cvs
mailing list