[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