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.
In Moose 4.7 the previous line open an empty window with save and cancel
in 4.6 it opens a name and list of type.
I checked and annotationDescription instance variables are exactly the same in both
version.
Now this is really complex to understand, since I do not know what changed in magritte in
addition.
Any idea?
Stef
self halt.
(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"
]