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.