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
---
 pdwindow_popup_mode-plugin.tcl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 pdwindow_popup_mode-plugin.tcl

(limited to 'pdwindow_popup_mode-plugin.tcl')

diff --git a/pdwindow_popup_mode-plugin.tcl b/pdwindow_popup_mode-plugin.tcl
new file mode 100644
index 0000000..fd1c296
--- /dev/null
+++ b/pdwindow_popup_mode-plugin.tcl
@@ -0,0 +1,19 @@
+# create an option for a mode where the Pd window pops up whenever anything is
+# printed to the text box in the Pd window
+
+set ::pdwindow::popupmode 0
+rename pdtk_post pdtk_post_original
+proc pdtk_post {message} {
+    if {$::pdwindow::popupmode} {
+        wm deiconify .pdwindow
+        raise .pdwindow
+    }
+    pdtk_post_original $message
+}
+
+set mymenu .menubar.window
+set inserthere [$mymenu index [_ "Parent Window"]]
+$mymenu insert $inserthere separator
+$mymenu insert $inserthere check -label [_ " Popup mode"] -variable ::pdwindow::popupmode
+
+
-- 
cgit v1.2.1