annotations in MooseFinder are broken

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
7 messages Options
Reply | Threaded
Open this post in threaded view
|

annotations in MooseFinder are broken

Stéphane Ducasse
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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Tudor Girba-2
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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



--

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Stéphane Ducasse
In reply to this post by Stéphane Ducasse
in Moose 4.7

annotationDescription asMorph  
        returns a MAContainerMorph


while in 4.9 it returns a stringMorph


Stef

On Dec 7, 2013, at 3:39 PM, Stéphane Ducasse <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Stéphane Ducasse
In reply to this post by Tudor Girba-2
Yes this is in 4.9 

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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



--

"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Stéphane Ducasse
In reply to this post by Tudor Girba-2
I will try with 5.0. 
I want to use Pharo3.0 latest because I need some fixes I pushed recently in Pharo to analyse Smalltalk code.

Stef

On Dec 7, 2013, at 3:45 PM, Tudor Girba <[hidden email]> wrote:

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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



--

"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Stéphane Ducasse
ok it is working on 50.
With ben we want to have a look at the bootstrap of FAME and I also would like to understand hwo to change these default strings for annotations.

Stef


I will try with 5.0. 
I want to use Pharo3.0 latest because I need some fixes I pushed recently in Pharo to analyse Smalltalk code.

Stef

On Dec 7, 2013, at 3:45 PM, Tudor Girba <[hidden email]> wrote:

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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



--

"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: annotations in MooseFinder are broken

Tudor Girba-2
Magritte changed asMorph in asMagritteMorph. The issue is fixed in 5.0, but it seems that 4.9 still has it.

Doru


On Sat, Dec 7, 2013 at 4:15 PM, Stéphane Ducasse <[hidden email]> wrote:
ok it is working on 50.
With ben we want to have a look at the bootstrap of FAME and I also would like to understand hwo to change these default strings for annotations.

Stef


I will try with 5.0. 
I want to use Pharo3.0 latest because I need some fixes I pushed recently in Pharo to analyse Smalltalk code.

Stef

On Dec 7, 2013, at 3:45 PM, Tudor Girba <[hidden email]> wrote:

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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



--

"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev



_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




--

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev