|taskbar tileWindowsBlock|
tileWindowsBlock := [��
�� |windows numberOfColumns numberOfRows windowWidth windowHeight|
�� windows := (World submorphs select: [:m| m isSystemWindow and: [m isNotMinimized]]) asOrderedCollection. ����
�� numberOfColumns := windows size sqrtFloor.
�� numberOfRows := (windows size / numberOfColumns) rounded.
�� windowWidth := World width // numberOfColumns..
�� windowHeight := World height ��- taskbar height // numberOfRows.
�� Matrix��
�� �� rows: numberOfRows��
�� �� columns: numberOfColumns��
�� �� tabulate: [:row :column| ��|window|��
�� �� �� �� �� windows ifNotEmpty: [ ��
�� �� �� �� �� �� �� window := windows remove: windows first.
�� �� �� �� �� �� �� window��
�� �� �� �� �� �� �� bounds: (
�� �� �� �� �� �� �� �� �� ((column - 1 * windowWidth) @ (row - 1 * windowHeight))
�� �� �� �� �� �� �� �� �� extent: (windowWidth) @ ��windowHeight)
�� �� �� �� �� ]
�� �� ]
].
taskbar := (World submorphs detect: [:m| m isTaskbar]).
taskbar��
�� addMorph: (IconicButton new
�� �� �� �� �� �� target: tileWindowsBlock;
�� �� �� �� �� �� actionSelector: #value;
�� �� �� �� �� �� labelGraphic: taskbar theme smallWindowIcon;
�� �� �� �� �� �� color: Color transparent;
�� �� �� �� �� �� yourself). ��