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}} } }