--- a/ListModelView.st	Thu Dec 09 12:16:01 1999 +0100
+++ b/ListModelView.st	Fri Dec 10 12:07:01 1999 +0100
@@ -694,7 +694,7 @@
 displayElement:anItem x:x y:y h:h
     "draw a label at x/y; fg/bg colors are already set
     "
-    |ok
+    |ok label
      y0 "{ Class: SmallInteger }"
     |
     supportsDisplayInRange isNil ifTrue:[
@@ -703,14 +703,16 @@
     supportsDisplayInRange ifTrue:[
         anItem displayOn:self x:x y:y h:h
     ] ifFalse:[
-        y0 := y - ((anItem heightOn:self) + 1 - h // 2).
+        y0    := y - ((anItem heightOn:self) + 1 - h // 2).
+        label := anItem.
 
-        anItem isImageOrForm ifFalse:[
-            (anItem isString or:[anItem isKindOf:LabelAndIcon]) ifTrue:[
-                y0 := y0 + font ascent
-            ]
+        label isImageOrForm ifFalse:[
+            label isNumber ifTrue:[
+                label := label printString
+            ].
+            y0 := y0 + font ascent
         ].
-        anItem displayOn:self x:x y:y0
+        label displayOn:self x:x y:y0
     ]
 
 
@@ -1493,6 +1495,6 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.31 1999-12-08 20:49:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.32 1999-12-10 11:07:01 ps Exp $'
 ! !
 ListModelView initialize!