[PD-cvs] pd/src desire.tk,1.1.2.600.2.333,1.1.2.600.2.334

[Mathieu Bouchard]

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}