[PD-cvs] pd/src desire.tk,1.1.2.600.2.95,1.1.2.600.2.96

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3252

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix for propagate_zoom and @goprect when zoomed


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.95
retrieving revision 1.1.2.600.2.96
diff -C2 -d -r1.1.2.600.2.95 -r1.1.2.600.2.96
*** desire.tk	15 Dec 2006 17:12:50 -0000	1.1.2.600.2.95
--- desire.tk	17 Dec 2006 16:40:27 -0000	1.1.2.600.2.96
***************
*** 1264,1269 ****
  		} else {
  			if {[$self class] == "Array"} {$self draw; return}
! 			#puts "skipping $self, don't draw it...."
! 			$self delete
  		}
  	}
--- 1264,1268 ----
  		} else {
  			if {[$self class] == "Array"} {$self draw; return}
! 			#$self delete
  		}
  	}
***************
*** 1446,1449 ****
--- 1445,1449 ----
      set @mapped 0
      set @gop 0
+     set @goprect ""
      set @abs 0
      set @name ""
***************
*** 1536,1546 ****
  	  set @pixheight [lindex $mess 7]
  	  switch [llength $mess] {
! 	    8  {set @gop 0; set @goprect 0; set @mess_len 8}
! 	    9  {set @gop [lindex $mess 8]; set @goprect 0; set @mess_len 9}
  	    11 {
  		set @gop [lindex $mess 8]
- 	        #set @gop [expr [lindex $mess 8] & 1] 
- 	        #set @hidetext [expr [lindex $mess 8] & 2]
- 		set @goprect 1
  		set @xmargin [lindex $mess 9]
  		set @ymargin [lindex $mess 10]
--- 1536,1543 ----
  	  set @pixheight [lindex $mess 7]
  	  switch [llength $mess] {
! 	    8  {set @gop 0; set @mess_len 8}
! 	    9  {set @gop [lindex $mess 8]; set @mess_len 9}
  	    11 {
  		set @gop [lindex $mess 8]
  		set @xmargin [lindex $mess 9]
  		set @ymargin [lindex $mess 10]
***************
*** 1550,1557 ****
            }
  	  if {$@gop} {set @mapped 1}
- 	  #if {$@mapped && !$@gop} {
- 	#	  puts "             makeing window for $self"
- 	#	  if {![winfo exists .$self.c]} {$self init_window}
- 	#  }
  	}
        }
--- 1547,1550 ----
***************
*** 1588,1592 ****
  	# 0 -1 1 1 90 95 10 20
  	set rect [list $@xmargin $@ymargin [expr $@xmargin+$@pixwidth] [expr $@ymargin+$@pixheight]]
! 	set @goprect [GopRect new $self $rect]
  	$@goprect draw
  
--- 1581,1585 ----
  	# 0 -1 1 1 90 95 10 20
  	set rect [list $@xmargin $@ymargin [expr $@xmargin+$@pixwidth] [expr $@ymargin+$@pixheight]]
! 	if {$@goprect == ""} {set @goprect [GopRect new $self $rect]}
  	$@goprect draw