7 Dec
2013
7 Dec
'13
3:39 p.m.
Hi
just to let you know that trying to add an annotation in moosefinder does not work anymore
I get
mooseFinderMetanoolIn: composite
<moosePresentationOrder: 10>
composite magritte
title: 'Meta editor';
titleIcon: MooseIcons mooseEditor;
display: [:anObject | anObject mooseInterestingEntity ];
act: [:magritte |
| result annotationDescription |
annotationDescription := MTLAnnotationDescription new.
result := annotationDescription asMorph addButtons addWindow callInWorld.
^^^^^^^^^^^^^
DNU addButtons
(result notNil) ifTrue: [
magritte entity mooseInterestingEntity mooseDescription attributes add:
annotationDescription.
magritte update ] ]
icon: GLMUIThemeExtraIcons glamorousAdd entitled: 'Add annotation';
description: [ :anObject | anObject mooseDescription
asMagritteDescriptionWithAnnotations ]