*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 06 Mar 2006 21:34:10 +0100
changeset 2036 f38451813c50
parent 2035 ea8ec7c3fbeb
child 2037 35576ff838ca
*** empty log message ***
MenuEditor.st
--- 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.