--- 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 $'
 ! !