Add Button to Flap
Zulq Alam
zulq at orange.net
Fri Mar 17 01:52:53 UTC 2006
Thanks Edgar and Frank. The following worked in the end.
Flaps unregisterQuadsWithReceiver: Workspace.
Flaps registerQuad: #(SHWorkspace prototypicalToolWindow 'Workspace' 'A
workspace is a simple window for editing text. You can later save the
contents to a file if you desire.') forFlapNamed: 'Tools'.
Flaps replaceToolsFlap.
The class SHWorkspace is a subclass of Workspace so the
prototypicalToolWindow implementation comes for free.
The key is to send replaceToolsFlap to the Flaps class otherwise nothing
happens. The side effect is the flaps colour schemes are reset (easily
fixed) and the Workspace icon is at the bottom of the flap (no idea how
to fix but not too bothered).
Thanks,
Zulq.
More information about the Squeak-dev
mailing list
|