[Pkg] The Trunk: MorphicExtras-mt.318.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jun 22 13:13:08 UTC 2022
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]
"!
More information about the Packages
mailing list