Hmm. Is that in 4.9? Because in 5.0 the code is different indeed.
Doru
On Sat, Dec 7, 2013 at 3:39 PM, Stéphane Ducasse
<stephane.ducasse(a)inria.fr>wrote;wrote:
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 ]
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"