[PD-cvs] pd/src desire.tk,1.1.2.600.2.296,1.1.2.600.2.297

Mathieu Bouchard matju at users.sourceforge.net
Tue Aug 7 00:42:52 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
cleanup


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.296
retrieving revision 1.1.2.600.2.297
diff -C2 -d -r1.1.2.600.2.296 -r1.1.2.600.2.297
*** desire.tk	6 Aug 2007 21:57:20 -0000	1.1.2.600.2.296
--- desire.tk	6 Aug 2007 22:42:48 -0000	1.1.2.600.2.297
***************
*** 2593,2600 ****
  	$@canvas selection-= [list $self]
  	switch [$@canvas action] {
! 		insert {set goto [list $@canvas new_object_insert_wire]}
! 		chain_obj {set goto [list $@canvas new_object_chain_wire]}
  		subpatcherize {set goto [list $@canvas new_object_subpatcherize_redraw]}
! 		default {set goto [list $@canvas new_object_callback]}
  	}
  	netsend [list .$@canvas text_setto $self $l] $goto
--- 2593,2600 ----
  	$@canvas selection-= [list $self]
  	switch [$@canvas action] {
! 		insert        {set goto [list $@canvas new_object_insert_wire]}
! 		chain_obj     {set goto [list $@canvas new_object_chain_wire]}
  		subpatcherize {set goto [list $@canvas new_object_subpatcherize_redraw]}
! 		default       {set goto [list $@canvas new_object_callback]}
  	}
  	netsend [list .$@canvas text_setto $self $l] $goto
***************
*** 3551,3565 ****
  				set count [llength $@children]
  				set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! 				if {$in} {set goto ""} else {
! 					netsend $mess2 [list $self new_wire_select]
! 				}
  			}
  			restore {incr in -1; netsend [$self paste_coords $mess $offset]}
! 			default {
! 				if {$in} {set goto ""} else {
! 					netsend [$self paste_coords $mess $offset] \
! 					    [list $self new_object_copyselect]
! 				}
! 			}
  		}
  	}
--- 3551,3558 ----
  				set count [llength $@children]
  				set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! 				if {!$in} {netsend $mess2 [list $self new_wire_select]}
  			}
  			restore {incr in -1; netsend [$self paste_coords $mess $offset]}
! 			default {if {!$in} {netsend [$self paste_coords $mess $offset] [list $self new_object_copyselect]}}
  		}
  	}
***************
*** 5253,5257 ****
  # split at atom boundaries.
  proc pd_atom_split {e} {
! 
  }
  
--- 5246,5250 ----
  # split at atom boundaries.
  proc pd_atom_split {e} {
! 	# huh...
  }
  
***************
*** 5496,5502 ****
  	foreach entry $entries {
  		if {!$@gop} {
! 		.$self.$entry.entry configure -state disable
  		} else {
! 		.$self.$entry.entry configure -state normal
  		}
  	}
--- 5489,5495 ----
  	foreach entry $entries {
  		if {!$@gop} {
! 			.$self.$entry.entry configure -state disable
  		} else {
! 			.$self.$entry.entry configure -state normal
  		}
  	}
***************
*** 5504,5528 ****
  
  def CanvasPropertiesDialog apply {} {
- 	#pd .$@of donecanvasdialog $@xscale $@yscale $@graphme
  	if {![$@canvas editmode]} {$@canvas editmode= 1}
  	netsend [list .$@of coords $@xfrom $@yfrom $@xto $@yto $@width $@height $@gop $@xmargin $@ymargin]
- 	#donecanvasdialogy sends back weird scientific notation values....
  }
  
  proc gatom_escape {sym} {
  	if {[string length $sym] == 0} {return "-"}
! 	if {[string equal -length 1 $sym "-"]} {
! 		return [string replace $sym 0 0 "--"]
! 	} else {
! 		return $sym
! 	}
  }
  
  proc gatom_unescape {sym} {
! 	if {[string equal -length 1 $sym "-"]} {
! 		return [string replace $sym 0 0 ""]
! 	} else {
! 		return $sym
! 	}
  }
  
--- 5497,5513 ----
  
  def CanvasPropertiesDialog apply {} {
  	if {![$@canvas editmode]} {$@canvas editmode= 1}
  	netsend [list .$@of coords $@xfrom $@yfrom $@xto $@yto $@width $@height $@gop $@xmargin $@ymargin]
  }
  
  proc gatom_escape {sym} {
  	if {[string length $sym] == 0} {return "-"}
! 	if {[string equal -length 1 $sym "-"]} {return [string replace $sym 0 0 "--"]}
! 	return $sym
  }
  
  proc gatom_unescape {sym} {
! 	if {[string equal -length 1 $sym "-"]} {return [string replace $sym 0 0 ""]}
! 	return $sym
  }
  





More information about the Pd-cvs mailing list