17938860495

Committed 23 Sep 2025 07:28AM UTC coverage: 66.75% (+0.4%) from 66.37%

Build # 17938860495

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1423 from moosetechnology/a-good-cleaning

New settings implementation

Run Details

2683 of 3100 new or added lines in 117 files covered. (86.55%)

105 existing lines in 29 files now uncovered.

20400 of 30562 relevant lines covered (66.75%)

1.33 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

96.9

/src/MooseIDE-Visualization/MiSystemComplexitySettingsConfiguration.class.st

Class {
        #name : 'MiSystemComplexitySettingsConfiguration',
        #superclass : 'MiAbstractSettingsConfiguration',
        #instVars : [
                'startColor',
                'endColor',
                'heightMetric',
                'widthMetric',
                'colorMetric',
                'availableMetrics',
                'displayedName',
                'heightMetricThreshold',
                'widthMetricThreshold',
                'colorMetricThreshold'
        ],
        #category : 'MooseIDE-Visualization-System Complexity',
        #package : 'MooseIDE-Visualization',
        #tag : 'System Complexity'
}

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> availableMetrics [

        ^ availableMetrics
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> availableMetrics: aCollection [

        availableMetrics := aCollection
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> colorMetric [

        ^ colorMetric
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> colorMetric: aFM3Property [

        colorMetric := aFM3Property
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> colorMetricThreshold [

        ^ colorMetricThreshold
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> colorMetricThreshold: anObject [

        colorMetricThreshold := anObject
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> displayedName [

        ^ displayedName
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> displayedName: aSymbol [

        displayedName := aSymbol
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> endColor [

        ^ endColor
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> endColor: anObject [

        endColor := anObject
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> heightMetric [

        ^ heightMetric
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> heightMetric: aFM3Property [

        heightMetric := aFM3Property
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> heightMetricThreshold [

        ^ heightMetricThreshold
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> heightMetricThreshold: anObject [

        heightMetricThreshold := anObject
]

{ #category : 'ui' }
MiSystemComplexitySettingsConfiguration >> settingsPresenters [

        ^ super settingsPresenters
                  add: ((MiDroplistSettingPresenter on: self)
                                   label: 'Height metric:';
                                   help: 'Metric used to determine the height of the boxes';
                                   items: availableMetrics;
                                   selectItem: heightMetric;
                                   display: [ :symbol | symbol asWords ];
                                   whenSelectedDo: [ :property | self heightMetric: property ]);
                  add: ((MiNumberSettingPresenter on: self)
                                   label: 'Heigh similarity threshold';
                                   help:
                                           'If the difference for the height metric between entities are below this threshold, normalize the height to make them look similar';
                                   number: heightMetricThreshold;
                                   whenNumberChangedDo: [ :nb | self heightMetricThreshold: nb ];
                                   yourself);
                  add: ((MiDroplistSettingPresenter on: self)
                                   label: 'Width metric:';
                                   help: 'Metric used to determine the width of the boxes';
                                   items: availableMetrics;
                                   selectItem: widthMetric;
                                   display: [ :symbol | symbol asWords ];
                                   whenSelectedDo: [ :property | self widthMetric: property ]);
                  add: ((MiNumberSettingPresenter on: self)
                                   label: 'Width similarity threshold';
                                   help:
                                           'If the difference for the width metric between entities are below this threshold, normalize the width to make them look similar';
                                   number: widthMetricThreshold;
                                   whenNumberChangedDo: [ :nb | self widthMetricThreshold: nb ];
                                   yourself);
                  add: ((MiDroplistSettingPresenter on: self)
                                   label: 'Color metric:';
                                   help: 'Metric used to determine the color of the boxes';
                                   items: availableMetrics;
                                   selectItem: colorMetric;
                                   display: [ :symbol | symbol asWords ];
                                   whenSelectedDo: [ :property | self colorMetric: property ]);
                  add: ((MiNumberSettingPresenter on: self)
                                   label: 'Color similarity threshold';
                                   help:
                                           'If the difference for the color metric between entities are below this threshold, normalize the color to make them look similar';
                                   number: colorMetricThreshold;
                                   whenNumberChangedDo: [ :nb | self colorMetricThreshold: nb ];
                                   yourself);
                  add: (MiColorGradientSelectionPresenter on: self);
                  add: (MiDisplayedNameSettingPresenter on: self);
                  yourself
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> startColor [

        ^ startColor
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> startColor: anObject [

        startColor := anObject
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> widthMetric [

        ^ widthMetric
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> widthMetric: aFM3Property [

        widthMetric := aFM3Property
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> widthMetricThreshold [

        ^ widthMetricThreshold
]

{ #category : 'accessing' }
MiSystemComplexitySettingsConfiguration >> widthMetricThreshold: anObject [

        widthMetricThreshold := anObject
]

1	Class {
2	#name : 'MiSystemComplexitySettingsConfiguration',
3	#superclass : 'MiAbstractSettingsConfiguration',
4	#instVars : [
5	'startColor',
6	'endColor',
7	'heightMetric',
8	'widthMetric',
9	'colorMetric',
10	'availableMetrics',
11	'displayedName',
12	'heightMetricThreshold',
13	'widthMetricThreshold',
14	'colorMetricThreshold'
15	],
16	#category : 'MooseIDE-Visualization-System Complexity',
17	#package : 'MooseIDE-Visualization',
18	#tag : 'System Complexity'
19	}
20
21	{ #category : 'accessing' }
NEW 22	MiSystemComplexitySettingsConfiguration >> availableMetrics [	×
NEW 23		×
NEW 24	^ availableMetrics	×
NEW 25	]	×
26
27	{ #category : 'accessing' }
28	MiSystemComplexitySettingsConfiguration >> availableMetrics: aCollection [	2✔
29		2✔
30	availableMetrics := aCollection	2✔
31	]	2✔
32
33	{ #category : 'accessing' }
34	MiSystemComplexitySettingsConfiguration >> colorMetric [	2✔
35		2✔
36	^ colorMetric	2✔
37	]	2✔
38
39	{ #category : 'accessing' }
40	MiSystemComplexitySettingsConfiguration >> colorMetric: aFM3Property [	2✔
41		2✔
42	colorMetric := aFM3Property	2✔
43	]	2✔
44
45	{ #category : 'accessing' }
46	MiSystemComplexitySettingsConfiguration >> colorMetricThreshold [	2✔
47		2✔
48	^ colorMetricThreshold	2✔
49	]	2✔
50
51	{ #category : 'accessing' }
52	MiSystemComplexitySettingsConfiguration >> colorMetricThreshold: anObject [	2✔
53		2✔
54	colorMetricThreshold := anObject	2✔
55	]	2✔
56
57	{ #category : 'accessing' }
58	MiSystemComplexitySettingsConfiguration >> displayedName [	2✔
59		2✔
60	^ displayedName	2✔
61	]	2✔
62
63	{ #category : 'accessing' }
64	MiSystemComplexitySettingsConfiguration >> displayedName: aSymbol [	2✔
65		2✔
66	displayedName := aSymbol	2✔
67	]	2✔
68
69	{ #category : 'accessing' }
70	MiSystemComplexitySettingsConfiguration >> endColor [	2✔
71		2✔
72	^ endColor	2✔
73	]	2✔
74
75	{ #category : 'accessing' }
76	MiSystemComplexitySettingsConfiguration >> endColor: anObject [	2✔
77		2✔
78	endColor := anObject	2✔
79	]	2✔
80
81	{ #category : 'accessing' }
82	MiSystemComplexitySettingsConfiguration >> heightMetric [	2✔
83		2✔
84	^ heightMetric	2✔
85	]	2✔
86
87	{ #category : 'accessing' }
88	MiSystemComplexitySettingsConfiguration >> heightMetric: aFM3Property [	2✔
89		2✔
90	heightMetric := aFM3Property	2✔
91	]	2✔
92
93	{ #category : 'accessing' }
94	MiSystemComplexitySettingsConfiguration >> heightMetricThreshold [	2✔
95		2✔
96	^ heightMetricThreshold	2✔
97	]	2✔
98
99	{ #category : 'accessing' }
100	MiSystemComplexitySettingsConfiguration >> heightMetricThreshold: anObject [	2✔
101		2✔
102	heightMetricThreshold := anObject	2✔
103	]	2✔
104
105	{ #category : 'ui' }
106	MiSystemComplexitySettingsConfiguration >> settingsPresenters [	2✔
107		2✔
108	^ super settingsPresenters	2✔
109	add: ((MiDroplistSettingPresenter on: self)	2✔
110	label: 'Height metric:';	2✔
111	help: 'Metric used to determine the height of the boxes';	2✔
112	items: availableMetrics;	2✔
113	selectItem: heightMetric;	2✔
114	display: [ :symbol \| symbol asWords ];	2✔
115	whenSelectedDo: [ :property \| self heightMetric: property ]);	2✔
116	add: ((MiNumberSettingPresenter on: self)	2✔
117	label: 'Heigh similarity threshold';	2✔
118	help:	2✔
119	'If the difference for the height metric between entities are below this threshold, normalize the height to make them look similar';	2✔
120	number: heightMetricThreshold;	2✔
121	whenNumberChangedDo: [ :nb \| self heightMetricThreshold: nb ];	2✔
122	yourself);	2✔
123	add: ((MiDroplistSettingPresenter on: self)	2✔
124	label: 'Width metric:';	2✔
125	help: 'Metric used to determine the width of the boxes';	2✔
126	items: availableMetrics;	2✔
127	selectItem: widthMetric;	2✔
128	display: [ :symbol \| symbol asWords ];	2✔
129	whenSelectedDo: [ :property \| self widthMetric: property ]);	2✔
130	add: ((MiNumberSettingPresenter on: self)	2✔
131	label: 'Width similarity threshold';	2✔
132	help:	2✔
133	'If the difference for the width metric between entities are below this threshold, normalize the width to make them look similar';	2✔
134	number: widthMetricThreshold;	2✔
135	whenNumberChangedDo: [ :nb \| self widthMetricThreshold: nb ];	2✔
136	yourself);	2✔
137	add: ((MiDroplistSettingPresenter on: self)	2✔
138	label: 'Color metric:';	2✔
139	help: 'Metric used to determine the color of the boxes';	2✔
140	items: availableMetrics;	2✔
141	selectItem: colorMetric;	2✔
142	display: [ :symbol \| symbol asWords ];	2✔
143	whenSelectedDo: [ :property \| self colorMetric: property ]);	2✔
144	add: ((MiNumberSettingPresenter on: self)	2✔
145	label: 'Color similarity threshold';	2✔
146	help:	2✔
147	'If the difference for the color metric between entities are below this threshold, normalize the color to make them look similar';	2✔
148	number: colorMetricThreshold;	2✔
149	whenNumberChangedDo: [ :nb \| self colorMetricThreshold: nb ];	2✔
150	yourself);	2✔
151	add: (MiColorGradientSelectionPresenter on: self);	2✔
152	add: (MiDisplayedNameSettingPresenter on: self);	2✔
153	yourself	2✔
154	]	2✔
155
156	{ #category : 'accessing' }
157	MiSystemComplexitySettingsConfiguration >> startColor [	2✔
158		2✔
159	^ startColor	2✔
160	]	2✔
161
162	{ #category : 'accessing' }
163	MiSystemComplexitySettingsConfiguration >> startColor: anObject [	2✔
164		2✔
165	startColor := anObject	2✔
166	]	2✔
167
168	{ #category : 'accessing' }
169	MiSystemComplexitySettingsConfiguration >> widthMetric [	2✔
170		2✔
171	^ widthMetric	2✔
172	]	2✔
173
174	{ #category : 'accessing' }
175	MiSystemComplexitySettingsConfiguration >> widthMetric: aFM3Property [	2✔
176		2✔
177	widthMetric := aFM3Property	2✔
178	]	2✔
179
180	{ #category : 'accessing' }
181	MiSystemComplexitySettingsConfiguration >> widthMetricThreshold [	2✔
182		2✔
183	^ widthMetricThreshold	2✔
184	]	2✔
185
186	{ #category : 'accessing' }
187	MiSystemComplexitySettingsConfiguration >> widthMetricThreshold: anObject [	2✔
188		2✔
189	widthMetricThreshold := anObject	2✔
190	]	2✔

moosetechnology / MooseIDE / 17938860495

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous