[PD-cvs] pd/src desire.tk,1.1.2.523,1.1.2.524
chunlee
chunlee at users.sourceforge.net
Mon Oct 23 21:24:41 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26756
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
somemore small fixes
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.523
retrieving revision 1.1.2.524
diff -C2 -d -r1.1.2.523 -r1.1.2.524
*** desire.tk 23 Oct 2006 16:06:34 -0000 1.1.2.523
--- desire.tk 23 Oct 2006 19:24:37 -0000 1.1.2.524
***************
*** 1775,1779 ****
def Canvas draw {} {
if {$@subpatch && $@canvas != "" && !$@gop} {super} ;# is for the [pd] box if applicable
! if {[info exists @gop]} {if {$@gop} {super; $self draw_gop; return}}
if {!$@mapped} {return}
if {$@editmode} {set bg [$self look bgedit]} else {set bg [$self look bgrun]}
--- 1775,1781 ----
def Canvas draw {} {
if {$@subpatch && $@canvas != "" && !$@gop} {super} ;# is for the [pd] box if applicable
! if {[info exists @gop]} {
! if {$@gop && ![winfo exists [$self widget]]} {super; $self draw_gop; return}
! }
if {!$@mapped} {return}
if {$@editmode} {set bg [$self look bgedit]} else {set bg [$self look bgrun]}
***************
*** 2339,2343 ****
if {[llength $@selection] == 1} {set obj $@selection} else {return}
if {[[$obj class] <= Box]} {
! [$self widget] raise $obj
mset {type id detail} [$self identify_target $x $y 0]
if {$type == "wire"} {
--- 2341,2349 ----
if {[llength $@selection] == 1} {set obj $@selection} else {return}
if {[[$obj class] <= Box]} {
! if {[$obj class] == "Canvas"} {
! if {[$obj gop]} {[$self widget] raise [list $obj [$obj visible_children]]}
! } else {
! [$self widget] raise $obj
! }
mset {type id detail} [$self identify_target $x $y 0]
if {$type == "wire"} {
***************
*** 2437,2443 ****
foreach tag $stack {
set tags2 [$c gettags $tag]
! if {[regexp {^[xo][0-9a-f]{6,8}} $tags2 id]} {
! set class [$id class]
! if {[$class <= Wire]} {return [list "wire" $id]}
}
}
--- 2443,2449 ----
foreach tag $stack {
set tags2 [$c gettags $tag]
! if {[regexp {^[xo][0-9a-f]{6,8}} $tags2 id2]} {
! set class [$id2 class]
! if {[$class == Wire]} {return [list "wire" $id2]}
}
}
More information about the Pd-cvs
mailing list