added the simple plugins from the pd-gui-rewrite/0.43/startup branchsvn2git-root

svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14540

1 files changed, 11 insertions, 0 deletions

diff --git a/font_doesnt_follow_focus-plugin.tcl b/font_doesnt_follow_focus-plugin.tcl
new file mode 100644
index 0000000..a822bd5
--- /dev/null
+++ b/font_doesnt_follow_focus-plugin.tcl
@@ -0,0 +1,11 @@
+# this plugin disables the following of focused window by overriding a proc
+
+rename ::dialog_font::update_font_dialog {}
+proc ::dialog_font::update_font_dialog {mytoplevel} {
+    variable canvaswindow
+    if {[winfo exists .font]} {
+        wm title .font [format [_ "%s Font"] [lookup_windowname $canvaswindow]]
+    } else {
+        set canvaswindow $mytoplevel
+    }
+}