--- a/HVScrView.st	Mon Apr 22 23:42:27 1996 +0200
+++ b/HVScrView.st	Tue Apr 23 00:20:42 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 ScrollableView subclass:#HVScrollableView
-	 instanceVariableNames:'hScrollBar'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Basic'
+	instanceVariableNames:'hScrollBar'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Basic'
 !
 
 !HVScrollableView class methodsFor:'documentation'!
@@ -264,20 +264,24 @@
 !HVScrollableView methodsFor:'queries'!
 
 preferredExtent
+    "return the components preferredExtent."
+
     |pref m2|
 
     scrolledView notNil ifTrue:[ 
-	m2 := innerMargin * 2.
-	pref := scrolledView preferredExtent.
-	^ (pref x + scrollBar width + m2) 
-	  @ 
-	  (pref y + hScrollBar height + m2).
+        m2 := innerMargin * 2.
+        pref := scrolledView preferredExtent.
+        ^ (pref x + scrollBar width + m2) 
+          @ 
+          (pref y + hScrollBar height + m2).
     ].
     ^ super preferredExtent.
+
+    "Modified: 23.4.1996 / 00:15:25 / cg"
 ! !
 
 !HVScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HVScrView.st,v 1.14 1995-11-27 22:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HVScrView.st,v 1.15 1996-04-22 22:20:01 cg Exp $'
 ! !