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>