equal
deleted
inserted
replaced
395 |
395 |
396 #imageSelector |
396 #imageSelector |
397 'Selector returning an image (sent to above or the application).' |
397 'Selector returning an image (sent to above or the application).' |
398 |
398 |
399 #keepLinkedMenu |
399 #keepLinkedMenu |
400 'Keep the linked menu after activation (do not destroy).' |
400 'Keep the linked menu after activation (do not destroy; rebuild menu for every activation).' |
401 |
401 |
402 #sendToOriginator |
402 #sendToOriginator |
403 'Send action-Message to widget (instead of application); only valid for PopUpMenus.' |
403 'Send action-Message to widget (instead of application); only valid for PopUpMenus.' |
404 |
404 |
405 #settingsRedefineAspectMethods |
405 #settingsRedefineAspectMethods |
1434 |
1434 |
1435 <resource: #menu> |
1435 <resource: #menu> |
1436 |
1436 |
1437 ^ |
1437 ^ |
1438 #(#Menu |
1438 #(#Menu |
1439 #( |
1439 #( |
1440 #(#MenuItem |
1440 #(#MenuItem |
1441 #label: 'Documentation' |
1441 #label: 'Documentation' |
1442 #translateLabel: true |
1442 #translateLabel: true |
1443 #value: #openDocumentation |
1443 #value: #openDocumentation |
1444 ) |
1444 ) |
1445 #(#MenuItem |
1445 #(#MenuItem |
1446 #label: '-' |
1446 #label: '-' |
1447 ) |
1447 ) |
1448 #(#MenuItem |
1448 #(#MenuItem |
1449 #label: 'About this Application' |
1449 #label: 'About this Application...' |
1450 #translateLabel: true |
1450 #translateLabel: true |
1451 #value: #openAboutThisApplication |
1451 #value: #openAboutThisApplication |
1452 ) |
1452 ) |
1453 ) |
1453 ) |
1454 nil |
1454 nil |
1455 nil |
1455 nil |
1456 ) |
1456 ) |
1457 ! ! |
1457 ! ! |
1458 |
1458 |
1459 !MenuEditor methodsFor:'accessing'! |
1459 !MenuEditor methodsFor:'accessing'! |
1460 |
1460 |
1463 " |
1463 " |
1464 ^ wizards at:#help ifAbsentPut:[ |tool| |
1464 ^ wizards at:#help ifAbsentPut:[ |tool| |
1465 tool := UIHelpTool new. |
1465 tool := UIHelpTool new. |
1466 tool masterApplication:self. |
1466 tool masterApplication:self. |
1467 tool modifiedHolder: self enablingCommitButtonsHolder. |
1467 tool modifiedHolder: self enablingCommitButtonsHolder. |
1468 tool builder window:(ApplicationSubView new client:tool). |
1468 tool builder window:(ApplicationSubView new client:tool spec:#innerSpec). |
1469 tool masterApplication:self. |
1469 tool masterApplication:self. |
1470 tool |
1470 tool |
1471 ] |
1471 ] |
1472 ! |
1472 ! |
1473 |
1473 |
2134 ! ! |
2134 ! ! |
2135 |
2135 |
2136 !MenuEditor methodsFor:'initialization & release'! |
2136 !MenuEditor methodsFor:'initialization & release'! |
2137 |
2137 |
2138 closeRequest |
2138 closeRequest |
2139 "ask for modification |
2139 "asks for permission before closing" |
2140 " |
2140 |
2141 self enablingCommitButtonsHolder value ifTrue:[ |
2141 self enablingCommitButtonsHolder value ifTrue:[ |
2142 self setModified. |
2142 self setModified. |
2143 self askForListModification. |
2143 self askForListModification. |
2144 modified ifTrue:[^ self]. |
2144 modified ifTrue:[^ self]. |
2145 self clearModified. |
2145 self clearModified. |
2146 ]. |
2146 ]. |
2147 ^ super closeRequest |
2147 super closeRequest |
2148 ! |
2148 ! |
2149 |
2149 |
2150 commonPostBuild |
2150 commonPostBuild |
2151 self autoAcceptOnSelectionChange addDependent:self. |
2151 self autoAcceptOnSelectionChange addDependent:self. |
2152 self autoAcceptOnSelectionChange value ifTrue:[ |
2152 self autoAcceptOnSelectionChange value ifTrue:[ |
2197 postBuildNoteBook:aNoteBook |
2197 postBuildNoteBook:aNoteBook |
2198 aNoteBook tabLabelInset:16@4. |
2198 aNoteBook tabLabelInset:16@4. |
2199 ! |
2199 ! |
2200 |
2200 |
2201 postOpenWith:aBuilder |
2201 postOpenWith:aBuilder |
2202 "reset keyboardProcessor for menuBar |
2202 "reset keyboardProcessor for menuBar" |
2203 " |
2203 |
2204 super postOpenWith: aBuilder. |
2204 super postOpenWith: aBuilder. |
2205 aBuilder keyboardProcessor menuBar:nil. |
2205 aBuilder keyboardProcessor menuBar:nil. |
2206 self windowGroup addPreEventHook:self. |
2206 self windowGroup addPreEventHook:self. |
2207 ! ! |
2207 ! ! |
2208 |
2208 |