Re: Assert SystemWindow not visible
Posted by
Benjamin Van Ryseghem (Pharo) on
Mar 02, 2011; 9:15am
URL: https://forum.world.st/Assert-SystemWindow-not-visible-tp3330492p3331200.html
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.