The Trunk: Morphic-mt.2230.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2230.mcz

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

Name: Morphic-mt.2230
Author: mt
Time: 4 August 2026, 4:03:34.680405 pm
UUID: 1161e43f-43be-f24c-ae84-4039e6728b42
Ancestors: Morphic-mt.2229

Fix color of KeyboardExerciser to work with darker UI themes.

=============== Diff against Morphic-mt.2229 ===============

Item was changed:
  ----- Method: KeyboardExerciser>>logEventRepetition: (in category 'event handling') -----
  logEventRepetition: evt
  
  	| label lastEvents box |
  	(self eventMorphs last hasProperty: #repetition)
  		ifTrue: [box := self eventMorphs last. label := box submorphs first]
  		ifFalse: [
  			box := Morph new
  				setProperty: #repetition toValue: true;
  				color: Color transparent;
  				layoutPolicy: TableLayout new;
  				hResizing: #shrinkWrap;
  				vResizing:#shrinkWrap;
  				yourself.
  			label := '' asText asMorph lock.
+ 			label textColor: ((self userInterfaceTheme get: #textColor for: #PluggableTextMorph) ifNil: [Color black]).
  			box addMorph: label.
  			box setProperty: #event toValue: (OrderedCollection with: self lastEvent).
  			eventPane addMorphBack: box].
  
  	lastEvents := box valueOfProperty: #event.
  	lastEvents add: evt copy.
  	box setProperty: #event toValue: lastEvents.
  
  	label newContents: (('x ', (lastEvents size)) asText
  		addAttribute: (TextFontReference toFont: Preferences standardButtonFont);
  		yourself).
  	box balloonText: ('{1}{2}'  format: {
  		lastEvents size > 10 ifTrue: ['... {1} older events and:\' translated withCRs format: {lastEvents size - 10}] ifFalse: [''].
  		(lastEvents last: (10 min: lastEvents size)) joinSeparatedBy: String cr.
  		}).
  			
  	box
  		on: #mouseEnter send: #handleEvent:emphasize: to: self;
  		on: #mouseLeave send: #handleEvent:deemphasize: to: self;
  		on: #mouseDown send: #handleEvent:inspect: to: self.!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]