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

eighthave at users.sourceforge.net eighthave at users.sourceforge.net
Thu May 15 15:58:06 CEST 2008


Revision: 9809
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9809&view=rev
Author:   eighthave
Date:     2008-05-15 06:58:06 -0700 (Thu, 15 May 2008)

Log Message:
-----------
oops, forgot to add the Ctrl-b Help Browser binding to the Pd window

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-15 13:49:39 UTC (rev 9808)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-15 13:58:06 UTC (rev 9809)
@@ -3648,23 +3648,24 @@
 	global pd_nt
     #    puts stderr [concat key $key shift $shift]
     #    .dummy itemconfig goo -text [concat ---> control-key event $key];
-	if {$shift == 1} {
+    if {$shift == 1} {
         if {$key == "l" || $key == "L"} {menu_clear_console}
-		if {$key == "q" || $key == "Q"} {menu_really_quit}
+        if {$key == "q" || $key == "Q"} {menu_really_quit}
         if {$key == "r" || $key == "R"} {menu_toggle_console}
-	} else {
-		if {$key == "n" || $key == "N"} {menu_new}
-		if {$key == "o" || $key == "O"} {menu_open}
-		if {$key == "q" || $key == "Q"} {menu_quit}
+    } else {
+        if {$key == "b" || $key == "B"} {menu_doc_browser}
+        if {$key == "n" || $key == "N"} {menu_new}
+        if {$key == "o" || $key == "O"} {menu_open}
+        if {$key == "q" || $key == "Q"} {menu_quit}
         if {$key == "r" || $key == "R"} {menu_raise_console}
-		if {$pd_nt != 2} {
-			# Cmd-m is minimize window on Mac OS X
-			if {$key == "m" || $key == "M"} {menu_send}
+        if {$pd_nt != 2} {
+            # Cmd-m is minimize window on Mac OS X
+            if {$key == "m" || $key == "M"} {menu_send}
 		} else {
-			if {$key == "m" || $key == "M"} {menu_minimize}
+            if {$key == "m" || $key == "M"} {menu_minimize}
 		}
-		if {$key == "slash"} {menu_audio 1}
-		if {$key == "period"} {menu_audio 0}
+        if {$key == "slash"} {menu_audio 1}
+        if {$key == "period"} {menu_audio 0}
 	}
 }
 


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