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

Pharo Smalltalk Screencasts: http://www.pharocasts.com/
Blog: http://magaloma.blogspot.com/