A clarification, I modify a bit WMInANewWorldTestCase>>setUp for run the tests:
setUp testWorld := PasteUpMorph new initAsWorld: WorldState new; yourself. testWorld bounds: (0@0 extent: 200@200). windowManager := TilingWM forWorld: testWorld. backupLayoutStrategy := TilingWM layoutStrategyClassName. TilingWM layoutStrategyClassName: #TWMHorizontalLayoutStrategy. *{WindowOpened. WindowClosed} do: [:annClass| ** ** testWorld announcer ** ** on: annClass * * do: [:ann| windowManager ifNotNil: [windowManager tileLastUsedWindows]]].* 2011/6/6 Gastón Dall' Oglio <gaston.dallog...@gmail.com> > Great! very very usefull!!! And the tests was passed: > 84 run, 81 passes, 3 expected failures, 0 failures, 0 errors, 0 unexpected > passes > Pharo1.3a > Latest update: #13213 > > > 2011/6/6 laurent laffont <laurent.laff...@gmail.com> > >> I've just discovered that I can write this hacky stuff: >> >> {WindowOpened. WindowClosed} do: [:annClass| >> TWMBar default windowManager world announcer >> on: annClass >> do: [:ann| TWMBar default windowManager tileLastUsedWindows]. >> ] >> >> >> Then open or close a window ..... >> >> Something to look at if someone want to experiment & help .... >> >> >> Laurent Laffont - @lolgzs <http://twitter.com/#!/lolgzs> >> >> Pharo Smalltalk Screencasts: http://www.pharocasts.com/ >> Blog: http://magaloma.blogspot.com/ >> Developer group: http://cara74.seasidehosting.st >> >> >