Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24652
Modified Files: Tag: desiredata desire.tk Log Message: partial fix for scrollbar bug
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.333 retrieving revision 1.1.2.600.2.334 diff -C2 -d -r1.1.2.600.2.333 -r1.1.2.600.2.334 *** desire.tk 9 Aug 2007 08:05:53 -0000 1.1.2.600.2.333 --- desire.tk 9 Aug 2007 08:37:26 -0000 1.1.2.600.2.334 *************** *** 1293,1296 **** --- 1293,1298 ---- }
+ def View classtags {} {return {foo}} + set item { set canvas [$self get_canvas] *************** *** 1314,1318 **** foreach s $suffixes {lappend tags "$self$s"} set ss [lindex $tags 0] ! lappend tags [list $self] } if {$tcl_version>=8.5} { --- 1316,1321 ---- foreach s $suffixes {lappend tags "$self$s"} set ss [lindex $tags 0] ! lappend tags $self ! set tags [concat $tags [$self classtags]] } if {$tcl_version>=8.5} { *************** *** 1842,1846 **** set c [$self widget] if {[winfo exists $win.yscroll]} {return} ! set size [$c bbox all] mset {xs ys} $@canvas_size if {$size != ""} { --- 1845,1849 ---- set c [$self widget] if {[winfo exists $win.yscroll]} {return} ! set size [$c bbox foo] mset {xs ys} $@canvas_size if {$size != ""} { *************** *** 1870,1874 **** def Canvas adjust_scrollbars {} { set c [$self widget] ! set size [$c bbox all] if {[$self look scrollbar]} {$self auto_scrollbars} if {$size != ""} { --- 1873,1877 ---- def Canvas adjust_scrollbars {} { set c [$self widget] ! set size [$c bbox foo] if {[$self look scrollbar]} {$self auto_scrollbars} if {$size != ""} { *************** *** 1890,1894 **** mset {l r} [$c xview] mset {t b} [$c yview] ! mset {w h} [$c bbox all] set w2 [winfo width $c] set h2 [winfo height $c] --- 1893,1897 ---- mset {l r} [$c xview] mset {t b} [$c yview] ! mset {w h} [$c bbox foo] set w2 [winfo width $c] set h2 [winfo height $c] *************** *** 1897,1901 **** if {$l == 0 && $r == 1 && $t == 0 && $b == 1} {$self remove_scrollbars; return} } else { ! if {[$c bbox all] != ""} { if {$w > $w2 || $h > $h2} {$self init_scrollbars} } --- 1900,1904 ---- if {$l == 0 && $r == 1 && $t == 0 && $b == 1} {$self remove_scrollbars; return} } else { ! if {[$c bbox foo] != ""} { if {$w > $w2 || $h > $h2} {$self init_scrollbars} } *************** *** 6526,6529 **** --- 6529,6534 ---- class_new Crosshair {View}
+ #def Crosshair classtags {} {return {}} + def Crosshair init {canvas} { super *************** *** 6597,6600 **** --- 6602,6607 ---- }
+ def Grid classtags {} {return {}} + def Grid update {h w} {set @width $w; set @height $h} def Grid size= {size} {set @size $size}