--- a/HorizontalScroller.st	Fri May 19 18:41:01 1995 +0200
+++ b/HorizontalScroller.st	Tue Jun 06 06:16:07 1995 +0200
@@ -14,7 +14,7 @@
 
 the scroller part of a horizontal scrollbar
 
-$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.7 1995-05-12 18:24:19 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.8 1995-06-06 04:13:54 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -37,3 +37,12 @@
      but implemented, so that scroller can be used in place of a scrollbar"
 ! !
 
+!HorizontalScroller methodsFor:'queries'!
+
+preferredExtent
+    |w h|
+
+    w := self class defaultExtent x.
+    h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
+    ^ w @ h.
+! !