equal
deleted
inserted
replaced
2615 cls isNil ifTrue:[ |
2615 cls isNil ifTrue:[ |
2616 self warn:'Class ', specClass asString, ' does not exist!!'. |
2616 self warn:'Class ', specClass asString, ' does not exist!!'. |
2617 ^ self |
2617 ^ self |
2618 ]. |
2618 ]. |
2619 |
2619 |
2620 (cls implements:selector) ifFalse:[ |
2620 (cls includesSelector:selector) ifFalse:[ |
2621 category := UserPreferences current categoryForMenuActionsMethods. |
2621 category := UserPreferences current categoryForMenuActionsMethods. |
2622 |
2622 |
2623 CodeGeneratorTool |
2623 CodeGeneratorTool |
2624 createActionMethodFor:selector in:cls |
2624 createActionMethodFor:selector in:cls |
2625 category:category |
2625 category:category |