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/