Window Uncloser bug :)

[Ducasse]

Transcript open 

then close the transcript...

we get an Error ... because it is not a SpPresenter

isWindowRejected: aWindow

	(aWindow model notNil and: [
		 (rejectedWindows includes: aWindow model class) or:
			 (aWindow model presenter notNil and: [
                                                       ^^^^^^^^^^^^^^^
				  rejectedWindows includes: aWindow model presenter class ]) ])
		ifTrue: [ ^ true ].


	^ false

ThreadSafeTranscript(Object)>>doesNotUnderstand: #presenter
SpClosedWindowListPresenter>>isWindowRejected:
SpClosedWindowListPresenter>>addClosedWindow:
[ :ann | self uniqueInstance addClosedWindow: ann window ] in SpClosedWindowListPresenter class>>subscribeToWindowClosedAnnoucements in Block: [ :ann | self uniqueInstance addClosedWindow: [..]
FullBlockClosure(BlockClosure)>>cull:
FullBlockClosure(BlockClosure)>>cull:cull:
[ action cull: anAnnouncement cull: announcer ] in AnnouncementSubscription(AbstractAnnouncementSubscription)>>deliver: in Block: [ action cull: anAnnouncement cull: announcer ]
FullBlockClosure(BlockClosure)>>on:do:
[ Processor terminateRealActive ] in [ :ex |
			  | onDoCtx handler bottom thisCtx |
			  onDoCtx := thisContext.
			  thisCtx := onDoCtx home.

			  "find the context on stack for which this method's is sender"

			  [ onDoCtx sender == thisCtx ] whileFalse: [
				  onDoCtx := onDoCtx sender.
				  onDoCtx ifNil: [ "Can't find our home context. seems like we're already forked
				and handling another exception in new thread. In this case, just pass it through handler."
					  ^ handlerAction cull: ex ] ].

			  bottom := [ Processor terminateRealActive ] asContext.
			  onDoCtx privSender: bottom.

			  handler := [ handlerAction cull: ex ] asContext.
			  handler privSender: thisContext sender.

			  (Process forContext: handler priority: Processor activePriority) resume.

			  "cut the stack of current process"
			  thisContext privSender: thisCtx.
			  nil ] in FullBlockClosure(BlockClosure)>>on:fork: in Block: [ Processor terminateRealActive ]