--- a/HorizontalSlider.st	Wed May 29 00:12:55 1996 +0200
+++ b/HorizontalSlider.st	Wed May 29 12:19:14 1996 +0200
@@ -57,15 +57,19 @@
 
     |w h|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     w := self class defaultExtent x.
     h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
     ^ w @ h.
 
-    "Modified: 23.4.1996 / 00:15:48 / cg"
+    "Modified: 29.5.1996 / 12:12:21 / cg"
 ! !
 
 !HorizontalSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.10 1996-04-25 17:22:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.11 1996-05-29 10:19:14 cg Exp $'
 ! !