--- a/UIHelpTool.st	Thu Dec 04 17:54:45 2003 +0100
+++ b/UIHelpTool.st	Fri Dec 19 13:33:44 2003 +0100
@@ -443,67 +443,65 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-	#(
-	 #(#MenuItem
-	    #label: 'File'
-	    #translateLabel: true
-	    #submenu: 
-	   #(#Menu
-	      #(
-	       #(#MenuItem
-		  #activeHelpKey: #fileLoad
-		  #label: 'Load...'
-		  #itemValue: #doLoad
-		  #translateLabel: true
-		)
-	       #(#MenuItem
-		  #activeHelpKey: #fileSave
-		  #label: 'Save'
-		  #itemValue: #doSave
-		  #translateLabel: true
-		)
-	       #(#MenuItem
-		  #label: 'New'
-		  #itemValue: #doNew
-		  #translateLabel: true
-		)
-	       #(#MenuItem
-		  #label: '-'
-		)
-	       #(#MenuItem
-		  #activeHelpKey: #fileExit
-		  #label: 'Exit'
-		  #itemValue: #closeRequest
-		  #translateLabel: true
-		)
-	       )
-	      nil
-	      nil
-	    )
-	  )
-	 #(#MenuItem
-	    #activeHelpKey: #history
-	    #label: 'History'
-	    #translateLabel: true
-	    #submenuChannel: #menuHistory
-	  )
-	 #(#MenuItem
-	    #label: 'Edit'
-	    #translateLabel: true
-	    #submenuChannel: #keyItemMenu
-	    #keepLinkedMenu: true
-	  )
-	 #(#MenuItem
-	    #activeHelpKey: #help
-	    #label: 'Help'
-	    #translateLabel: true
-	    #startGroup: #right
-	    #submenuChannel: #menuHelp
-	  )
-	 )
-	nil
-	nil
+     #(Menu
+        (
+         (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: fileLoad
+                  label: 'Load...'
+                  itemValue: doLoad
+                  translateLabel: true
+                )
+               (MenuItem
+                  activeHelpKey: fileSave
+                  label: 'Save'
+                  itemValue: doSave
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: 'New'
+                  itemValue: doNew
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  activeHelpKey: fileExit
+                  label: 'Exit'
+                  itemValue: closeRequest
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: 'History'
+            translateLabel: true
+            submenuChannel: menuHistory
+          )
+         (MenuItem
+            label: 'Edit'
+            translateLabel: true
+            submenuChannel: keyItemMenu
+            keepLinkedMenu: true
+          )
+         (MenuItem
+            label: 'Help'
+            translateLabel: true
+            startGroup: right
+            submenuChannel: menuHelp
+          )
+         )
+        nil
+        nil
       )
 ! !