--- a/Scroller.st	Sat Mar 29 12:01:57 1997 +0100
+++ b/Scroller.st	Tue Apr 01 12:56:11 1997 +0200
@@ -824,6 +824,27 @@
     ^ orientation
 !
 
+orientation:aSymbol 
+    "set the scrollers orientation (#vertical or #horizontal)"
+
+    |oldFrame|
+
+    orientation := aSymbol.
+    preferredExtent := nil.
+
+    shown ifTrue:[
+        oldFrame := thumbFrame.
+        self computeThumbFrame.
+
+        oldFrame ~= thumbFrame ifTrue:[
+            self invalidate.
+        ]
+    ]
+
+    "Created: 1.4.1997 / 12:18:32 / cg"
+    "Modified: 1.4.1997 / 12:20:46 / cg"
+!
+
 thumb
     "for compatibility with scrollBars, return the receiver"
 
@@ -1916,5 +1937,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.80 1997-03-29 11:01:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.81 1997-04-01 10:56:11 cg Exp $'
 ! !