--- a/HorizontalSlider.st	Mon Jul 03 04:35:33 1995 +0200
+++ b/HorizontalSlider.st	Sun Jul 23 05:13:10 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.4 1995-05-03 00:42:32 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.5 1995-07-23 03:12:40 claus Exp $
 '!
 
 !HorizontalSlider class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.4 1995-05-03 00:42:32 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.5 1995-07-23 03:12:40 claus Exp $
 "
 !
 
@@ -62,3 +62,12 @@
     orientation := #horizontal 
 ! !
 
+!HorizontalSlider methodsFor:'queries'!
+
+preferredExtent
+    |w h|
+
+    w := self class defaultExtent x.
+    h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
+    ^ w @ h.
+! !