MiniScroller.st
changeset 556 4c3edf42c03e
parent 555 c0792488192b
child 572 121735c2aff6
--- a/MiniScroller.st	Fri Apr 19 18:47:07 1996 +0200
+++ b/MiniScroller.st	Fri Apr 19 18:50:04 1996 +0200
@@ -69,7 +69,7 @@
 initialize
     "initialize - setup instvars from defaults"
 
-    orientation := #vertical.
+    orientation isNil ifTrue:[orientation := #vertical].
     super initialize.
 ! !
 
@@ -97,5 +97,5 @@
 !MiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.8 1996-04-19 16:47:07 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.9 1996-04-19 16:49:07 ca Exp $'
 ! !