--- a/PullDownMenu.st	Thu Sep 22 14:55:20 2016 +0200
+++ b/PullDownMenu.st	Thu Sep 22 14:55:26 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -684,19 +686,19 @@
 !
 
 receiver:anObject 
-    "set the menu-receiver. Thats the one who gets the
-     messages (both from myself and from my submenus).
+    "set the menu-receiver. 
+     That's the one who gets the messages (both from myself and from my submenus).
      This only sets the receiver for menus which are already
      created - menus added later should get their receiver in
      the creation send."
 
     receiver := anObject.
     menus notNil ifTrue:[
-	menus do:[:aMenu |
-	    aMenu notNil ifTrue:[
-		aMenu receiver:anObject
-	    ]
-	]
+        menus do:[:aMenu |
+            aMenu notNil ifTrue:[
+                aMenu receiver:anObject
+            ]
+        ]
     ]
 !