pd/src desire.tk,1.1.2.161,1.1.2.162 - Pd-cvs

16 Apr 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]