DataSetColumn.st
changeset 1493 045378a0c25e
parent 1492 eefe55529016
child 1496 78d702c6c614
--- 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 $'
 ! !