Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1116.mcz
==================== Summary ====================
Name: System-mt.1116
Author: mt
Time: 15 October 2019, 10:32:19.21925 am
UUID: e4a790ee-39ea-cc4d-ae42-990feedf8410
Ancestors: System-mt.1115
Caches ScaleFactor. Removes the use of #bigDisplay property because it does not work at the moment. Everything relates to the default font size. Further #bigDisplay scaling makes things look awkward.
=============== Diff against System-mt.1115 ===============
Item was changed:
Object subclass: #RealEstateAgent
instanceVariableNames: ''
+ classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset ScaleFactor StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins'
- classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins'
poolDictionaries: ''
category: 'System-Support'!
!RealEstateAgent commentStamp: '<historical>' prior: 0!
Responsible for real-estate management on the screen, which is to say, controlling where new windows appear, with what sizes, etc. 5/20/96 sw!
Item was added:
+ ----- Method: RealEstateAgent class>>applyUserInterfaceTheme (in category 'preferences') -----
+ applyUserInterfaceTheme
+
+ ScaleFactor := nil.
+ !
Item was changed:
----- Method: RealEstateAgent class>>scaleFactor (in category 'display scale') -----
scaleFactor
"Use the default font height to calculate some factor. Better than nothing..."
+ ^ ScaleFactor ifNil: [ScaleFactor := (TextStyle defaultFont height / 14 "reference value")]!
- ^ (TextStyle defaultFont height / 14 "reference value") * (Preferences bigDisplay ifTrue: [1.75] ifFalse: [1.0])!
Item was added:
+ ----- Method: RealEstateAgent class>>themeProperties (in category 'preferences') -----
+ themeProperties
+
+ ^ {
+ { #scaleFactor. 'Scaling & Hi-DPI'. 'The factor to scale geometry such as window extent.' }.
+ }!
Item was added:
+ ----- Method: RealEstateAgent>>canApplyUserInterfaceTheme (in category 'preferences') -----
+ canApplyUserInterfaceTheme
+ "See class side."
+
+ ^ false!
Item was changed:
+ (PackageInfo named: 'System') postscript: 'Preferences removePreference: #bigDisplay.'!
- (PackageInfo named: 'System') postscript: 'Utilities initializeCommonRequestStrings.
- Preferences removePreference: #thoroughSenders.'!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1573.mcz
==================== Summary ====================
Name: Morphic-mt.1573
Author: mt
Time: 15 October 2019, 9:42:37.831598 am
UUID: cdb79402-a2b8-ea49-9df8-58d1284b69b6
Ancestors: Morphic-mt.1572
Adds a missing accessor for multi-column list configuration.
=============== Diff against Morphic-mt.1572 ===============
Item was added:
+ ----- Method: PluggableMultiColumnListMorph>>listMorphs (in category 'accessing') -----
+ listMorphs
+
+ ^ listMorphs!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1572.mcz
==================== Summary ====================
Name: Morphic-mt.1572
Author: mt
Time: 15 October 2019, 9:31:59.358598 am
UUID: f5d0878b-7619-d44b-bfc7-43eaa8fa4436
Ancestors: Morphic-mt.1571
Fixes two minor issues after the recent LazyListMorph updates which affect the #cellInset property.
=============== Diff against Morphic-mt.1571 ===============
Item was changed:
----- Method: LazyListMorph>>displayFilterOn:for:in:font: (in category 'drawing') -----
displayFilterOn: canvas for: row in: drawBounds font: font
"Draw filter matches if any."
+ | fill height |
- | fill |
listSource filterableList ifFalse: [^ self].
+ height := font height.
fill := self filterColor isColor
ifTrue: [SolidFillStyle color: self filterColor]
ifFalse: [self filterColor].
fill isGradientFill ifTrue: [
fill origin: drawBounds topLeft.
+ fill direction: 0@ font height].
- fill direction: 0@ drawBounds height].
(self filterOffsets: row) do: [:offset | | r |
+ r := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ (drawBounds top + height)).
- r := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ drawBounds bottom).
canvas
frameAndFillRoundRect: (r outsetBy: 1@0)
radius: 3
fillStyle: fill
borderWidth: 1
borderColor: fill asColor twiceDarker.
canvas
drawString: offset second
in: r
font: font
color: self filterTextColor].!
Item was changed:
----- Method: LazyListMorph>>maxHeight (in category 'layout') -----
maxHeight
+ ^ (self getListSize max: 1) * self rowHeight!
- ^ (self getListSize max: 1) * (font height + self cellInset top + self cellInset bottom)!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1571.mcz
==================== Summary ====================
Name: Morphic-mt.1571
Author: mt
Time: 15 October 2019, 9:06:17.886598 am
UUID: 6acb2f5c-2abf-e94d-bc89-a512c8e26e42
Ancestors: Morphic-mt.1570
Fixes Morphic dependency for text anchors.
=============== Diff against Morphic-mt.1570 ===============
Item was added:
+ ----- Method: Form>>textAnchorProperties (in category '*Morphic-Text Support') -----
+ textAnchorProperties
+
+ ^ TextAnchorProperties new!