MenuEditor.st
changeset 2017 842d445b706a
parent 2011 d323a2d0dbfc
child 2019 fb6b725c7c8e
--- a/MenuEditor.st	Mon Mar 06 09:29:07 2006 +0100
+++ b/MenuEditor.st	Mon Mar 06 09:30:18 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
     ]
@@ -1656,12 +1656,6 @@
     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"
 
@@ -1693,6 +1687,12 @@
     ].
     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
-    "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.
@@ -5638,7 +5638,7 @@
   ^ width
 ! !
 
-!MenuEditor class methodsFor:'documentation'!
+!MenuE Vý Výass methodsFor:'documentation'!
 
 version
     ^ '$Header$'