workspace := Workspace new.
workspace acceptContents: '  Welcome to pharo...blah blah'.
morph := workspace embeddedInMorphicWindowLabeled: 'Welcome to Pharo'.
morph extent: 800@500.
centeredPosition := ( RealEstateAgent maximumUsableArea center - ( ( morph width /2) @ ( morph height /2) ) ) rounded .
morph position: centeredPosition.
morph openAsIs .


On May 20, 2010, at 2:21 PM, Mariano Martinez Peck wrote:



On Thu, May 20, 2010 at 1:46 PM, Fernando olivero <oliverof@lu.unisi.ch> wrote:
morph := Morph new.
morph extent: 400@400.
centeredPosition := ( RealEstateAgent maximumUsableArea center - ( ( morph width /2) @ ( morph height /2) ) ) rounded .
morph position: centeredPosition.
morph openInWorld .


Thanks Fernando. I want to do that but for a Workspace. Workspace doesn't extend from Morph.

Cheers

Mariano


 

On May 20, 2010, at 1:31 PM, Mariano Martinez Peck wrote:

> How can I do that?  For the moment, I am doing:
>
> openWelcomeWorkspace
>
>     (Workspace new
>     acceptContents: '  Welcome to pharo...blah blah
>
> ';
>     embeddedInMorphicWindowLabeled: 'Welcome to Pharo')
>     position: 50@120;
>     extent: 800 @ 500;
>    openAsIs
>
>
> I want to keep the extent, but the position to be centered.
>
> Thanks for any hint,
>
> Mariano
> <ATT00001..txt>


_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

<ATT00001..txt>