[PD-cvs] pd/src desire.tk,1.1.2.600.2.333,1.1.2.600.2.334
Mathieu Bouchard
matju at users.sourceforge.net
Thu Aug 9 10:37:30 CEST 2007
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}
More information about the Pd-cvs
mailing list