--- a/ScrollableView.st	Mon Aug 05 13:48:39 1996 +0200
+++ b/ScrollableView.st	Mon Aug 05 13:49:43 1996 +0200
@@ -657,15 +657,20 @@
 
 sizeChanged:how
     super sizeChanged:how.
-    scrolledView notNil ifTrue:[
-	scrollBar setThumbFor:scrolledView
-    ].
-    scrollBar thumbOrigin + scrollBar thumbHeight >= 100 ifTrue:[
-	scrollBar thumbOrigin:(100 - scrollBar thumbHeight).
-	scrolledView scrollVerticalToPercent:scrollBar thumbOrigin.
+
+    "/ The following action will be done in a atomic operation
+    "/ in HVScrollableView
+
+    (scrolledView notNil and:[self isHorizontalScrollable not]) ifTrue:[
+        scrollBar setThumbFor:scrolledView.
+        scrollBar thumbOrigin + scrollBar thumbHeight >= 100 ifTrue:[
+            scrollBar thumbOrigin:(100 - scrollBar thumbHeight).
+            scrolledView scrollVerticalToPercent:scrollBar thumbOrigin.
+        ].
     ].
 
     "Modified: 8.9.1995 / 12:46:36 / claus"
+    "Modified: 5.8.1996 / 12:31:34 / stefan"
 ! !
 
 !ScrollableView methodsFor:'forced scroll'!
@@ -879,6 +884,14 @@
 
 !ScrollableView methodsFor:'queries'!
 
+isHorizontalScrollable
+    "return false, because I am not horizontal scrollable"
+
+    ^ false
+
+    "Created: 5.8.1996 / 12:28:05 / stefan"
+!
+
 preferredExtent
     "return my preferredExtent from the scrolledViews prefExtent
      plus the size of the scrollBar"
@@ -986,5 +999,5 @@
 !ScrollableView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.38 1996-08-01 16:25:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.39 1996-08-05 11:49:43 stefan Exp $'
 ! !