--- a/HorizontalMiniScroller.st	Wed Apr 17 14:06:06 1996 +0200
+++ b/HorizontalMiniScroller.st	Wed Apr 17 14:06:50 1996 +0200
@@ -10,11 +10,11 @@
  hereby transferred.
 "
 
-HorizontalScroller subclass:#HorizontalMiniScroller
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Interactors'
+MiniScroller subclass:#HorizontalMiniScroller
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Interactors'
 !
 
 !HorizontalMiniScroller class methodsFor:'documentation'!
@@ -39,47 +39,33 @@
 "
 ! !
 
+!HorizontalMiniScroller methodsFor:'accessing-behavior'!
+
+scrollLeftAction:aBlock
+    "ignored -
+     but implemented, so that scroller can be used in place of a scrollbar"
+
+    "Created: 17.4.1996 / 14:04:29 / cg"
+!
+
+scrollRightAction:aBlock
+    "ignored -
+     but implemented, so that scroller can be used in place of a scrollbar"
+
+    "Created: 17.4.1996 / 14:04:30 / cg"
+! !
+
 !HorizontalMiniScroller methodsFor:'initialization'!
 
-initStyle
-    |style lvl|
+initialize
+    super initialize.
+    orientation := #horizontal
 
-    super initStyle.
-    style := styleSheet name.
-    style == #iris ifTrue:[
-	tallyLevel := 0.
-	tallyMarks := 0.
-	thumbEdgeStyle := nil.
-	thumbLevel := 2.
-    ].
-    ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
-	style == #st80 ifTrue:[
-	    lvl := inset := 1.
-	] ifFalse:[
-	    lvl := -1.
-	].
-	self level:lvl.
-	self borderWidth:0
-    ].
-    shadowForm := lightForm := nil.
-    fixThumbHeight := false
-! !
-
-!HorizontalMiniScroller methodsFor:'queries'!
-
-preferredExtent
-    "make my height very small"
-
-    |w h mm|
-
-    w := self class defaultExtent x.
-    mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
-    h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
-    ^ w @ h.
+    "Created: 17.4.1996 / 14:01:26 / cg"
 ! !
 
 !HorizontalMiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.6 1995-11-23 18:18:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.7 1996-04-17 12:06:50 cg Exp $'
 ! !