Adding FlapTab to a SystemWindow instance
Hilaire Fernandes
hilaire at ext.cri74.org
Thu Nov 24 20:03:04 UTC 2005
Okay, one solution is to pack the flap in a PasteUpMorph, then pack the
PasteUpMorph in a SystemWindow.
Flap looks like to be designed to be packed in PasteUpMorph only.
Hilaire
Hilaire Fernandes a écrit :
> It looks like adding FlapTab in SystemWindow is not possible.
> Am I wrong?
>
>
> The following code fragment lead me nowhere:
>
> |window flap flapTab button|
> window := SystemWindow labelled: 'My window'.
> window openInWorld.
> button := SimpleButtonMorph new
> target: Smalltalk;
> label: 'Beep!';
> actionSelector: #beep.
> flap := PasteUpMorph newSticky borderWidth: 2;
> extent: 20 at 100;
> color: (Color blue alpha: 0.8);
> beFlap: true;
> addMorph: button;
> hResizing: #shrinkWrap; vResizing: #shrinkWrap;
> useRoundedCorners;
> setNameTo: 'POINT FLAP'.
> button fullBounds.
> flapTab := FlapTab new referent: flap.
> flapTab setName: 'POINT' edge: #left color: Color blue.
> window addMorph: flapTab.
>
>
> Hilaire
>
>
>
--
http://www.ofset.org/petition
Pétition de soutien au développement
de logiciels libres pour l'éducation.
More information about the Squeak-dev
mailing list
|