ComboView.st
changeset 285 a33d83de3849
parent 283 7441b4d65776
child 302 8af5f51ce7a5
--- a/ComboView.st	Wed Jan 22 18:17:59 1997 +0100
+++ b/ComboView.st	Thu Jan 23 02:36:53 1997 +0100
@@ -338,13 +338,15 @@
 !ComboView methodsFor:'queries'!
 
 preferredExtent
+    "compute & return the boxes preferredExtent from the components' preferrences"
+
     |pref1 pref2 m mPrefX|
 
     list isNil ifTrue:[
-	mPrefX := 0
+        mPrefX := 0
     ] ifFalse:[
-	m := MenuView labels:list.
-	mPrefX := m preferredExtent x.
+        m := MenuView labels:list.
+        mPrefX := m preferredExtent x.
     ].
 
     pref1 := field preferredExtent.
@@ -352,7 +354,7 @@
     ^ ((pref1 x + pref2 x) max:mPrefX) @ (pref1 y max:pref2 y)
 
     "Created: 28.2.1996 / 15:03:17 / cg"
-    "Modified: 28.2.1996 / 15:06:15 / cg"
+    "Modified: 23.1.1997 / 02:35:29 / cg"
 ! !
 
 !ComboView methodsFor:'user interaction'!
@@ -409,5 +411,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.16 1997-01-21 17:16:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.17 1997-01-23 01:36:53 cg Exp $'
 ! !