In my 7.0 image things happens like this:
Responsible for enhancedListWidget Display in the ApplicationManager is StsApplicationManager>>#stsStatusBlockFor: which calls StsApplicationManager class>>#stsCacheEntriesFor: where color and image are choosen. Unreleased Subapplications are treated like normal editions. You only see the difference when loading an unreleased application version. Then you see the green folder not the normal yellow one for versions.
EtTools class>>#infoIndicator is used by EtApplicationManager>>#applicationStatusIndicatorBlock but is not used with enhanced List Widgets. (We can place a breakpoint in this method - nothing happens)
What can be done is patching #stsCacheEntriesFor:
For example a red text color for unreleased subapps like scratch editions:
- Code: Select all
StsApplicationManager class
stsCacheEntriesFor: app
| colorApplicationEditions image color |
image := ImageCache at: app ifAbsent: [nil].
color := ColorCache at: app ifAbsent: [nil].
image notNil & color notNil
ifTrue: [^Association key: image value: color].
color := (StsPowerTools useItemColors
and: [(colorApplicationEditions := StsPowerTools colorApplicationEditions) notNil])
ifTrue: [
(app isSubApplication and: [(EtTools managerInterface isSubApplicationReleased: app in: app parent) not])
ifTrue: [StsPowerTools colorApplicationScratchEditions]
ifFalse: [
app isEdition
ifTrue: [colorApplicationEditions]
ifFalse: [
app isScratch
ifTrue: [StsPowerTools colorApplicationScratchEditions]
ifFalse: [nil]]]]
ifFalse: [nil].
image := app isScratch
ifTrue: [self stsImageNamed: StsPowerTools iconScratchApplications]
ifFalse: [
((self stsSuperUser or: [app manager == EmUser current])
and: [app isEdition or: [app isSubApplication and: [(EtTools managerInterface isSubApplicationReleased: app in: app parent) not]]])
ifTrue: [self stsImageNamed: StsPowerTools iconModifiedApplications]
ifFalse: [
(StsPowerTools showScratchApplicationHierarchies not
or: [app withAllSubApplications conform: [:each | each isScratch not]])
ifTrue: [self stsImageNamed: StsPowerTools iconApplications]
ifFalse: [self stsImageNamed: StsPowerTools iconScratchApplications]]].
ImageCache at: app put: image.
ColorCache at: app put: color.
^Association key: image value: color
Juergen