--- 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 $'
! !