[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