[squeak-dev] The Trunk: Morphic-ct.1992.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 19 11:10:23 UTC 2022
Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1992.mcz
==================== Summary ====================
Name: Morphic-ct.1992
Author: ct
Time: 19 May 2022, 1:05:51.720811 pm
UUID: e34ae1a2-84eb-1b44-99b2-fbac49184200
Ancestors: Morphic-nice.1989
Complements Morphic-ct.1659 and has dialog windows' menu box act on mouseDown as well.
=============== Diff against Morphic-nice.1989 ===============
Item was changed:
----- Method: DialogWindow>>createTitle: (in category 'initialization') -----
createTitle: aString
"Mimick behavior of MenuMorph title creation."
| box closeButton menuButton |
box := Morph new
name: #title;
changeTableLayout;
listDirection: #leftToRight;
yourself.
titleMorph := aString asText asMorph lock.
closeButton := SystemWindowButton new
color: Color transparent;
target: self;
extent: 12 at 12;
actionSelector: #cancelDialog;
balloonText: 'Cancel this dialog' translated;
borderWidth: 0;
visible: self class includeCloseButton;
yourself.
SystemWindow closeBoxImage scaleIconToDisplay in: [:icon |
closeButton labelGraphic: icon; extent: icon extent].
menuButton := SystemWindowButton new
color: Color transparent;
target: self;
actionSelector: #offerDialogMenu;
balloonText: 'Dialog menu' translated;
+ actWhen: #buttonDown;
borderWidth: 0;
visible: self class includeControlMenu;
yourself.
SystemWindow menuBoxImage scaleIconToDisplay in: [:icon |
menuButton labelGraphic: icon; extent: icon extent].
box addAllMorphs: {closeButton. titleMorph. menuButton}.
self addMorphBack: box.
self setTitleParameters.!
More information about the Squeak-dev
mailing list
|