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/