--- a/ScrollableView.st	Fri May 22 13:52:44 1998 +0200
+++ b/ScrollableView.st	Mon May 25 15:04:31 1998 +0200
@@ -968,19 +968,25 @@
 horizontalScrollBar
     "return the horizontal scrollbar (or nil, if there is none)"
 
+    hScrollBar isNil ifTrue:[
+        self horizontalScrollable:true.
+    ].
     ^ hScrollBar
 
-    "Modified: 6.3.1997 / 16:59:24 / cg"
-    "Created: 6.3.1997 / 18:06:23 / cg"
+    "Created: / 6.3.1997 / 18:06:23 / cg"
+    "Modified: / 25.5.1998 / 12:53:58 / cg"
 !
 
 scrollBar
     "return the vertical scrollbar (or nil, if there is none)"
 
+    vScrollBar isNil ifTrue:[
+        self verticalScrollable:true.
+    ].
     ^ vScrollBar
 
-    "Modified: 6.3.1997 / 16:59:29 / cg"
-    "Created: 6.3.1997 / 18:06:23 / cg"
+    "Created: / 6.3.1997 / 18:06:23 / cg"
+    "Modified: / 25.5.1998 / 12:54:06 / cg"
 !
 
 scrolledView
@@ -1955,5 +1961,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.83 1998-05-20 22:54:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.84 1998-05-25 13:04:31 cg Exp $'
 ! !