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