--- a/ListModelView.st	Tue Mar 06 13:40:46 2001 +0100
+++ b/ListModelView.st	Wed Mar 07 16:37:09 2001 +0100
@@ -362,6 +362,28 @@
         ]
     ]
 
+!
+
+lineSpacing
+    "get the lineSpacing - thats an additional number of pixels,
+     by which lines are vertically separated.
+    "
+    ^ lineSpacing
+!
+
+lineSpacing:aNumber
+    "set the lineSpacing - thats an additional number of pixels,
+     by which lines are vertically separated.
+    "
+    lineSpacing ~= aNumber ifTrue:[
+        lineSpacing := aNumber.
+
+        self recomputeHeightOfContents.
+
+        shown ifTrue:[
+            self invalidate
+        ]
+    ]
 ! !
 
 !ListModelView methodsFor:'accessing-mvc'!
@@ -1612,6 +1634,6 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.50 2000-09-19 09:05:17 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.51 2001-03-07 15:37:09 martin Exp $'
 ! !
 ListModelView initialize!