--- a/HorizontalScroller.st	Wed May 11 17:09:24 2005 +0200
+++ b/HorizontalScroller.st	Wed May 11 18:37:05 2005 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg' }"
+
 Scroller subclass:#HorizontalScroller
 	instanceVariableNames:''
 	classVariableNames:''
@@ -43,24 +45,11 @@
 "
 ! !
 
-!HorizontalScroller methodsFor:'accessing-behavior'!
-
-scrollLeftAction:aBlock
-    "ignored -
-     but implemented, so that scroller can be used in place of a scrollbar"
-!
-
-scrollRightAction:aBlock
-    "ignored -
-     but implemented, so that scroller can be used in place of a scrollbar"
-! !
-
 !HorizontalScroller methodsFor:'initialization'!
 
 initialize
     orientation := #horizontal. 
     super initialize.
-    orientation := #horizontal.
 
     "Modified: / 7.3.1999 / 00:01:08 / cg"
 ! !
@@ -68,5 +57,5 @@
 !HorizontalScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.16 1999-03-07 13:26:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.17 2005-05-11 16:36:28 stefan Exp $'
 ! !