[PD-cvs] doc/additional/pd-msg/4.msg_from_tcl 0.create_dummy_patch.tk, NONE, 1.1 2.nogui.tk, NONE, 1.1 0.create_dummy_patch, 1.1.1.1, NONE 2.nogui, 1.1.1.1, NONE

Hans-Christoph Steiner eighthave at users.sourceforge.net
Sun Nov 20 06:02:12 CET 2005


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 ---





More information about the Pd-cvs mailing list