Updates: Status: Fixed Owner: tu...@tudorgirba.com Labels: Component-MooseCore
Comment #2 on issue 994 by tu...@tudorgirba.com: 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)