Yes. +1

Note that you can use Form as a button label.

Best,
Marcel
Am 02.04.2022 18:50:07 schrieb commits at source.squeak.org <commits at source.squeak.org>:
A new version of Protocols was added to project The Inbox:
http://source.squeak.org/inbox/Protocols-ct.83.mcz

==================== Summary ====================

Name: Protocols-ct.83
Author: ct
Time: 2 April 2022, 6:49:54.492838 pm
UUID: 63954fa8-6cc1-8048-8bbb-5c9a2d49332d
Ancestors: Protocols-mt.82

Replaces missing icon in lexicon. Is this ok?

=============== Diff against Protocols-mt.82 ===============

Item was changed:
----- Method: Lexicon>>addSpecialButtonsTo:with: (in category 'toolbuilder') -----
addSpecialButtonsTo: buttonPanelSpec with: builder

| homeCatBtnSpec menuBtnSpec mostGenericBtnSpec |
homeCatBtnSpec := builder pluggableButtonSpec new
model: self;
action: #showHomeCategory;
+ label: MenuIcons smallHomeIcon asMorph;
- label: (ScriptingSystem formAtKey: #Cat) asMorph;
help: 'show this method''s home category';
yourself.
menuBtnSpec := builder pluggableButtonSpec new
model: self;
action: #offerMenu;
label: (ScriptingSystem formAtKey: #TinyMenu) asMorph;
help: 'click here to get a menu with further options';
yourself.
mostGenericBtnSpec :=builder pluggableButtonSpec new
model: self;
action: #chooseLimitClass;
label: #limitClassString;
help: 'Governs which classes'' methods should be shown. If this is the same as the viewed class, then only methods implemented in that class will be shown. If it is ProtoObject, then methods of all classes in the vocabulary will be shown.'.
buttonPanelSpec children
add: homeCatBtnSpec;
addFirst: mostGenericBtnSpec;
addFirst: menuBtnSpec.!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220408/b35d8030/attachment.html>