GLMUIThemeExtraIcons glamorousAdd entitled: 'Add annotation' -> DNU - Moose-dev

9 Apr 2012

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