[squeak-dev] The Inbox: Morphic-ct.1859.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jan 26 20:50:20 UTC 2022
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1859.mcz
==================== Summary ====================
Name: Morphic-ct.1859
Author: ct
Time: 26 January 2022, 9:50:11.019407 pm
UUID: 83e57c24-b685-2a4a-ac5a-ad0df51bba9d
Ancestors: Morphic-mt.1858
Proposal: Makes #flash more visible by
a) using a morphic alarm to ensure that the flash also appears on fast machines (on my machine, it did not always appear before else)
b) having system windows participate in a flash requested by a model too.
=============== Diff against Morphic-mt.1858 ===============
Item was changed:
----- Method: Morph>>flash (in category 'macpal') -----
flash
| originalColor |
originalColor := self color.
+ self color:
- [ self color:
(originalColor
ifNil: [ Color black ]
+ ifNotNil: [( (originalColor alpha: 1) adjustSaturation: 0.8 brightness: 0) negated ]).
+ self refreshWorld.
+ self addAlarm: #color: with: originalColor after: 20 "milliSeconds".!
- ifNotNil: [( (originalColor alpha: 1) adjustSaturation: 0.8 brightness: 0) negated ]) ]
- ensure:
- [ self refreshWorld.
- self color: originalColor ]!
Item was changed:
----- Method: SystemWindow>>update: (in category 'label') -----
update: aSymbol
aSymbol = #relabel
ifTrue: [^ model ifNotNil: [ self setLabel: model labelString ] ].
aSymbol = #close
+ ifTrue: [self delete].
+ aSymbol = #flash
+ ifTrue: [self flash].!
- ifTrue: [self delete]!
More information about the Squeak-dev
mailing list
|