--- a/HScrBar.st	Wed Jul 07 20:52:57 1999 +0200
+++ b/HScrBar.st	Wed Jul 07 20:53:37 1999 +0200
@@ -44,17 +44,16 @@
 "
 ! !
 
-!HorizontalScrollBar methodsFor:'queries'!
+!HorizontalScrollBar methodsFor:'initialization'!
 
-orientation
-    "for ST-80 compatibility, answer this query"
-
-    ^ #horizontal
+initialize
+    orientation := #horizontal.
+    super initialize
 
 ! !
 
 !HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.28 1997-05-28 14:20:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.29 1999-07-07 18:53:37 cg Exp $'
 ! !

--- a/HorizontalScrollBar.st	Wed Jul 07 20:52:57 1999 +0200
+++ b/HorizontalScrollBar.st	Wed Jul 07 20:53:37 1999 +0200
@@ -44,17 +44,16 @@
 "
 ! !
 
-!HorizontalScrollBar methodsFor:'queries'!
+!HorizontalScrollBar methodsFor:'initialization'!
 
-orientation
-    "for ST-80 compatibility, answer this query"
-
-    ^ #horizontal
+initialize
+    orientation := #horizontal.
+    super initialize
 
 ! !
 
 !HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.28 1997-05-28 14:20:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.29 1999-07-07 18:53:37 cg Exp $'
 ! !