Hi esteban
I'm looking for a change due to the TreePackage introduction.
Before I could simply do something like the following to unload Nautilus
Smalltalk tools remove: #browser.
Smalltalk tools register: Browser as: #browser.
(MCWorkingCopy forPackage: (MCPackage named: 'NautilusRefactoring'))
unload. "OK"
#Nautilus asClass cleanUp.
KMRepository reset.
KMPragmaKeymapBuilder release.
#NautilusUI asClass allSubInstances do: [ :inst |
SystemAnnouncer uniqueInstance unsubscribe: inst].
Smalltalk garbageCollect.
(MCWorkingCopy forPackage: (MCPackage named: 'NautilusCommon')) unload.
(MCWorkingCopy forPackage: (MCPackage named: 'Nautilus')) unload.
And now if does not work anymore. I get some TreePackage around.
Apparently I get a weakMessageSend on classRemoved: and this message refers to
an obsoletePackageTreeNautilus class.
buildGroupManagerFor: anInstance
| holder |
holder := GroupHolder new.
(holder
addADynamicClassGroupSilentlyNamed: 'Most Viewed Classes'
block: [ anInstance recentClassesElements ]) removable: false.
(holder
addADynamicClassGroupSilentlyNamed: 'Last Modified Classes'
block: [ self lastModifiedClasses ]) removable: false.
(holder
addADynamicGroupSilentlyNamed: 'Work'
block: [ {} ]) removable: true; isFillable: true.
^ holder
Do you have any idea? A registration mechanism? from which I forgot to
unregister.
Stef
