1 files changed, 15 insertions, 0 deletions
diff --git a/global_editmode_0-plugin.tcl b/global_editmode_0-plugin.tcl
new file mode 100644
index 0000000..98f7a6a
--- /dev/null
+++ b/global_editmode_0-plugin.tcl
@@ -0,0 +1,15 @@
+#
+# this plugin maps Ctrl-Shift-E (Cmd-Shift-E) to switch all open patches to
+# Interact Mode (i.e. the opposite of Edit Mode)
+
+proc global_turn_off_editmode {} {
+    pdtk_post "$::pd_menus::accelerator-Shift-E: Turning off edit mode for all open windows"
+    foreach window [winfo children .] {
+        if {[winfo class $window] eq "PatchWindow"} {
+            pdsend "$window editmode 0"
+        }
+    }
+}
+
+# the "E" needs to be upper case, otherwise it gets missed with the 'Shift'
+bind all <$::modifier-Shift-Key-E> global_turn_off_editmode