[Moose-dev] Re: No more icon in a Glamour tree

Sorry Andrei, I didn't see your reply. I have the following GLM script: glm := GLMTabulator new. glm title:'CORMAS Entities Classes'. glm column:#A1;column:#A2 span:4. glm transmit to:#A1;andShow:[:glma :model| glma list title:'Models'; display:[:e | e ] ]. glm transmit to:#A2;from:#A1; andShow:[:glma :model| glma accordionArrangement. glma tree title:'Spatial Entities Classes'; display:[:aModelClass | aModelClass spatialClasses]; dynamicActionsOnSelection:[ "put the list of item to execute" |actions act| actions:= OrderedCollection new. act:=GLMGenericAction new action:[ :a | a selection inspect]; title:'Inspect'. actions add:act. act:=GLMGenericAction new action:[ :a | a selection browse]; title:'Browse'. actions add:act. actions ]; act: [ :b | self addSpatialEntityClass. b update ] icon: GLMUIThemeExtraIcons glamorousAdd entitled: 'Add a spatial entity class'. glma tree title:'Social Entities Classes'; display:[:aModelClass | aModelClass socialClasses]; act: [ :b | self addSocialEntityClass. b update ] icon: GLMUIThemeExtraIcons glamorousAdd entitled: 'Add a social entity class'. . glma tree title:'Passive Entities Classes'; display:[:aModelClass | aModelClass passiveClasses ]; act: [ :b | self addPassiveEntityClass. b update ] icon: GLMUIThemeExtraIcons glamorousAdd entitled: 'Add a passive entity class'. ]. glm openOn: CormasModel subclasses. Thank you. On Mon, Apr 27, 2015 at 6:35 PM, Andrei Chis <chisvasileandrei(a)gmail.com> wrote: -- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/