aboutsummaryrefslogtreecommitdiff
path: root/doc/additional/pd-msg/4.msg_from_tcl/2.nogui
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2005-11-20 05:02:10 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2005-11-20 05:02:10 +0000
commit3382e067199abb3bb8fcb2044711910640a459c1 (patch)
tree8a6ddc247f9a02dcee9deb93c859de6aa72f29c1 /doc/additional/pd-msg/4.msg_from_tcl/2.nogui
parent9c73539be6788c9b430b1922a8967c8359f6d7cd (diff)
renamed files so that they will work well in the Help browser
svn path=/trunk/; revision=3988
Diffstat (limited to 'doc/additional/pd-msg/4.msg_from_tcl/2.nogui')
-rwxr-xr-xdoc/additional/pd-msg/4.msg_from_tcl/2.nogui35
1 files changed, 0 insertions, 35 deletions
diff --git a/doc/additional/pd-msg/4.msg_from_tcl/2.nogui b/doc/additional/pd-msg/4.msg_from_tcl/2.nogui
deleted file mode 100755
index 7911e4b5..00000000
--- a/doc/additional/pd-msg/4.msg_from_tcl/2.nogui
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/wish -f
-
-#Here a small exemple that show a way to use the -nogui option.
-#damien HENRY
-#dh20010730
-
-puts "*********************"
-puts "* pd -nogui example *"
-puts "* (c) Damien HENRY *"
-puts "* This is GPL... *"
-puts "*********************"
-puts ""
-puts "WARNING : you need to run pd -open recv.pd -nogui first"
-
-#definition of the procedure that send msg to pd
-proc pd_send {string2send} {
- set to_pd [socket localhost 3006]
- puts $to_pd "$string2send;"
- .lmsg configure -text "$string2send;"
- close $to_pd
-}
-
-#create the gui
-wm title . "a simple tcl/tk gui to open pd-patch"
-label .l1 -text "open : patch & path"
-entry .pd_patch -textvariable pd_patch -width 23
-entry .pd_path -textvariable pd_path -width 23
-button .bload -text Load -width 20 -command {pd_send "pd open $pd_patch $pd_path" }
-button .bclose -text close -width 20 -command {pd_send "pd-$pd_patch menuclose" }
-button .bdspon -text "dsp on" -width 20 -command {pd_send "pd dsp 1" }
-button .bdspoff -text "dsp off" -width 20 -command {pd_send "pd dsp 0" }
-label .lmsg
-button .bq -text "quit" -width 20 -command {exit}
-
-pack .l1 .pd_patch .pd_path .bload .bclose .bdspon .bdspoff .lmsg .bq \ No newline at end of file