[squeak-dev] The Trunk: Morphic-mt.1673.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 16 10:32:30 UTC 2020


Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1673.mcz

==================== Summary ====================

Name: Morphic-mt.1673
Author: mt
Time: 16 July 2020, 12:32:25.66555 pm
UUID: 4cdee1e0-9104-4e4f-a08f-12a77681f58e
Ancestors: Morphic-mt.1672

Fixes toggle icons in tree widgets for demo/hi-dpi mode.

=============== Diff against Morphic-mt.1672 ===============

Item was changed:
  ----- Method: IndentingListItemMorph>>toggleRectangle (in category 'private') -----
  toggleRectangle
  
+ 	| h indent |
- 	| h |
  	h := bounds height.
+ 	indent := (12 * RealEstateAgent scaleFactor) rounded.
+ 	^(bounds left + self hMargin + (indent * indentLevel)) @ bounds top extent: indent at h!
- 	^(bounds left + self hMargin + (12 * indentLevel)) @ bounds top extent: 12 at h!

Item was added:
+ ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
+ applyUserInterfaceTheme
+ 
+ 	expandedForm := nil.
+ 	notExpandedForm := nil.!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') -----
  expandedForm
  	expandedForm
  		ifNotNil: [expandedForm depth ~= Display depth
  				ifTrue: [expandedForm := nil]].
  	^ expandedForm
  		ifNil: [expandedForm := ((Form
  						extent: 10 @ 9
  						depth: 8
  						fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 )
  						offset: 0 @ 0)
+ 						asFormOfDepth: Display depth)
+ 							replaceColor: Color white withColor: Color transparent;
+ 							scaleIconToDisplay]!
- 						asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent;
- 						 yourself]!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') -----
  notExpandedForm
  	notExpandedForm
  		ifNotNil: [notExpandedForm depth ~= Display depth
  				ifTrue: [notExpandedForm := nil]].
  	^ notExpandedForm
  		ifNil: [notExpandedForm := ((Form
  						extent: 10 @ 9
  						depth: 8
  						fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 )
  						offset: 0 @ 0)
  							asFormOfDepth: Display depth)
  								replaceColor: Color white withColor: Color transparent;
+ 								scaleIconToDisplay]!
- 								yourself]!



More information about the Squeak-dev mailing list