2341 ]. |
2341 ]. |
2342 ^ selectors asOrderedCollection |
2342 ^ selectors asOrderedCollection |
2343 ! |
2343 ! |
2344 |
2344 |
2345 doGenerateAspectMethods |
2345 doGenerateAspectMethods |
2346 "genearte aspect messages |
2346 "compile aspect and action methods" |
2347 " |
2347 |
2348 |cls redefineAspectMethods| |
2348 |cls redefineAspectMethods category| |
2349 |
2349 |
2350 specClass ifNil:[ |
2350 specClass ifNil:[ |
2351 self warn:'Define the class first !!'. |
2351 self warn:'Define the class first !!'. |
2352 ^ self |
2352 ^ self |
2353 ]. |
2353 ]. |
2354 redefineAspectMethods := self redefineAspectMethodsChannel value. |
2354 redefineAspectMethods := self redefineAspectMethodsChannel value. |
2355 |
2355 |
2356 cls := self resolveName:specClass. |
2356 cls := self resolveName:specClass. |
2357 cls ifNil:[ |
2357 cls ifNil:[ |
2358 self warn:'Class ', specClass asString, ' does not exist!!'. |
2358 self warn:'Class ', specClass asString, ' does not exist!!'. |
2359 ^ self |
2359 ^ self |
2360 ]. |
2360 ]. |
|
2361 |
|
2362 category := UserPreferences current categoryForMenuActionsMethods. |
2361 |
2363 |
2362 self collectActionSelectors do:[:aSelector| |
2364 self collectActionSelectors do:[:aSelector| |
2363 self createActionMethodFor:aSelector |
2365 self |
2364 in:cls |
2366 createActionMethodFor:aSelector in:cls |
2365 category:CodeGeneratorTool categoryForMenuActionsMethods |
2367 category:category |
2366 redefine:redefineAspectMethods. |
2368 redefine:redefineAspectMethods. |
2367 ]. |
2369 ]. |
2368 |
2370 |
2369 self collectAspectSelectors do:[:anAspect| |
2371 self collectAspectSelectors do:[:anAspect| |
2370 self createAspectMethodFor:anAspect |
2372 self |
2371 in:cls |
2373 createAspectMethodFor:anAspect in:cls |
2372 category:CodeGeneratorTool categoryForMenuActionsMethods |
2374 category:category |
2373 redefine:redefineAspectMethods |
2375 redefine:redefineAspectMethods |
2374 ]. |
2376 ]. |
2375 ! ! |
2377 ! ! |
2376 |
2378 |
2377 !MenuEditor methodsFor:'user actions-building'! |
2379 !MenuEditor methodsFor:'user actions-building'! |
2378 |
2380 |