--- a/MenuEditor.st Mon Mar 06 09:30:37 2006 +0100
+++ b/MenuEditor.st Mon Mar 06 09:33:21 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; rebuild menu for every activation).'
+'Keep the linked menu after activation (do not destroy).'
#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 spec:#innerSpec).
+ tool builder window:(ApplicationSubView new client:tool).
tool masterApplication:self.
tool
]
@@ -1656,6 +1656,12 @@
self updateHistory.
!
+buildFromResourceSpec:aResourceSpec
+ "rebuild the menu from a resource spec"
+
+ self buildFromMenu:aResourceSpec selector:nil
+!
+
loadFromClass:aClass andSelector:aSelector
"rebuild menu from a class and selector"
@@ -1687,12 +1693,6 @@
].
self buildFromMenu:menu selector:aSelector.
self clearModified.
-!
-
-loadFromResourceSpec:aResourceSpec
- "rebuild the menu from a resource spec"
-
- self buildFromMenu:aResourceSpec selector:nil
! !
!MenuEditor methodsFor:'change & update'!
@@ -2136,15 +2136,15 @@
!MenuEditor methodsFor:'initialization & release'!
closeRequest
- "asks for permission before closing"
-
+ "ask for modification
+ "
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.
@@ -5638,7 +5638,7 @@
^ width
! !
-!MenuE Vù Vùass methodsFor:'documentation'!
+!MenuEditor class methodsFor:'documentation'!
version
^ '$Header$'