oops
authorClaus Gittinger <cg@exept.de>
Mon, 06 Mar 2006 09:33:21 +0100
changeset 2019 fb6b725c7c8e
parent 2018 635babad51d3
child 2020 9de675480091
oops
MenuEditor.st
--- 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$'