Issue 794 in moose-technology: More robust dynamicActions in MooseFinder - Moose-dev

7 May 2012


      Status: Accepted
Owner: ----
Labels: Type-Defect Priority-Medium
New issue 794 by usman.bh...@gmail.com: More robust dynamicActions in  
MooseFinder
http://code.google.com/p/moose-technology/issues/detail?id=794
Doru
When we clicked (to bring the menu) in Moose Finder we got list entity  
mooseInterestingEntity = to nil.
So for now we patched the method to
[ :list | list entity mooseInterestingEntity ifNotNil: [:entity| entity  
mooseFinderActions ]].
buildBrowser
    browser := GLMFinder new.
    browser title: [:each | 'Moose Finder on ', each mooseInterestingEntity  
mooseDisplayString].
    browser show: [ :a |
    	a 	
    		title: [ :each |
    			(each mooseInterestingEntity mooseDisplayString contractTo: 30), ' (',
    					each mooseInterestingEntity class name, ')' ];
    		dynamicActions: [ :list | list entity mooseInterestingEntity ifNotNil:  
[:entity| entity mooseFinderActions ]].
    	a dynamic
    		display: [:each |
    			| dynamic |
    			dynamic := GLMCompositePresentation new.
    			each mooseInterestingEntity mooseFinderPresentationsIn: dynamic.
    			dynamic ].
    	a updateOn: MooseEntityAdded from: [:each | each isNil ifFalse: [each  
announcer] ifTrue: [nil] ].
    	a updateOn: MooseEntityRemoved from: [:each | each isNil ifFalse: [each  
announcer] ifTrue: [nil] ].
    	a updateOn: MooseEntityRenamed from: [:each | each isNil ifFalse: [each  
announcer] ifTrue: [nil] ]].
    ^ browser