[PD-cvs] pd/src desire.tk,1.1.2.513,1.1.2.514

chunlee chunlee at users.sourceforge.net
Thu Oct 19 01:23:58 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
added clear wire and auto reconnect in popup menu


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.513
retrieving revision 1.1.2.514
diff -C2 -d -r1.1.2.513 -r1.1.2.514
*** desire.tk	18 Oct 2006 16:10:22 -0000	1.1.2.513
--- desire.tk	18 Oct 2006 23:23:54 -0000	1.1.2.514
***************
*** 2605,2609 ****
  		  $id   populate_menu $p {popup_insert}
  	  } else {
! 		  $id   populate_menu $p {popup_properties popup_open popup_help}
  	  }
      
--- 2605,2610 ----
  		  $id   populate_menu $p {popup_insert}
  	  } else {
! 		  $id   populate_menu $p {popup_properties popup_open popup_help \
! 					  popup_clear_wires popup_auto_wire}
  	  }
      
***************
*** 2854,2857 ****
--- 2855,2861 ----
  		  if {[$id subpatch]} {puts "$id could be a subpatch"}
  		  $self selection+= $id; set @action edit
+ 		  switch [expr $f&255] {
+ 			  2 {$self auto_wire}
+ 		  }
  	  }
  	  wire {
***************
*** 4083,4086 ****
--- 4087,4092 ----
  class_new BoxPropertiesDialog {PropertiesDialog}
  def Box popup_properties {} {BoxPropertiesDialog new $self}
+ def Box popup_clear_wires {} {[$self get_canvas] selection= $self; [$self get_canvas] clear_wires}
+ def Box popup_auto_wire {} {[$self get_canvas] selection= $self; [$self get_canvas] auto_wire}
  def BoxPropertiesDialog init {of} {
  	super $of





More information about the Pd-cvs mailing list