equal
deleted
inserted
replaced
307 iconCodeOrSelector := eachEntry at:3 ifAbsent:nil. |
307 iconCodeOrSelector := eachEntry at:3 ifAbsent:nil. |
308 iconCodeOrSelector isNil ifTrue:[ |
308 iconCodeOrSelector isNil ifTrue:[ |
309 newEntry := eachEntry |
309 newEntry := eachEntry |
310 ] ifFalse:[ |
310 ] ifFalse:[ |
311 newEntry := eachEntry copy. |
311 newEntry := eachEntry copy. |
312 (iconCodeOrSelector startsWith:'[') ifTrue:[ |
312 (iconCodeOrSelector startsWith:$[) ifTrue:[ |
313 iconCode := iconCodeOrSelector copyFrom:(iconCodeOrSelector indexOf:$[)+1 to:(iconCodeOrSelector indexOf:$])-1. |
313 iconCode := iconCodeOrSelector copyFrom:(iconCodeOrSelector indexOf:$[)+1 to:(iconCodeOrSelector indexOf:$])-1. |
314 iconCode := '^ [:each | ' , (iconCode copyReplaceString:'%' withString:'each') ,']'. |
314 iconCode := '^ [:each | ' , (iconCode copyReplaceString:'%' withString:'each') ,']'. |
315 iconBlock := Parser evaluate:iconCode. |
315 iconBlock := Parser evaluate:iconCode. |
316 newEntry at:3 put:(iconBlock value:(Smalltalk classNamed:(eachEntry at:2))). |
316 newEntry at:3 put:(iconBlock value:(Smalltalk classNamed:(eachEntry at:2))). |
317 ] ifFalse:[ |
317 ] ifFalse:[ |