On Wed, Sep 9, 2015 at 4:41 AM, stepharo <[email protected]> wrote:
> just a question that came to my mind while reading your old mail.
>
>
> ">>>" SystemAnnouncer uniqueInstance unsubscribe: mod. "<<<added"
>
> Are you sure that this is to this one that Nautilus is registered?
I'm not sure if its the best approach, but apart from the steps to
reproduce in previous link,
you can do the following experiment. In a fresh image...
"(1)" SystemAnnouncer uniqueInstance inspect. "and review subscriptions tab"
"(2)" window := Smalltalk tools openClassBrowser ui window.
SystemAnnouncer uniqueInstance inspect. "and review subscriptions tab"
"(3)" window delete.
Smalltalk garbageCollect. Smalltalk garbageCollect. Smalltalk
garbageCollect.
SystemAnnouncer uniqueInstance inspect. "and review subscriptions tab"
You will find leftover "a PackageTreeNautilusUI" subscriptions. Now
repeat starting again with a fresh image, and after evaluating the
following...
NautilusWindow compile: 'delete
| mod |
mod := self model.
super delete.
SystemAnnouncer uniqueInstance unsubscribe: mod.
mod ifNotNil: [ mod announce: (WindowClosed new window: self) ] '
"a PackageTreeNautilusUI" is now correctly absent from the
SystemAnnouncer subscriptions.
A further experiment before and after ammending NautilusWindow>>delete is...
20 timesRepeat: [
window := Smalltalk tools openClassBrowser ui window.
window delete.
].
SystemAnnouncer uniqueInstance inspect.
I've now logged
https://pharo.fogbugz.com/default.asp?16525
cheers -ben
