--- a/DataSetColumn.st Sat Aug 28 18:51:22 1999 +0200
+++ b/DataSetColumn.st Sat Aug 28 19:21:34 1999 +0200
@@ -233,6 +233,11 @@
^ width
].
+ (descWidth ~~ 0 and:[descWidth isReal not]) ifTrue:[
+ width := descMinWidth := descWidth.
+ ^ width
+ ].
+
width := description minWidth max:(label preferredWidth).
descWidth isReal ifTrue:[
@@ -252,9 +257,14 @@
description editorType ~~ #None ifTrue:[
width := width + (dataSet font widthOn:dataSet device)
].
+ ] ifFalse:[
+ max := 1
].
width := width + buttonExtent x + dataSet separatorSize + (2 * dataSet horizontalSpacing).
- descMinWidth := width.
+
+ max ~~ 0 ifTrue:[
+ descMinWidth := width
+ ].
^ width
@@ -894,5 +904,5 @@
!DataSetColumn class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.48 1999-08-28 16:50:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.49 1999-08-28 17:21:34 cg Exp $'
! !