[PD-cvs] pd/src desire.tk,1.1.2.161,1.1.2.162
chunlee
chunlee at users.sourceforge.net
Sun Apr 16 18:46:41 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10517
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
trivial changes for pdrc editor
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.161
retrieving revision 1.1.2.162
diff -C2 -d -r1.1.2.161 -r1.1.2.162
*** desire.tk 16 Apr 2006 08:30:45 -0000 1.1.2.161
--- desire.tk 16 Apr 2006 16:46:39 -0000 1.1.2.162
***************
*** 611,615 ****
{open_file {} "Ctrl+o"}
{}
! {pdrc_editor {} ""}
{send_message {} "Ctrl+m"}
{paths {} ""}
--- 611,615 ----
{open_file {} "Ctrl+o"}
{}
! {pdrc_editor {} "Ctrl+p"}
{send_message {} "Ctrl+m"}
{paths {} ""}
***************
*** 3524,3527 ****
--- 3524,3536 ----
void -listdev "list audio and MIDI devices upon startup"
void -rt|-realtime "use real-time priority (needs root privilege)"
+
+ section "" "Look"
+ files -open "open file(s) on startup"
+ void -verbose "extra printout on startup and when searching for files"
+ int -d "debug level"
+ void -noloadbang "disable the effect of [loadbang]"
+ string -send "send a message at startup (after patches are loaded)"
+ void -listdev "list audio and MIDI devices upon startup"
+ void -rt|-realtime "use real-time priority (needs root privilege)"
}
***************
*** 3546,3550 ****
proc pdrc_read {self} {
global pdrc_options pdrc_options_h _ cmdline
! set fd [open $cmdline(rcfilename) r]
set contents [split [string map {"\n" " "} [read $fd]] " "]
close $fd
--- 3555,3559 ----
proc pdrc_read {self} {
global pdrc_options pdrc_options_h _ cmdline
! set fd [open $cmdline(rcfilename) "RDONLY CREAT"]
set contents [split [string map {"\n" " "} [read $fd]] " "]
close $fd
***************
*** 3605,3609 ****
section {
incr section
! frame .$self.1.main.$section
button .$self.1.bar.$section -text $desc \
-command [list notebook_select $self.1 $section]
--- 3614,3618 ----
section {
incr section
! frame .$self.1.main.$section -width 600
button .$self.1.bar.$section -text $desc \
-command [list notebook_select $self.1 $section]
More information about the Pd-cvs
mailing list