oops - infoprint
authorClaus Gittinger <cg@exept.de>
Mon, 08 Mar 1999 13:37:54 +0100
changeset 1776 b1aef4f87b44
parent 1775 8ef9fab69bf9
child 1777 02cb89b249f1
oops - infoprint
ListView.st
--- a/ListView.st	Mon Mar 08 12:59:31 1999 +0100
+++ b/ListView.st	Mon Mar 08 13:37:54 1999 +0100
@@ -1864,10 +1864,7 @@
 
     done := (posLeft <= xRel) and:[posRight > xRel].
 
-'' printCR.
     [done] whileFalse:[
-    posLeft print. ' ' print.
-    posRight printCR.
         oPosRight := posRight.
         oPosLeft := posLeft.
 
@@ -3871,5 +3868,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.187 1999-03-08 11:59:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.188 1999-03-08 12:37:54 cg Exp $'
 ! !