I love this.<br><br><div class="gmail_quote">On Sun, May 22, 2011 at 2:25 PM, laurent laffont <span dir="ltr">&lt;<a href="mailto:laurent.laffont@gmail.com">laurent.laffont@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Hi,<div><br></div><div>what do you think of adding this in Pharo ?</div><div><br></div><div><div>|taskbar tileWindowsBlock|</div><div><br></div><div>tileWindowsBlock := [��</div><div>�� |windows numberOfColumns numberOfRows windowWidth windowHeight|</div>


<div>�� windows := (World submorphs select: [:m| m isSystemWindow and: [m isNotMinimized]]) asOrderedCollection. ����</div><div>�� numberOfColumns := windows size sqrtFloor.</div><div>�� numberOfRows := (windows size / numberOfColumns) rounded.</div>


<div>�� windowWidth := World width // numberOfColumns..</div><div>�� windowHeight := World height ��- taskbar height // numberOfRows.</div><div><br></div><div>�� Matrix��</div><div>�� �� rows: numberOfRows��</div><div>�� �� columns: numberOfColumns��</div>


<div>�� �� tabulate: [:row :column| ��|window|��</div><div>�� �� �� �� �� windows ifNotEmpty: [ ��</div><div>�� �� �� �� �� �� �� window := windows remove: windows first.</div><div>�� �� �� �� �� �� �� window��</div><div>�� �� �� �� �� �� �� bounds: (</div>


<div>�� �� �� �� �� �� �� �� �� ((column - 1 * windowWidth) @ (row - 1 * windowHeight))</div><div>�� �� �� �� �� �� �� �� �� extent: (windowWidth) @ ��windowHeight)</div><div>�� �� �� �� �� ]</div><div>�� �� ]</div><div>].</div><div><br></div><div>


<br></div><div>taskbar := (World submorphs detect: [:m| m isTaskbar]).</div><div><br></div><div>taskbar��</div><div>�� addMorph: (IconicButton new</div><div>�� �� �� �� �� �� target: tileWindowsBlock;</div><div>�� �� �� �� �� �� actionSelector: #value;</div>


<div>�� �� �� �� �� �� labelGraphic: taskbar theme smallWindowIcon;</div><div>�� �� �� �� �� �� color: Color transparent;</div><div>�� �� �� �� �� �� yourself). ��</div></div><div><br></div><div><br clear="all">Laurent Laffont -��<a href="http://twitter.com/#!/lolgzs" target="_blank">@lolgzs</a><br>


<br>Pharo Smalltalk Screencasts: <a href="http://www.pharocasts.com/" target="_blank">http://www.pharocasts.com/</a><br>Blog: <a href="http://magaloma.blogspot.com/" target="_blank">http://magaloma.blogspot.com/</a><div>

Developer group: <a href="http://cara74.seasidehosting.st" target="_blank">http://cara74.seasidehosting.st</a></div>
<br>
</div>
</blockquote></div><br>