Ben
with pavel we are looking at Nautilus extensions because some of them should be
moved to the extended packages.
Now I was wondering why
TClassDescription is extended with menu see below.
I imagine that this is because you do not have a classWrapper for the UI. Is it
correct?
Then I wonder if there is not a pattern where we should wrap elements and
attach to the wrapper such behavior.
codeRewritingClass: aBuilder
| target |
target := aBuilder model.
(aBuilder item: #'Rewrite Code')
action: [ target refactor rewriteCode ];
parent: #'Code Rewriting';
order: 0.
(aBuilder item: #'Search Code')
action: [ target refactor searchCode ];
parent: #'Code Rewriting';
order: 100.
(aBuilder item: #'Type class')
action: [ target refactor typeClass ];
parent: #'Code Rewriting';
order: 200;
withSeparatorAfter.
(aBuilder item: #'Category Regex')
action: [ target refactor categoryRegex ];
parent: #'Code Rewriting';
order: 300.
(aBuilder item: #'Class Regex')
action: [ target refactor classRegex ];
parent: #'Code Rewriting';
order: 400.
(aBuilder item: #'Protocol Regex')
action: [ target refactor protocolRegex ];
parent: #'Code Rewriting';
order: 500.
(aBuilder item: #'Source Regex')
action: [ target refactor sourceRegex ];
parent: #'Code Rewriting';
order: 600;
withSeparatorAfter.
