[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