[PD-cvs] pd/src desire.tk,1.1.2.233,1.1.2.234

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
undo move worx for now


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.233
retrieving revision 1.1.2.234
diff -C2 -d -r1.1.2.233 -r1.1.2.234
*** desire.tk	12 Jun 2006 19:52:26 -0000	1.1.2.233
--- desire.tk	12 Jun 2006 20:31:57 -0000	1.1.2.234
***************
*** 1602,1605 ****
--- 1602,1607 ----
  	if {$@isnew} {$self edit}
  	catch {$c raise ${self}TEXT $self}
+ 	
+ 	$self draw_wires
  }
  
***************
*** 2476,2480 ****
  def* Box connect_out {} {}
  def* Box connect_in {} {}
! def* Box draw {} {}
  def* Box edit {} {}
  def* Box unedit {} {}
--- 2478,2482 ----
  def* Box connect_out {} {}
  def* Box connect_in {} {}
! def Box draw {} {}
  def* Box edit {} {}
  def* Box unedit {} {}
***************
*** 2485,2489 ****
  }
  
! def* Box draw_wires {} {
      puts "wires:$@wires"
      foreach wire $@wires {$wire draw}
--- 2487,2491 ----
  }
  
! def Box draw_wires {} {
      puts "wires:$@wires"
      foreach wire $@wires {$wire draw}
***************
*** 2495,2506 ****
  }
  
! def Box move {dx dy} {
    super $dx $dy
!   #$self draw_wires
!   foreach wire $@wires {
!     # the select_by is ugly, remove later... $_($@canvas:select_by)
!     set _($wire:select_by) $_($@canvas:select_by)
!     $wire draw
!   }
  }
  
--- 2497,2507 ----
  }
  
! def* Box move {dx dy} {
    super $dx $dy
!   $self draw_wires
!   #foreach wire $@wires {
!    # set _($wire:select_by) $_($@canvas:select_by)
!     #$wire draw
!   #}
  }
  
***************
*** 2847,2851 ****
  	# call the drawing method twice...
  	$x changed
- 	#if {[info exists _($x:wires)]} {$x draw_wires;}
  	
  	
--- 2848,2851 ----
***************
*** 2964,2967 ****
--- 2964,2968 ----
  	if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)}
  	.$@canvas.c itemconfigure ${self}BASE -outline $frcol
+ 	$self draw_wires
  }