--- a/MenuEditor.st Mon Mar 06 21:14:32 2006 +0100
+++ b/MenuEditor.st Mon Mar 06 21:34:10 2006 +0100
@@ -397,7 +397,7 @@
'Selector returning an image (sent to above or the application).'
#keepLinkedMenu
-'Keep the linked menu after activation (do not destroy).'
+'Keep the linked menu after activation (do not destroy; rebuild menu for every activation).'
#sendToOriginator
'Send action-Message to widget (instead of application); only valid for PopUpMenus.'
@@ -1436,23 +1436,23 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Documentation'
- #translateLabel: true
- #value: #openDocumentation
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'About this Application'
- #translateLabel: true
- #value: #openAboutThisApplication
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Documentation'
+ #translateLabel: true
+ #value: #openDocumentation
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'About this Application...'
+ #translateLabel: true
+ #value: #openAboutThisApplication
+ )
+ )
+ nil
+ nil
)
! !
@@ -1465,7 +1465,7 @@
tool := UIHelpTool new.
tool masterApplication:self.
tool modifiedHolder: self enablingCommitButtonsHolder.
- tool builder window:(ApplicationSubView new client:tool).
+ tool builder window:(ApplicationSubView new client:tool spec:#innerSpec).
tool masterApplication:self.
tool
]
@@ -2136,15 +2136,15 @@
!MenuEditor methodsFor:'initialization & release'!
closeRequest
- "ask for modification
- "
+ "asks for permission before closing"
+
self enablingCommitButtonsHolder value ifTrue:[
self setModified.
self askForListModification.
modified ifTrue:[^ self].
self clearModified.
].
- ^ super closeRequest
+ super closeRequest
!
commonPostBuild
@@ -2199,8 +2199,8 @@
!
postOpenWith:aBuilder
- "reset keyboardProcessor for menuBar
- "
+ "reset keyboardProcessor for menuBar"
+
super postOpenWith: aBuilder.
aBuilder keyboardProcessor menuBar:nil.
self windowGroup addPreEventHook:self.