--- a/HorizontalScroller.st	Tue Apr 16 20:48:22 1996 +0200
+++ b/HorizontalScroller.st	Wed Apr 17 14:06:06 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Scroller subclass:#HorizontalScroller
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Interactors'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Interactors'
 !
 
 !HorizontalScroller class methodsFor:'documentation'!
@@ -59,18 +59,8 @@
     orientation := #horizontal 
 ! !
 
-!HorizontalScroller methodsFor:'queries'!
-
-preferredExtent
-    |w h|
-
-    w := self class defaultExtent x.
-    h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
-    ^ w @ h.
-! !
-
 !HorizontalScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.12 1995-11-23 18:18:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.13 1996-04-17 12:06:06 cg Exp $'
 ! !