Sorry Mariano, I omitted to say that I tried this on a one-click image 1.2.1, but still is not the code so try to share with you but the idea of separating the types of windows, which I found very useful when I have many windows.
2011/5/23 Mariano Martinez Peck <[email protected]> > Be careful, in 1.3 it hangs my image and I was forced to kill it. > > 2011/5/23 Gastón Dall' Oglio <[email protected]> > >> Laurent, I attached a package I've added some improvements to your work, I >> have found useful. Of course I am not knowledgeable about morph, just added >> some and perhaps can serve as inspiration. >> >> >> 2011/5/23 laurent laffont <[email protected]> >> >>> On 1.2: >>> >>> Gofer it >>> squeaksource: 'LaurentLSandbox'; >>> version: 'Polymorph-Widgets-LaurentLaffont.388'; >>> load. >>> >>> >>> Then open or move a window so the TaskBar is updated and you have a new >>> "magic" button on bottom left. >>> >>> (note this is hacky actually, I will write a nicer version this week if >>> people like it). >>> >>> Laurent. >>> >>> On Mon, May 23, 2011 at 9:06 AM, Stéphane Ducasse < >>> [email protected]> wrote: >>> >>>> send a cs that we can play with it :) >>>> >>>> On May 22, 2011, at 8:25 PM, laurent laffont wrote: >>>> >>>> > Hi, >>>> > >>>> > what do you think of adding this in Pharo ? >>>> > >>>> > |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). >>>> > >>>> > >>>> > Laurent Laffont - @lolgzs >>>> > >>>> > Pharo Smalltalk Screencasts: http://www.pharocasts.com/ >>>> > Blog: http://magaloma.blogspot.com/ >>>> > Developer group: http://cara74.seasidehosting.st >>>> > >>>> >>>> >>>> >>> >> > > > -- > Mariano > http://marianopeck.wordpress.com > >
