window := (SystemWindow labelled: 'Zork'). window openInWorld delete. self assert: ((World subMorphs includes: window) not). I have also looked for a method that can tell me if the window is displayed or not, so I used to use this trick ;) Ben On Mar 1, 2011, at 9:06 PM, laurent laffont wrote:
Hi,
I'm currently exploring ways of doing TDD on GUI. (Is there a framework for this ?)
How can I know a window has been closed ? #visible always return true.
self assert: (SystemWindow new openInWorld delete) visible not.
fails.
However this works but a bit "heavy":
(SystemWindow labelled: 'Zork') openInWorld delete. Smalltalk garbageCollect.
self assert: (SystemWindow allSubInstances detect: [:aWindow| aWindow label = 'Zork'] ifNone: [nil]) isNil.
Laurent Laffont - @lolgzs
Pharo Smalltalk Screencasts: http://www.pharocasts.com/ Blog: http://magaloma.blogspot.com/