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.dalloglio@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.laffont@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