--- a/ScrollableView.st	Mon Sep 13 10:44:06 2004 +0200
+++ b/ScrollableView.st	Mon Sep 13 14:29:55 2004 +0200
@@ -1499,6 +1499,28 @@
     ]
 
     "Modified: 28.3.1997 / 17:25:38 / cg"
+!
+
+win32NativeScroll:scrollCode position:newPosition
+    "this is generated by a native scrollBar widget"
+
+    scrollCode == #SB_LINEDOWN ifTrue:[
+        scrolledView scrollDown.
+        ^ self.
+    ].
+    scrollCode == #SB_LINEUP ifTrue:[
+        scrolledView scrollUp.
+        ^ self.
+    ].
+    scrollCode == #SB_LINELEFT ifTrue:[
+        scrolledView scrollLeft.
+        ^ self.
+    ].
+    scrollCode == #SB_LINERIGHT ifTrue:[
+        scrolledView scrollRight.
+        ^ self.
+    ].
+    self halt.
 ! !
 
 !ScrollableView methodsFor:'forced scroll'!
@@ -2287,5 +2309,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.130 2004-08-30 17:55:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.131 2004-09-13 12:29:55 ca Exp $'
 ! !