Issue 994 in moose-technology: Navigating in Moose Finder is slow

Status: New
Owner: ----
Labels: Type-Defect Priority-High Milestone-5.0

New issue 994 by [hidden email]: Navigating in Moose Finder is slow
http://code.google.com/p/moose-technology/issues/detail?id=994

It's just that. Navigating in the Moose Finder is slow for some reason.

--
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Comment #1 on issue 994 by [hidden email]: Navigating in Moose Finder  
is slow
http://code.google.com/p/moose-technology/issues/detail?id=994

The issue comes from

MooseGroupStorage>>"protocol: private"
becomeKind: elementStorageClass
       
        [elementStorageClass includesBehavior: MooseGroupStorage] assert.
        self do: [ :each |
                each hasUniqueMooseNameInModel ifTrue: [ each privateClearMooseName ] ].
        self class = elementStorageClass
                ifFalse: [self become: (elementStorageClass withAll: self)]

--
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Updates:
        Status: Fixed
        Owner: [hidden email]
        Labels: Component-MooseCore

Comment #2 on issue 994 by [hidden email]: Navigating in Moose Finder  
is slow
http://code.google.com/p/moose-technology/issues/detail?id=994

Name: Moose-Core-TudorGirba.405
Author: TudorGirba
Time: 7 November 2013, 9:46:35.349054 pm
UUID: 9386cadf-127a-4768-83e0-38d84f711670
Ancestors: Moose-Core-TudorGirba.404

put the guard condition first before doing anything in becomeKind:

"protocol: private"
becomeKind: elementStorageClass
       
        self class = elementStorageClass ifTrue: [ ^ self ].
        [elementStorageClass includesBehavior: MooseGroupStorage] assert.
        self do: [ :each |
                each hasUniqueMooseNameInModel ifTrue: [ each privateClearMooseName ] ].
        self become: (elementStorageClass withAll: self)

--
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev