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
>>
>>
>
