[PD-cvs] pd/src desire.tk,1.1.2.510,1.1.2.511
chunlee
chunlee at users.sourceforge.net
Tue Oct 17 00:11:13 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29528
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixs to auto object chaining
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.510
retrieving revision 1.1.2.511
diff -C2 -d -r1.1.2.510 -r1.1.2.511
*** desire.tk 16 Oct 2006 13:39:07 -0000 1.1.2.510
--- desire.tk 16 Oct 2006 22:11:10 -0000 1.1.2.511
***************
*** 1946,1949 ****
--- 1946,1954 ----
foreach o $@selection {$o selected?= 1}
}
+ def Canvas selection2= {idx} {
+ foreach o $@selection {$o selected?= 0}
+ set @selection [lindex $@children $idx]
+ foreach o $@selection {$o selected?= 1}
+ }
def Canvas selection+= {objs} {
foreach o $objs {switch $_($o:_class) {Wire {error "selection error"}}}
***************
*** 1991,1998 ****
super
$self draw_io
- #set c [$@canvas widget]
- #if {$@valid} {set dash {8 8 8 8}} {set dash {}} ;# isn't this backwards?
- #$c itemconfigure ${self}BASE -dash $dash
- #this is here to allow editing the newly created objectbox
if {$@isnew} {$self edit} ;# why this here ?
}
--- 1996,1999 ----
***************
*** 2022,2026 ****
--- 2023,2030 ----
set obj2_idx [$@canvas children_idx $self]
$@canvas connect [list $obj1_idx 0 $obj2_idx 0]
+ $@canvas deselect_all
+
$@canvas action= none
+ after 100 $@canvas selection2= $obj2_idx
#puts " [lindex [$@canvas children] $obj2_idx]"
#$@canvas selection= [lindex [$@canvas children] $obj2_idx]
***************
*** 3325,3335 ****
def Box connect_in {} {}
! def Box draw {} {
! #if {[$@canvas action] == "chain_obj"} {
! # $@canvas deselect_all
! # $@canvas selection= $self
! #}
! $self draw_box
! }
def Box draw_box {} {}
def Box edit {} {}
--- 3329,3333 ----
def Box connect_in {} {}
! def Box draw {} {$self draw_box}
def Box draw_box {} {}
def Box edit {} {}
More information about the Pd-cvs
mailing list