equal
deleted
inserted
replaced
2616 ]. |
2616 ]. |
2617 |
2617 |
2618 (cls includesSelector:selector) ifFalse:[ |
2618 (cls includesSelector:selector) ifFalse:[ |
2619 category := UserPreferences current categoryForMenuActionsMethods. |
2619 category := UserPreferences current categoryForMenuActionsMethods. |
2620 |
2620 |
2621 CodeGeneratorTool |
2621 SmalltalkCodeGeneratorTool |
2622 createActionMethodFor:selector in:cls |
2622 createActionMethodFor:selector in:cls |
2623 category:category |
2623 category:category |
2624 redefine:(self redefineAspectMethodsChannel value). |
2624 redefine:(self redefineAspectMethodsChannel value). |
2625 ]. |
2625 ]. |
2626 |
2626 |
2627 UserPreferences current systemBrowserClass openInClass:cls selector:selector |
2627 UserPreferences current systemBrowserClass openInClass:cls selector:selector |
2628 |
2628 |
2629 "Created: / 21-10-2010 / 14:07:32 / cg" |
2629 "Created: / 21-10-2010 / 14:07:32 / cg" |
|
2630 "Modified: / 31-01-2011 / 18:28:59 / cg" |
2630 ! |
2631 ! |
2631 |
2632 |
2632 doBrowseEnabledMethod |
2633 doBrowseEnabledMethod |
2633 "open a browser on the enabled method (create if not yet existing)" |
2634 "open a browser on the enabled method (create if not yet existing)" |
2634 |
2635 |
2663 ]. |
2664 ]. |
2664 |
2665 |
2665 category := UserPreferences current categoryForMenuActionsMethods. |
2666 category := UserPreferences current categoryForMenuActionsMethods. |
2666 |
2667 |
2667 self collectActionSelectors do:[:aSelector| |
2668 self collectActionSelectors do:[:aSelector| |
2668 CodeGeneratorTool |
2669 SmalltalkCodeGeneratorTool |
2669 createActionMethodFor:aSelector in:cls |
2670 createActionMethodFor:aSelector in:cls |
2670 category:category |
2671 category:category |
2671 redefine:redefineAspectMethods. |
2672 redefine:redefineAspectMethods. |
2672 ]. |
2673 ]. |
2673 |
2674 |
2674 self collectAspectSelectors do:[:anAspect| |
2675 self collectAspectSelectors do:[:anAspect| |
2675 CodeGeneratorTool |
2676 SmalltalkCodeGeneratorTool |
2676 createAspectMethodFor:anAspect in:cls |
2677 createAspectMethodFor:anAspect in:cls |
2677 category:category |
2678 category:category |
2678 redefine:redefineAspectMethods |
2679 redefine:redefineAspectMethods |
2679 ]. |
2680 ]. |
|
2681 |
|
2682 "Modified: / 31-01-2011 / 18:29:06 / cg" |
2680 ! ! |
2683 ! ! |
2681 |
2684 |
2682 !MenuEditor methodsFor:'user actions-building'! |
2685 !MenuEditor methodsFor:'user actions-building'! |
2683 |
2686 |
2684 doChooseAMenu |
2687 doChooseAMenu |