[PD-cvs] pd/src desire.tk,1.1.2.525,1.1.2.526
chunlee
chunlee at users.sourceforge.net
Tue Oct 24 23:36:16 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6492
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
more work on gop and [pd]
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.525
retrieving revision 1.1.2.526
diff -C2 -d -r1.1.2.525 -r1.1.2.526
*** desire.tk 24 Oct 2006 16:08:57 -0000 1.1.2.525
--- desire.tk 24 Oct 2006 21:36:13 -0000 1.1.2.526
***************
*** 1173,1178 ****
if {$@subpatch} {
#can't wait till @mapped get updated till the update_object
! set @mapped 0
! pd .$self map 0
pd .$self close
return
--- 1173,1180 ----
if {$@subpatch} {
#can't wait till @mapped get updated till the update_object
! if {$@gop} {foreach x $@children {$x outside_of_the_box}}
! #set @mapped 0
! if {$@gop} {set @mapped 1; pd .$self map 1} {set @mapped 0; pd .$self map 0}
! #pd .$self map 0
pd .$self close
return
***************
*** 1420,1424 ****
default {error "what???"}
}
!
if {$@mapped && !$@gop} {
if {![winfo exists .$self.c]} {$self init_window}
--- 1422,1426 ----
default {error "what???"}
}
! if {$@gop} {set @mapped 1}
if {$@mapped && !$@gop} {
if {![winfo exists .$self.c]} {$self init_window}
***************
*** 1430,1434 ****
default {error "huh? mess=$mess"}
}
! puts "mapped = $@mapped"
}
--- 1432,1436 ----
default {error "huh? mess=$mess"}
}
! puts " $self mapped = $@mapped"
}
***************
*** 2127,2131 ****
def Canvas mapped {} {return $@mapped}
!
def Canvas children {} {return $@children}
--- 2129,2133 ----
def Canvas mapped {} {return $@mapped}
! def Canvas mapped= {v} {set @mapped $v}
def Canvas children {} {return $@children}
***************
*** 2905,2913 ****
} else {
if {[$id subpatch]} {
! if {![$id mapped]} {
! $id popup_open
! } else {
! raise .$id
! }
}
}
--- 2907,2911 ----
} else {
if {[$id subpatch]} {
! if {![$id mapped]} {$id popup_open} else {if {![$id gop]} {raise .$id}}
}
}
More information about the Pd-cvs
mailing list