--- a/ScrollBar.st	Thu May 01 13:27:21 1997 +0200
+++ b/ScrollBar.st	Fri May 02 14:39:38 1997 +0200
@@ -722,8 +722,30 @@
     "Modified: 7.3.1997 / 16:23:34 / 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)"
+
+    ^ #ScrollBar
+
+    "Created: 2.5.1997 / 14:39:10 / cg"
+!
+
+windowStyle
+    "return a symbol describing my style 
+     (may be used internally by the device as a decoration hint)"
+
+    ^ self orientation == #vertical 
+        ifTrue:[#verticalScrollBar]
+        ifFalse:[#horizontalScrollBar].
+
+    "Created: 2.5.1997 / 14:37:38 / cg"
+! !
+
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.44 1997-03-07 15:24:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.45 1997-05-02 12:39:38 cg Exp $'
 ! !