--- a/ListView.st	Tue Oct 29 10:49:53 2002 +0100
+++ b/ListView.st	Tue Oct 29 11:18:16 2002 +0100
@@ -2918,7 +2918,7 @@
      need device-font for query
     "
     font := font onDevice:device.
-    ^ numLines * font height 
+    ^ numLines * fontHeight "dont take font height here - think of LabelAndIcons"
 "/                            + textStartTop
                             - (lineSpacing // 2)
                             + (font descent)
@@ -4458,5 +4458,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.275 2002-10-29 09:49:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.276 2002-10-29 10:18:16 cg Exp $'
 ! !