diff -r 9a9900c1372b -r 5cb5708a6982 DataSetColumn.st --- a/DataSetColumn.st Wed Jun 23 11:33:07 2004 +0200 +++ b/DataSetColumn.st Sat Jun 26 21:29:15 2004 +0200 @@ -228,8 +228,8 @@ ! backgroundColorFor:aRow at:aRowNr - "returns the background color for a row at list index a rowNr - " + "return the background color for a row at list index a rowNr" + |bgSelector bg| bgSelector := description backgroundSelector. @@ -243,7 +243,7 @@ (bg isColor or:[bg isImageOrForm]) ifTrue:[ ^ bg ]. - self halt:'unexpected bg (not color or image)'. + self error:'unexpected background (not a color or image)'. ] ]. ^ backgroundColor @@ -275,7 +275,7 @@ (fg isColor or:[fg isImageOrForm]) ifTrue:[ ^ fg ]. - self halt:'unexpected fg (not color or image)'. + self error:'unexpected foreground (not a color or image)'. ] ]. ^ foregroundColor @@ -297,7 +297,7 @@ (bg isColor or:[bg isImageOrForm]) ifTrue:[ ^ bg ]. - self halt:'unexpected bg (not color or image)'. + self error:'unexpected background (not a color or image)'. ] ]. bg := description selectedBackgroundColor. @@ -323,7 +323,7 @@ (fg isColor or:[fg isImageOrForm]) ifTrue:[ ^ fg ]. - self halt:'unexpected fg (not color or image)'. + self error:'unexpected foreground (not a color or image)'. ] ]. fg := description selectedForegroundColor. @@ -804,9 +804,6 @@ "/ ]. "/ format := '%0.', idx printString, 'f'. - value isLimitedPrecisionReal ifTrue:[ - value := value asFloat. - ]. value := value printfPrintString:format ]. @@ -1163,5 +1160,5 @@ !DataSetColumn class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.97 2004-05-27 14:26:48 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.98 2004-06-26 19:29:15 stefan Exp $' ! !