[squeak-dev] The Trunk: MorphicExtras-lrnp.317.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 22 13:13:33 UTC 2022

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:

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

Name: MorphicExtras-lrnp.317
Author: lrnp
Time: 15 June 2022, 11:14:04.676571 pm
UUID: 27d99231-56bb-48d4-b840-b5a5f28e0d3b
Ancestors: MorphicExtras-mt.316

improve visibility of dark flap's text

=============== Diff against MorphicExtras-mt.316 ===============

Item was changed:
  ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') -----
  assumeString: aString font: aFont orientation: orientationSymbol color: aColor 
  	| aTextMorph workString tabStyle |
  	labelString := aString asString.
  	workString := orientationSymbol == #vertical 
  					[String streamContents: 
  							[:s | 
  							labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]]
  				ifFalse: [labelString]. 
  	tabStyle := TextStyle new
  				newFontArray: (Array with: aFont).
  	aTextMorph := (TextMorph new setTextStyle: tabStyle) 
  				contents: (workString asText addAttribute: (TextKern kern: 3)).
  	aTextMorph wrapFlag: true.
  	self removeAllMorphs.
  	self borderStyle: (BorderStyle raised width: 2).
+ 	aColor ifNotNil: [self color: aColor. aTextMorph color: aColor makeForegroundColor].
- 	aColor ifNotNil: [self color: aColor].
  	self addMorph: aTextMorph centered.
  	aTextMorph lock
  FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab]

More information about the Squeak-dev mailing list