--- 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 $'
 ! !

--- a/ScrollableView.st	Mon Sep 13 15:43:55 2004 +0200
+++ b/ScrollableView.st	Mon Sep 13 15:52:26 2004 +0200
@@ -1544,6 +1544,14 @@
         scrolledView scrollHorizontalTo:newPosition.
         ^ self.
     ].
+    scrollCode == #SB_THUMBTRACKVERTICAL ifTrue:[
+        scrolledView scrollVerticalTo:newPosition.
+        ^ self.
+    ].
+    scrollCode == #SB_THUMBTRACKHORIZONTAL ifTrue:[
+        scrolledView scrollHorizontalTo:newPosition.
+        ^ self.
+    ].
 
     scrollCode == #SB_ENDSCROLL ifTrue:[
         ^ self.
@@ -2337,5 +2345,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.133 2004-09-13 13:40:13 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.134 2004-09-13 13:52:26 ca Exp $'
 ! !