--- a/ScrollBar.st	Tue Sep 14 17:51:29 2004 +0200
+++ b/ScrollBar.st	Tue Sep 14 18:05:47 2004 +0200
@@ -952,6 +952,35 @@
     "Modified: 28.5.1997 / 15:50:27 / cg"
 ! !
 
+!ScrollBar methodsFor:'native widget support'!
+
+nativeWindowType
+    "return a symbol describing my native window type 
+     (may be used internally by the device as a native window creation hint)"
+
+    orientation == #vertical ifTrue:[
+        ^ #VerticalScrollBar
+    ].
+    ^ #HorizontalScrollBar
+!
+
+updateNativeWidget
+    self isNativeWidget ifTrue:[
+        "/ self halt.
+        drawableId notNil ifTrue:[
+            device 
+                setScrollPosition:thumb thumbOrigin rounded 
+                redraw:true 
+                in:drawableId.
+
+            device 
+                setScrollBarPageSize:thumb thumbHeight rounded 
+                redraw:true 
+                in:drawableId.
+        ]
+    ].
+! !
+
 !ScrollBar methodsFor:'private'!
 
 changeVisibilityOf:aComponent to:aBoolean
@@ -1015,23 +1044,6 @@
     ].
 
     "Modified: / 29.4.1999 / 08:44:03 / cg"
-!
-
-updateNativeWidget
-    self isNativeWidget ifTrue:[
-        "/ self halt.
-        drawableId notNil ifTrue:[
-            device 
-                setScrollPosition:thumb thumbOrigin rounded 
-                redraw:true 
-                in:drawableId.
-
-            device 
-                setScrollBarPageSize:thumb thumbHeight rounded 
-                redraw:true 
-                in:drawableId.
-        ]
-    ].
 ! !
 
 !ScrollBar methodsFor:'private-scrollview interface'!
@@ -1154,20 +1166,8 @@
     "Modified: / 28.4.1999 / 19:33:45 / cg"
 ! !
 
-!ScrollBar methodsFor:'queries-internal'!
-
-nativeWindowType
-    "return a symbol describing my native window type 
-     (may be used internally by the device as a native window creation hint)"
-
-    orientation == #vertical ifTrue:[
-        ^ #VerticalScrollBar
-    ].
-    ^ #HorizontalScrollBar
-! !
-
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.77 2004-09-14 15:51:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.78 2004-09-14 16:05:47 ca Exp $'
 ! !