--- 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
)
! !