--- a/DeviceWorkstation.st	Fri Nov 04 16:00:30 2016 +0100
+++ b/DeviceWorkstation.st	Fri Nov 04 16:03:09 2016 +0100
@@ -2004,7 +2004,7 @@
 !
 
 hasColors:aBoolean
-    "set the hasColors flag - needed since some servers dont tell the
+    "set the hasColors flag - needed since some servers don't tell the
      truth if a monochrome monitor is connected to a color server.
      Clearing the hasColors flag in the rc file will force use of grey
      colors (which might make a difference, since some colors are hard to
@@ -3568,13 +3568,13 @@
 colorNamed:aString
     "allocate a color with color name - return the color index (i.e. colorID).
      Only a subset of the colorNames are available on all displays;
-     therefore, dont use this method; at least only for the common names such as red, green, blue etc."
+     therefore, don't use this method; at least only for the common names such as red, green, blue etc."
 
     ^ self
-	getScaledRGBFromName:aString
-	into:[:r :g :b |
-	    self colorScaledRed:r scaledGreen:g scaledBlue:b
-	]
+        getScaledRGBFromName:aString
+        into:[:r :g :b |
+            self colorScaledRed:r scaledGreen:g scaledBlue:b
+        ]
 
     "
      Screen current colorNamed:'red'
@@ -7083,7 +7083,7 @@
 
 leftShiftDown
     "return true, if the left shift-key is currently pressed.
-     Here, we dont differentiate between left and right shift keys."
+     Here, we don't differentiate between left and right shift keys."
 
     ^ shiftDown
 
@@ -7106,7 +7106,7 @@
 
 rightShiftDown
     "return true, if the right shift-key is currently pressed.
-     Here, we dont differentiate between left and right shift keys."
+     Here, we don't differentiate between left and right shift keys."
 
     ^ shiftDown