--- 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.