--- a/HorizontalMiniScroller.st	Fri May 19 18:41:01 1995 +0200
+++ b/HorizontalMiniScroller.st	Tue Jun 06 06:16:07 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.4 1995-06-06 04:13:41 claus Exp $
 '!
 
 !HorizontalMiniScroller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.4 1995-06-06 04:13:41 claus Exp $
 "
 !
 
@@ -52,9 +52,9 @@
 "
 ! !
 
-!HorizontalMiniScroller methodsFor:'initialization'!
+!HorizontalMiniScroller methodsFor:'queries'!
 
-computeInitialExtent
+preferredExtent
     "make my height very small"
 
     |w h mm|
@@ -62,14 +62,16 @@
     w := self class defaultExtent x.
     mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
     h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
-    self extent:w @ h.
-!
+    ^ w @ h.
+! !
+
+!HorizontalMiniScroller methodsFor:'initialization'!
 
 initStyle
     |style lvl|
 
     super initStyle.
-    style := StyleSheet name.
+    style := styleSheet name.
     style == #iris ifTrue:[
 	tallyLevel := 0.
 	tallyMarks := 0.