From e58f6b3236f51c06e53c407a46d41f5e898c3b3c Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 30 Nov 2010 21:18:47 +0000
Subject: added the simple plugins from the pd-gui-rewrite/0.43/startup branch

svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14540
---
 font_doesnt_follow_focus-plugin.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 font_doesnt_follow_focus-plugin.tcl

(limited to 'font_doesnt_follow_focus-plugin.tcl')

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
+    }
+}
-- 
cgit v1.2.1