--- a/ScrollBar.st	Mon Sep 13 15:40:13 2004 +0200
+++ b/ScrollBar.st	Mon Sep 13 15:42:28 2004 +0200
@@ -986,7 +986,11 @@
      (i.e. adjust thumbs origin & size for views size & views contents).
      This is forwarded to the scroller here."
 
-    thumb setThumbFor:aView.
+    self isNativeWidget ifTrue:[
+        "/ self halt.
+    ] ifFalse:[
+        thumb setThumbFor:aView.
+    ].
     self enableDisableButtons
 !
 
@@ -994,7 +998,11 @@
     "adjust thumbs height for aViews size & contents.
      This is forwarded to the scroller here."
 
-    thumb setThumbHeightFor:aView.
+    self isNativeWidget ifTrue:[
+        "/ self halt.
+    ] ifFalse:[
+        thumb setThumbHeightFor:aView.
+    ].
     self enableDisableButtons
 !
 
@@ -1002,7 +1010,11 @@
     "adjust thumbs origin for aViews size & contents.
      This is forwarded to the scroller here."
 
-    thumb setThumbOriginFor:aView.
+    self isNativeWidget ifTrue:[
+        "/ self halt.
+    ] ifFalse:[
+        thumb setThumbOriginFor:aView.
+    ].
     self enableDisableButtons
 ! !
 
@@ -1105,5 +1117,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.70 2004-09-13 08:44:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.71 2004-09-13 13:42:28 ca Exp $'
 ! !