diff options
Diffstat (limited to 'pdwindow_popup_mode-plugin.tcl')
| -rw-r--r-- | pdwindow_popup_mode-plugin.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
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 + + |