[PD-cvs] pd/src desire.tk,1.1.2.306,1.1.2.307

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
small fix for moving objects in @selection


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.306
retrieving revision 1.1.2.307
diff -C2 -d -r1.1.2.306 -r1.1.2.307
*** desire.tk	9 Aug 2006 07:42:02 -0000	1.1.2.306
--- desire.tk	9 Aug 2006 09:33:14 -0000	1.1.2.307
***************
*** 913,917 ****
  }
  
! def View item {suffix type coords args} {
  	set c .$@canvas.c
  	set ss $self$suffix
--- 913,917 ----
  }
  
! def* View item {suffix type coords args} {
  	set c .$@canvas.c
  	set ss $self$suffix
***************
*** 1848,1851 ****
--- 1848,1852 ----
      switch $@action {
        move {
+         puts "selection:::: $@selection"
          mset {ox oy} $oldpos
          foreach obj $@selection {$obj move [expr $x-$ox] [expr $y-$oy]}
***************
*** 2241,2245 ****
  	     } else {
  	     # otherwise do multiple object selection
! 	     	lappend @selection $id; $id selected?= 1
  	     } 
  	     
--- 2242,2247 ----
  	     } else {
  	     # otherwise do multiple object selection
! 	     	if {[lsearch $@selection $id] < 0} {lappend @selection $id}
! 	     	$id selected?= 1; set @action edit
  	     } 
  	     
***************
*** 2582,2585 ****
--- 2584,2597 ----
  def* Canvas decr_fontsize {} {$self zoom "out"}
  def* Canvas zoom {mode} {
+ 
+ 
+ 	#puts "coords:::: $coords"
+ 	#for {set i 0} {$i < [llength $coords]} {incr i} {
+ 	#	set val [expr [lindex $coords $i]*2]
+ 	#	puts "[lindex $coords $i] ::: $val"
+ 	#	set coords [lreplace $coords $i $i $val]
+ 	#}
+ 	#puts "coords::::: $coords"
+ 
  	global font
  	switch $mode {