--- a/HorizontalSlider.st	Sat Apr 20 14:40:11 1996 +0200
+++ b/HorizontalSlider.st	Tue Apr 23 00:20:51 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Slider subclass:#HorizontalSlider
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Interactors'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Interactors'
 !
 
 !HorizontalSlider class methodsFor:'documentation'!
@@ -50,15 +50,19 @@
 !HorizontalSlider methodsFor:'queries'!
 
 preferredExtent
+    "return the views preferredExtent."
+
     |w h|
 
     w := self class defaultExtent x.
     h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
     ^ w @ h.
+
+    "Modified: 23.4.1996 / 00:15:48 / cg"
 ! !
 
 !HorizontalSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.8 1995-11-23 18:17:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.9 1996-04-22 22:19:53 cg Exp $'
 ! !