Temporary package for observing the cause of
Trimmed down what need to be observed to show issue and its resolution.
This should be deleted from the repository when case is resolved.
ADD
src/Case12640-PharoLauncher-Core.package/PhLDirectoryBasedImageRepository.class/class/defaultReset.st
+instance creation
+defaultReset
+ Default := nil.
\ No newline at end of file

MODIFY
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/contentsChanged.st
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/contentsChanged.st
announcements
contentsChanged
"Called me to announce that I changed"
- Transcript crShow: thisContext printString , ' ' , announcer hash printString.
+
wantNotification
ifTrue: [ announcer announce: ValueChanged new ]
\ No newline at end of file

MODIFY
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/initialize.st
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/initialize.st
@@ -2,5 +2,4 @@ initialization
initialize
super initialize.
announcer := Announcer new.
- Transcript crShow: thisContext printString , ' announcer=' , announcer hash printString.
wantNotification := true.
\ No newline at end of file

MODIFY
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/whenChangedSend.to..st
src/Case12640-PharoLauncher-Core.package/PhLRepository.class/instance/whenChangedSend.to..st
announcements
whenChangedSend: aSelector to: aReceiver
- Transcript crShow: thisContext printString , ' ' , aSelector printString , ' ' , aReceiver printString , ' ' , self hash printString , '-->' , announcer hash printString.
- self halt.
announcer when: ValueChanged send: aSelector to: aReceiver
\ No newline at end of file

Temporary package for observing the cause of https://pharo.fogbugz.com/f/cases/12640/PhLTitledTreeModel-refresh-called-too-often

Trimmed down what need to be observed to show issue and its resolution.

This should be deleted from the repository when case is resolved.