--- a/HorizontalSlider.st	Sun Oct 26 21:13:52 2008 +0100
+++ b/HorizontalSlider.st	Sun Oct 26 21:14:50 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 Slider subclass:#HorizontalSlider
@@ -61,8 +60,12 @@
 
     |w h|
 
-    "/ If I have an explicit preferredExtent ..
+    "/ If I have an explicit preferredExtent..
+    explicitExtent notNil ifTrue:[
+        ^ explicitExtent
+    ].
 
+    "/ If I have a cached preferredExtent value..
     preferredExtent notNil ifTrue:[
         ^ preferredExtent
     ].
@@ -79,5 +82,5 @@
 !HorizontalSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.16 2005-05-11 16:36:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.17 2008-10-26 20:14:50 stefan Exp $'
 ! !