DataSetColumn.st
changeset 2727 5cb5708a6982
parent 2710 fcfa161492ae
child 2862 3279303eabd8
--- 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 $'
 ! !