--- a/ScrollableView.st Tue Sep 19 11:03:14 2000 +0200
+++ b/ScrollableView.st Tue Sep 19 11:03:51 2000 +0200
@@ -2091,6 +2091,7 @@
font:aFont
"set the font for all shown rows.
"
+ <resource: #todo>
super font:aFont.
"/ scrolledView notNil ifTrue:[
@@ -2175,5 +2176,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.111 2000-09-19 09:03:14 martin Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.112 2000-09-19 09:03:51 martin Exp $'
! !