pd/src desire.tk,1.1.2.513,1.1.2.514 - Pd-cvs

19 Oct 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