[PD-cvs] pd/src desire.tk,1.1.2.600.2.402,1.1.2.600.2.403

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
small fixes


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.402
retrieving revision 1.1.2.600.2.403
diff -C2 -d -r1.1.2.600.2.402 -r1.1.2.600.2.403
*** desire.tk	20 Aug 2007 04:40:56 -0000	1.1.2.600.2.402
--- desire.tk	20 Aug 2007 05:25:32 -0000	1.1.2.600.2.403
***************
*** 329,333 ****
  class_new Selection {Hash}
  def Selection set {k v} {super $k $v; $v selected?= 1}
! def Selection unset {k} {if {[$self exists $k]} {[$self get $k] selected?= 0}; super $k}
  #-----------------------------------------------------------------------------------#
  # abstract class: subclass must def {value value= <<}
--- 329,337 ----
  class_new Selection {Hash}
  def Selection set {k v} {super $k $v; $v selected?= 1}
! def Selection unset {k} {
! 	#set v [$self get $k]; puts "$v ::: [$v class]"
! 	if {[$self exists $k]} {[$self get $k] selected?= 0}
! 	super $k
! }
  #-----------------------------------------------------------------------------------#
  # abstract class: subclass must def {value value= <<}
***************
*** 1488,1491 ****
--- 1492,1496 ----
  		if {$@gop} {foreach x [$@objects values] {$x outside_of_the_box}}
  		$self save_geometry
+ 		$self copy_times= 0
  		netsend [list .$self vis 0]
  		#netsend [list .$self close]
***************
*** 2471,2475 ****
  		ButtonRelease {set name $event-$k}
  		Motion {set name $event}
! 		default {puts "Error: this event should not have been here.."}
  	}
  	if {$@idx < [llength $@list]} {
--- 2476,2480 ----
  		ButtonRelease {set name $event-$k}
  		Motion {set name $event}
! 		default {puts "Error: event $event should not have been here.."}
  	}
  	if {$@idx < [llength $@list]} {
***************
*** 3762,3766 ****
  		set y2 [expr [lindex $mess 3] - [lindex $ycoords $ref] + $vy1 + $yoff]
  		return [lreplace $mess 2 3 $x2 $y2]
! 	} else {return [lreplace $mess 2 3 [expr $x+$offset] [expr $y+$offset]]}
  }
  
--- 3767,3774 ----
  		set y2 [expr [lindex $mess 3] - [lindex $ycoords $ref] + $vy1 + $yoff]
  		return [lreplace $mess 2 3 $x2 $y2]
! 	} else {
! 		puts "\t \t [expr $x+$offset] [expr $y+$offset] <<<<<"
! 		return [lreplace $mess 2 3 [expr $x+$offset] [expr $y+$offset]]
! 	}
  }
  
***************
*** 5148,5152 ****
  		incr i
  	}
! 	netsend [list .$obj clipboard_set $s]
  }
  
--- 5156,5160 ----
  		incr i
  	}
! 	netsend [concat [list .$obj clipboard_set] $s]
  }
  
***************
*** 5168,5172 ****
  				return
  			}
! 			default {puts "Error: this event should not have been here.."}
  		}
  		if {$fudge} {event generate $w <Motion> -x $x -y $y}
--- 5176,5180 ----
  				return
  			}
! 			default {puts "Error: this event $event should not have been here.."}
  		}
  		if {$fudge} {event generate $w <Motion> -x $x -y $y}