[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