--- a/ScrollBar.st	Mon Sep 13 15:43:55 2004 +0200
+++ b/ScrollBar.st	Mon Sep 13 15:52:26 2004 +0200
@@ -988,6 +988,7 @@
 
     self isNativeWidget ifTrue:[
         "/ self halt.
+        thumb setThumbFor:aView.
     ] ifFalse:[
         thumb setThumbFor:aView.
     ].
@@ -1000,6 +1001,7 @@
 
     self isNativeWidget ifTrue:[
         "/ self halt.
+        thumb setThumbHeightFor:aView.
     ] ifFalse:[
         thumb setThumbHeightFor:aView.
     ].
@@ -1012,6 +1014,7 @@
 
     self isNativeWidget ifTrue:[
         "/ self halt.
+        thumb setThumbOriginFor:aView.
     ] ifFalse:[
         thumb setThumbOriginFor:aView.
     ].
@@ -1117,5 +1120,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.71 2004-09-13 13:42:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.72 2004-09-13 13:51:40 ca Exp $'
 ! !