Update of /cvsroot/pure-data/doc/additional/pd-msg/4.msg_from_tcl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30203/4.msg_from_tcl
Added Files: 0.create_dummy_patch.tk 2.nogui.tk Removed Files: 0.create_dummy_patch 2.nogui Log Message: renamed files so that they will work well in the Help browser
--- 0.create_dummy_patch DELETED ---
--- NEW FILE: 2.nogui.tk --- #!/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 --- NEW FILE: 0.create_dummy_patch.tk --- #!/usr/bin/wish -f
#damien HENRY le 2001 07 14
puts "***********************************************" puts "* This will create a patch in pure-data *" puts "* be sure that the recv.pd file is loadded *" puts "***********************************************"
set to_pd [socket localhost 3006]
puts $to_pd "pd-recv.pd obj 10 10 pd new_patch;" puts $to_pd "pd-new_patch msg 10 10 bang;" puts $to_pd "pd-new_patch msg 10 30 message;" puts $to_pd "pd-new_patch connect 0 0 1 0;"
exit
--- 2.nogui DELETED ---