[PD-cvs] pd/src desire.tk,1.1.2.600.2.65,1.1.2.600.2.66

Mathieu Bouchard matju at users.sourceforge.net
Tue Dec 12 21:27:03 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15674

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed some superfluous evals and changed more proc pd to netsend


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.65
retrieving revision 1.1.2.600.2.66
diff -C2 -d -r1.1.2.600.2.65 -r1.1.2.600.2.66
*** desire.tk	12 Dec 2006 18:32:32 -0000	1.1.2.600.2.65
--- desire.tk	12 Dec 2006 20:26:57 -0000	1.1.2.600.2.66
***************
*** 923,927 ****
      $e select from 0
      $e select adjust end
!     bind $e <KeyPress-Return> {pd $send_textvar; after 50 {destroy .sendpanel}}
      focus $e
  }
--- 923,927 ----
      $e select from 0
      $e select adjust end
!     bind $e <KeyPress-Return> {netsend $send_textvar; after 50 {destroy .sendpanel}}
      focus $e
  }
***************
*** 1361,1366 ****
  def Client about {} {AboutDialog new}
  def Client class_browser {} {Browser new_as browser browser 0 0 ""}
! def Client audio_on  {} {pd pd dsp 1}
! def Client audio_off {} {pd pd dsp 0}
  def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard}
  def Client   history_view {} {global history;   HistoryDialog   new $history}
--- 1361,1366 ----
  def Client about {} {AboutDialog new}
  def Client class_browser {} {Browser new_as browser browser 0 0 ""}
! def Client audio_on  {} {netsend [list pd dsp 1]}
! def Client audio_off {} {netsend [list pd dsp 0]}
  def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard}
  def Client   history_view {} {global history;   HistoryDialog   new $history}
***************
*** 2431,2435 ****
  # for undo; calls the server
  def Canvas ins {i constructor} {
! 	eval [concat [list pd .$self object_insert $i] $constructor]
  	$@history add [list $self del $i]
  }
--- 2431,2435 ----
  # for undo; calls the server
  def Canvas ins {i constructor} {
! 	netsend [concat [list .$self object_insert $i] $constructor]
  	$@history add [list $self del $i]
  }
***************
*** 2458,2462 ****
  	  if {$find == -1} {# new wire!!!
  	    lappend @wires_pair [list $outobj $outport $inobj $inport]
! 	    set new_wire [eval [list Wire_new $self $outobj $outport $inobj $inport]]
  	    lappend @wires_pair $new_wire
  	    lappend wires $new_wire
--- 2458,2462 ----
  	  if {$find == -1} {# new wire!!!
  	    lappend @wires_pair [list $outobj $outport $inobj $inport]
! 	    set new_wire [Wire_new $self $outobj $outport $inobj $inport]
  	    lappend @wires_pair $new_wire
  	    lappend wires $new_wire
***************
*** 4586,4590 ****
  	set tosend {}
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
! 	eval [concat [list netsend [concat [list .$self reload] $props]]]
  }
  
--- 4586,4590 ----
  	set tosend {}
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
! 	netsend [concat [list .$self reload] $props]
  }
  
***************
*** 5757,5761 ****
  def ClassBrowser info {listbox} {
  	set class [$self current_class]
! 	if {$class != ""} {pd pd update-class-info $class $self info_callback}
  }
  
--- 5757,5761 ----
  def ClassBrowser info {listbox} {
  	set class [$self current_class]
! 	if {$class != ""} {netsend [list pd update-class-info $class $self info_callback]}
  }
  
***************
*** 6075,6080 ****
  		set v $_($self:$item) ;# bug in objtcl
  		set item_lower [string tolower $item]
! 		#eval "entry $f.$item_lower -textvariable $_($self:$item) -width 15"
! 		eval "entry $f.$item_lower -width 15"
  		$f.$item_lower insert 0 $v
  		pack $f.$item_lower -side left
--- 6075,6079 ----
  		set v $_($self:$item) ;# bug in objtcl
  		set item_lower [string tolower $item]
! 		entry $f.$item_lower -width 15
  		$f.$item_lower insert 0 $v
  		pack $f.$item_lower -side left





More information about the Pd-cvs mailing list