mooseFinderMetanoolIn: composite
<moosePresentationOrder: 10>
composite magritte
title: 'Meta editor';
titleIcon: MooseIcons mooseEditor;
display: [:anObject | anObject mooseInterestingEntity ];
act: [:m |
| result annotationDescription |
annotationDescription := MTLAnnotationDescription new.
result := annotationDescription asMorph addButtons addWindow callInWorld.
(result notNil) ifTrue: [
m entity mooseInterestingEntity mooseDescription attributes add:
annotationDescription.
m update ] ]
icon: GLMUIThemeExtraIcons glamorousAdd entitled: 'Add annotation';
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
description: [ :anObject |
| description |
description := MAContainer new.
description label: anObject mooseDescription name.
anObject mooseDescription allAttributes do: [ :attribute |
(attribute isKindOf: MTLAnnotationDescription) ifTrue: [
description add: attribute asMagritteDescription ] ].
description
"anObject mooseDescription asMagritteDescription"
]
in the method above I wanted to know whether I got the + of the annotation and
when I execute
GLMUIThemeExtraIcons glamorousAdd entitled: 'Add annotation'
It says DNU entitled:
So I wonder how the code can work.
Any idea.
Stef