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