--- a/ListView.st	Fri Nov 04 13:39:46 2016 +0100
+++ b/ListView.st	Fri Nov 04 16:09:22 2016 +0100
@@ -1331,7 +1331,7 @@
 
 setContents:something
     "set the contents (either a string or a Collection of strings)
-     dont change position (i.e. do not scroll).
+     don't change position (i.e. do not scroll).
      This can be used to update a self-changing list
      (for example: a file list being shown, without disturbing user too much).
      Compare with #contents:, which scrolls to top."
@@ -1340,9 +1340,9 @@
 
     l := something.
     l notNil ifTrue:[
-	l isString ifTrue:[
-	    l := l asStringCollection
-	]
+        l isString ifTrue:[
+            l := l asStringCollection
+        ]
     ].
     self setList:l.
 
@@ -3542,7 +3542,7 @@
 "/    nFullLinesShown ~~ nLinesShown ifTrue:[
 "/        numLines := numLines + 1
 "/    ].
-    ^ numLines * fontHeight "dont take font height here - think of LabelAndIcons"
+    ^ numLines * fontHeight "don't take font height here - think of LabelAndIcons"
 "/                            + textStartTop
                             - (lineSpacing // 2)
                             + (gc deviceFont descent)
@@ -4044,7 +4044,7 @@
     xVis := xWant - viewOrigin x.
 
     "
-     dont scroll, if already visible
+     don't scroll, if already visible
      (but scroll, if not in inner 20%..80% of visible area)
     "
 "/    ((xVis >= (width // 5)) and:[xVis <= (width * 4 // 5)]) ifTrue:[