--- a/ScrView.st	Mon Apr 07 19:00:54 1997 +0200
+++ b/ScrView.st	Tue Apr 08 00:45:33 1997 +0200
@@ -975,11 +975,14 @@
 
     horizontalMini ~~ aBoolean ifTrue:[
         horizontalMini := aBoolean.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ].
 
     "Created: 7.3.1997 / 21:57:02 / cg"
-    "Modified: 19.3.1997 / 16:29:43 / cg"
+    "Modified: 8.4.1997 / 00:45:03 / cg"
 !
 
 horizontalScrollable:aBoolean
@@ -989,11 +992,14 @@
     hasHorizontalScrollBar ~~ aBoolean ifTrue:[
         hasHorizontalScrollBar := aBoolean.
         hScrollBarHidden := false.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ].
 
     "Created: 7.3.1997 / 21:56:28 / cg"
-    "Modified: 19.3.1997 / 16:30:29 / cg"
+    "Modified: 8.4.1997 / 00:45:00 / cg"
 !
 
 verticalMini:aBoolean
@@ -1002,11 +1008,14 @@
 
     verticalMini ~~ aBoolean ifTrue:[
         verticalMini := aBoolean.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ]
 
     "Created: 7.3.1997 / 21:56:57 / cg"
-    "Modified: 19.3.1997 / 16:29:49 / cg"
+    "Modified: 8.4.1997 / 00:44:57 / cg"
 !
 
 verticalScrollable:aBoolean
@@ -1016,11 +1025,14 @@
     hasVerticalScrollBar ~~ aBoolean ifTrue:[
         hasVerticalScrollBar := aBoolean.
         vScrollBarHidden := false.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ]
 
     "Created: 7.3.1997 / 21:56:39 / cg"
-    "Modified: 19.3.1997 / 16:30:38 / cg"
+    "Modified: 8.4.1997 / 00:44:53 / cg"
 ! !
 
 !ScrollableView methodsFor:'changes '!
@@ -1617,6 +1629,9 @@
         ].
         vScrollBar isNil ifTrue:[
             vScrollBar := cls in:self.
+            realized ifTrue:[
+                vScrollBar realize
+            ]
         ].
         vScrollBar thumbOrigin:0 thumbHeight:100.
     ] ifFalse:[
@@ -1636,6 +1651,9 @@
         ].
         hScrollBar isNil ifTrue:[
             hScrollBar := cls in:self.
+            realized ifTrue:[
+                hScrollBar realize
+            ]
         ].
         hScrollBar thumbOrigin:0 thumbHeight:100.
     ] ifFalse:[
@@ -1649,7 +1667,7 @@
     ]
 
     "Created: 6.3.1997 / 18:06:23 / cg"
-    "Modified: 7.3.1997 / 21:54:34 / cg"
+    "Modified: 8.4.1997 / 00:44:33 / cg"
 ! !
 
 !ScrollableView methodsFor:'queries'!
@@ -1835,5 +1853,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.64 1997-04-07 17:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.65 1997-04-07 22:45:33 cg Exp $'
 ! !

--- a/ScrollableView.st	Mon Apr 07 19:00:54 1997 +0200
+++ b/ScrollableView.st	Tue Apr 08 00:45:33 1997 +0200
@@ -975,11 +975,14 @@
 
     horizontalMini ~~ aBoolean ifTrue:[
         horizontalMini := aBoolean.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ].
 
     "Created: 7.3.1997 / 21:57:02 / cg"
-    "Modified: 19.3.1997 / 16:29:43 / cg"
+    "Modified: 8.4.1997 / 00:45:03 / cg"
 !
 
 horizontalScrollable:aBoolean
@@ -989,11 +992,14 @@
     hasHorizontalScrollBar ~~ aBoolean ifTrue:[
         hasHorizontalScrollBar := aBoolean.
         hScrollBarHidden := false.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ].
 
     "Created: 7.3.1997 / 21:56:28 / cg"
-    "Modified: 19.3.1997 / 16:30:29 / cg"
+    "Modified: 8.4.1997 / 00:45:00 / cg"
 !
 
 verticalMini:aBoolean
@@ -1002,11 +1008,14 @@
 
     verticalMini ~~ aBoolean ifTrue:[
         verticalMini := aBoolean.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ]
 
     "Created: 7.3.1997 / 21:56:57 / cg"
-    "Modified: 19.3.1997 / 16:29:49 / cg"
+    "Modified: 8.4.1997 / 00:44:57 / cg"
 !
 
 verticalScrollable:aBoolean
@@ -1016,11 +1025,14 @@
     hasVerticalScrollBar ~~ aBoolean ifTrue:[
         hasVerticalScrollBar := aBoolean.
         vScrollBarHidden := false.
-        self setupViews
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensions.
+        ]
     ]
 
     "Created: 7.3.1997 / 21:56:39 / cg"
-    "Modified: 19.3.1997 / 16:30:38 / cg"
+    "Modified: 8.4.1997 / 00:44:53 / cg"
 ! !
 
 !ScrollableView methodsFor:'changes '!
@@ -1617,6 +1629,9 @@
         ].
         vScrollBar isNil ifTrue:[
             vScrollBar := cls in:self.
+            realized ifTrue:[
+                vScrollBar realize
+            ]
         ].
         vScrollBar thumbOrigin:0 thumbHeight:100.
     ] ifFalse:[
@@ -1636,6 +1651,9 @@
         ].
         hScrollBar isNil ifTrue:[
             hScrollBar := cls in:self.
+            realized ifTrue:[
+                hScrollBar realize
+            ]
         ].
         hScrollBar thumbOrigin:0 thumbHeight:100.
     ] ifFalse:[
@@ -1649,7 +1667,7 @@
     ]
 
     "Created: 6.3.1997 / 18:06:23 / cg"
-    "Modified: 7.3.1997 / 21:54:34 / cg"
+    "Modified: 8.4.1997 / 00:44:33 / cg"
 ! !
 
 !ScrollableView methodsFor:'queries'!
@@ -1835,5 +1853,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.64 1997-04-07 17:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.65 1997-04-07 22:45:33 cg Exp $'
 ! !