ListView.st
changeset 6164 4fa5c4c68b5e
parent 6158 86279357c196
child 6179 85ed7184791d
--- a/ListView.st	Tue May 30 17:51:08 2017 +0200
+++ b/ListView.st	Tue May 30 17:52:48 2017 +0200
@@ -4118,19 +4118,20 @@
 !
 
 makeVisible:someString
-    "if nescessary, scroll to make the (first)
+    "if necessary, scroll to make the (first)
      line containing someString visible."
 
     |index list|
 
     (list := self list) notNil ifTrue:[
-	index := list indexOf:someString.
-	index ~~ 0 ifTrue:[
-	    self makeLineVisible:index
-	]
+        index := list indexOf:someString.
+        index ~~ 0 ifTrue:[
+            self makeLineVisible:index
+        ]
     ]
 
-    "Modified: 9.9.1997 / 10:10:13 / cg"
+    "Modified: / 09-09-1997 / 10:10:13 / cg"
+    "Modified (comment): / 30-05-2017 / 17:34:32 / mawalch"
 !
 
 needScrollToMakeLine:aListLineNr