--- 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:[