[squeak-dev] The Trunk: Morphic-mt.1896.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 14 10:25:10 UTC 2022
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1896.mcz
==================== Summary ====================
Name: Morphic-mt.1896
Author: mt
Time: 14 February 2022, 11:25:04.903768 am
UUID: 683e3656-fae6-8a48-9c92-0690aeec2776
Ancestors: Morphic-mt.1895
Fixes regression of icon scaling in tree morphs.
=============== Diff against Morphic-mt.1895 ===============
Item was changed:
ScrollPane subclass: #SimpleHierarchicalListMorph
instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor'
+ classVariableNames: 'ExpandedForm NotExpandedForm WrappedNavigation'
- classVariableNames: 'WrappedNavigation'
poolDictionaries: ''
category: 'Morphic-Explorer'!
- SimpleHierarchicalListMorph class
- instanceVariableNames: 'expandedForm notExpandedForm'!
!SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0!
Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper.
For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.!
- SimpleHierarchicalListMorph class
- instanceVariableNames: 'expandedForm notExpandedForm'!
Item was changed:
----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
applyUserInterfaceTheme
+ ExpandedForm := nil.
+ NotExpandedForm := nil.!
- 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
- 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]!
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
- 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]!
More information about the Squeak-dev
mailing list
|