[PD-cvs] pd/src desire.tk,1.1.2.600.2.150,1.1.2.600.2.151

chunlee chunlee at users.sourceforge.net
Wed Jan 3 02:45:49 CET 2007


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

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


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.150
retrieving revision 1.1.2.600.2.151
diff -C2 -d -r1.1.2.600.2.150 -r1.1.2.600.2.151
*** desire.tk	3 Jan 2007 00:34:30 -0000	1.1.2.600.2.150
--- desire.tk	3 Jan 2007 01:45:45 -0000	1.1.2.600.2.151
***************
*** 1991,1995 ****
      $self populate_menu edit {
  	undo redo {}
! 	cut copy paste duplicate select_all {}
  	text_editor tidy_up {}}
      $self populate_menu find {
--- 1991,1995 ----
      $self populate_menu edit {
  	undo redo {}
! 	cut copy paste duplicate select_all subpatcherize {}
  	text_editor tidy_up {}}
      $self populate_menu find {
***************
*** 2490,2494 ****
  
  def Canvas wires {} {return $@wires}
! 
  def Canvas delete_selection {} {
  	if {![llength $@selection] && ![llength $@selection_wire]} {return}
--- 2490,2497 ----
  
  def Canvas wires {} {return $@wires}
! def Canvas wires-= {wire} {
! 	set idx [lsearch $@wires $wire]
! 	set @wires [lreplace $@wires $idx $idx]
! } 
  def Canvas delete_selection {} {
  	if {![llength $@selection] && ![llength $@selection_wire]} {return}
***************
*** 3206,3209 ****
--- 3209,3213 ----
  }
  
+ 
  def Canvas disconnect {wire} {
  	set @keynav_tab_sel "wire"
***************
*** 3262,3265 ****
--- 3266,3270 ----
  				}
  			}
+ 			$wire delete
  		}
  	}
***************
*** 3402,3406 ****
  	}
  }
! 
  def Canvas subpatcherize_paste {} {
  	set subpatcherize(paste) 1
--- 3407,3411 ----
  	}
  }
!  
  def Canvas subpatcherize_paste {} {
  	set subpatcherize(paste) 1
***************
*** 4571,4574 ****
--- 4576,4580 ----
  	$@obj1 delete_wire $self
  	$@obj2 delete_wire $self
+ 	$@canvas wires-= $self
  	super
  }





More information about the Pd-cvs mailing list