Adding FlapTab to a SystemWindow instance
Hilaire Fernandes
hilaire at ext.cri74.org
Thu Nov 24 16:42:22 UTC 2005
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
More information about the Squeak-dev
mailing list
|