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