Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.318.mcz
==================== Summary ====================
Name: MorphicExtras-mt.318 Author: mt Time: 22 June 2022, 3:13:03.918264 pm UUID: 92fcf806-09d2-2c45-95c3-f3fd5ae6d85f Ancestors: MorphicExtras-ct.317, MorphicExtras-lrnp.317
Merges MorphicExtras-lrnp.317: improve visibility of dark flap's text
=============== Diff against MorphicExtras-ct.317 ===============
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 ifTrue: [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] "!
packages@lists.squeakfoundation.org