[PD-cvs] pd/src desire.tk,1.1.2.525,1.1.2.526

[chunlee]

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