--- a/DataSetColumn.st	Thu Mar 26 12:55:16 2009 +0100
+++ b/DataSetColumn.st	Thu Mar 26 15:36:50 2009 +0100
@@ -477,7 +477,8 @@
     columnAlignment == #left ifTrue:[
         x  := xLeft + space.
     ] ifFalse:[
-        columnAlignment == #decimal ifTrue:[
+        (columnAlignment == #decimal
+        or:[ columnAlignment == #decimalRight ]) ifTrue:[
             drawnLabel := drawnLabel asString.
             (drawnLabel includes:$.) ifTrue:[
                 leftPart := drawnLabel upTo:$..
@@ -493,7 +494,13 @@
                 ].
             ].
             leftShift := leftPart widthOn:dataSet.
-            x := (cashedWidth // 2) - leftShift.
+            columnAlignment == #decimalRight ifTrue:[
+                "/ decimal at the right
+                x := (cashedWidth) - ('9999' widthOn:dataSet) - leftShift.
+            ] ifFalse:[
+                "/ decimal at the middle
+                x := (cashedWidth // 2) - leftShift.
+            ].
         ] ifFalse:[
             x := cashedWidth - labelWidth.
 
@@ -1290,5 +1297,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.123 2009-03-26 11:55:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.124 2009-03-26 14:36:50 cg Exp $'
 ! !