MenuPanel.st
changeset 5257 2ccd5c374e0b
parent 5248 b869436ed677
child 5260 c36548c31c27
child 5276 424244db8cc0
--- a/MenuPanel.st	Thu Sep 22 15:12:51 2016 +0200
+++ b/MenuPanel.st	Thu Sep 22 15:13:34 2016 +0200
@@ -1385,7 +1385,7 @@
 !
 
 menuPerformer:anObject
-    "set the menu-receiver. Thats the one who gets the messages ( both from myself and
+    "set the menu-receiver. That's the one who gets the messages ( both from myself and
      from all submenus no specific receiver is defined )."
 
     ^ self receiver:anObject
@@ -1430,17 +1430,17 @@
 !
 
 receiver
-    "get the menu-receiver. Thats the one who gets the messages ( both from myself and
+    "get the menu-receiver. That's the one who gets the messages ( both from myself and
      from all submenus no specific receiver is defined )."
 
     (receiver isNil and:[superMenu notNil]) ifTrue:[
-	^ superMenu receiver
+        ^ superMenu receiver
     ].
   ^ receiver
 !
 
 receiver:anObject
-    "set the menu-receiver. Thats the one who gets the messages ( both from myself and
+    "set the menu-receiver. That's the one who gets the messages ( both from myself and
      from all submenus no specific receiver is defined )."
 
     receiver := anObject
@@ -4651,7 +4651,7 @@
 
     super fetchDeviceResources.
 
-    "/ thats a kludge - will be replaced by values from the styleSheet ...
+    "/ that's a kludge - will be replaced by values from the styleSheet ...
     "/ (i.e. read menu.buttonActiveLevel & menu.buttonPassiveLevel)
 
     superMenu isNil ifTrue:[