[squeak-dev] The Trunk: Morphic-mt.1868.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 5 14:50:44 UTC 2022
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1868.mcz
==================== Summary ====================
Name: Morphic-mt.1868
Author: mt
Time: 5 February 2022, 3:50:39.049491 pm
UUID: 91d21511-de0f-5648-bb2a-1232adb314cb
Ancestors: Morphic-mt.1867
- Fixes "Delete" in FontImporterTool to unregister TTFontDescription as well and free memory
- Fixes blank icons in menus, which must have a sensible height to not mess up layout
- Fixes height of window labels, which included #layoutInset again although the surrounding ProportionalLayout does already account for that
=============== Diff against Morphic-mt.1867 ===============
Item was changed:
----- Method: FontImporterTool>>delete (in category 'actions') -----
delete
| font |
(font := self selectedFont) textStyleOrNil ifNotNil: [:style |
TextConstants removeKey: font familyName].
+ TTCFont registerAll.
+ TTFontDescription removeDescriptionNamed: font familyName.
+ self allFonts: nil. "force redraw"!
- self allFonts: nil. "force redraw"
- TTCFont registerAll.!
Item was changed:
----- Method: MenuIcons class>>blankIconOfWidth: (in category 'accessing - icons') -----
blankIconOfWidth: aNumber
^ Icons
at: ('blankIcon-' , aNumber asString) asSymbol
+ ifAbsentPut: [Form extent: aNumber @ aNumber depth:8]!
- ifAbsentPut: [Form extent: aNumber @ 1 depth:8]!
Item was changed:
----- Method: SystemWindow>>labelHeight (in category 'label') -----
labelHeight
"Answer the height for the window label. The standard behavior is at bottom; a hook is provided so that models can stipulate other heights, in support of various less-window-looking demos."
| aHeight |
(model notNil and: [model respondsTo: #desiredWindowLabelHeightIn:]) ifTrue:
[(aHeight := model desiredWindowLabelHeightIn: self) ifNotNil: [^ aHeight]].
^ label ifNil: [0] ifNotNil:
+ [(label height + self cellInset + self cellGap) max:
- [(label height + self cellInset + self cellGap + self layoutInset) max:
(collapseBox ifNotNil: [collapseBox height] ifNil: [10])]!
Item was changed:
+ (PackageInfo named: 'Morphic') postscript: '"Clear cache of blank icons"
+ MenuIcons cleanUp: true.
+ "Fixes height of all window titles."
+ SystemWindow allSubInstancesDo: [:wnd | wnd replaceBoxes].
+ "Rebuild docking bar menus."
+ TheWorldMainDockingBar updateInstances.'!
- (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!
More information about the Squeak-dev
mailing list
|