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

94.2

/src/MooseIDE-ButterflyMap/MiButterflyMapModel.class.st

Class {
        #name : 'MiButterflyMapModel',
        #superclass : 'MiAbstractModel',
        #instVars : [
                'currentEntity',
                'childrenQuery',
                'clientsQuery',
                'providersQuery'
        ],
        #category : 'MooseIDE-ButterflyMap-Model',
        #package : 'MooseIDE-ButterflyMap',
        #tag : 'Model'
}

{ #category : 'computing' }
MiButterflyMapModel >> childrenFor: anEntity [

        ^ childrenQuery runOn: anEntity asMooseGroup
]

{ #category : 'settings management' }
MiButterflyMapModel >> currentConfiguration [

        ^ MiButterflyMapSettingsConfiguration new
                  childrenQuery: childrenQuery;
                  clientsQuery: clientsQuery;
                  providersQuery: providersQuery;
                  yourself
]

{ #category : 'accessing' }
MiButterflyMapModel >> currentEntity [

        ^ currentEntity
]

{ #category : 'accessing' }
MiButterflyMapModel >> currentEntity: anObject [

        currentEntity := anObject.
        browser runVisualization
]

{ #category : 'settings management' }
MiButterflyMapModel >> defaultConfiguration [

        ^ MiButterflyMapSettingsConfiguration new
                  childrenQuery: self defaultChildrenQuery;
                  clientsQuery: self currentApplication defaultClientsQuery;
                  providersQuery: self currentApplication defaultProvidersQuery;
                  yourself
]

{ #category : 'accessing' }
MiButterflyMapModel >> entities [
        "should probably return all entities displayed and not only the central one"
        ^self currentEntity
                ifNil: [ #() ]
                ifNotNil: [ :entity | { entity } ]
]

{ #category : 'testing' }
MiButterflyMapModel >> hasSettings [

        ^ true
]

{ #category : 'initialization' }
MiButterflyMapModel >> initializeSettings [

        childrenQuery := self defaultChildrenQuery.
        clientsQuery := self currentApplication defaultClientsQuery.
        providersQuery := self currentApplication defaultProvidersQuery
]

{ #category : 'computing' }
MiButterflyMapModel >> leftEntitiesFor: anEntity [

        ^ clientsQuery runOn: anEntity asMooseGroup
]

{ #category : 'accessing' }
MiButterflyMapModel >> miSelectedItem [

        ^ self entities
]

{ #category : 'computing' }
MiButterflyMapModel >> rightEntitiesFor: anEntity [

        ^ providersQuery runOn: anEntity asMooseGroup
]

{ #category : 'settings management' }
MiButterflyMapModel >> settingsPresenterExtent [

        ^ 300 @ 250
]

{ #category : 'settings management' }
MiButterflyMapModel >> updateFromConfiguration: aConfiguration [

        childrenQuery := aConfiguration childrenQuery.
        clientsQuery := aConfiguration clientsQuery.
        providersQuery := aConfiguration providersQuery.

        browser runVisualization
]

1	Class {
2	#name : 'MiButterflyMapModel',
3	#superclass : 'MiAbstractModel',
4	#instVars : [
5	'currentEntity',
6	'childrenQuery',
7	'clientsQuery',
8	'providersQuery'
9	],
10	#category : 'MooseIDE-ButterflyMap-Model',
11	#package : 'MooseIDE-ButterflyMap',
12	#tag : 'Model'
13	}
14
15	{ #category : 'computing' }
16	MiButterflyMapModel >> childrenFor: anEntity [	2✔
17		2✔
18	^ childrenQuery runOn: anEntity asMooseGroup	2✔
19	]	2✔
20
21	{ #category : 'settings management' }
22	MiButterflyMapModel >> currentConfiguration [	2✔
23		2✔
24	^ MiButterflyMapSettingsConfiguration new	2✔
25	childrenQuery: childrenQuery;	2✔
26	clientsQuery: clientsQuery;	2✔
27	providersQuery: providersQuery;	2✔
28	yourself	2✔
29	]	2✔
30
31	{ #category : 'accessing' }
32	MiButterflyMapModel >> currentEntity [	2✔
33		2✔
34	^ currentEntity	2✔
35	]	2✔
36
37	{ #category : 'accessing' }
38	MiButterflyMapModel >> currentEntity: anObject [	2✔
39		2✔
40	currentEntity := anObject.	2✔
41	browser runVisualization	2✔
42	]	2✔
43
44	{ #category : 'settings management' }
45	MiButterflyMapModel >> defaultConfiguration [	2✔
46		2✔
47	^ MiButterflyMapSettingsConfiguration new	2✔
48	childrenQuery: self defaultChildrenQuery;	2✔
49	clientsQuery: self currentApplication defaultClientsQuery;	2✔
50	providersQuery: self currentApplication defaultProvidersQuery;	2✔
51	yourself	2✔
52	]	2✔
53
54	{ #category : 'accessing' }
55	MiButterflyMapModel >> entities [	2✔
56	"should probably return all entities displayed and not only the central one"	2✔
57	^self currentEntity	2✔
58	ifNil: [ #() ]	2✔
59	ifNotNil: [ :entity \| { entity } ]	2✔
60	]	2✔
61
62	{ #category : 'testing' }
63	MiButterflyMapModel >> hasSettings [	2✔
64		2✔
65	^ true	2✔
66	]	2✔
67
68	{ #category : 'initialization' }
69	MiButterflyMapModel >> initializeSettings [	2✔
70		2✔
71	childrenQuery := self defaultChildrenQuery.	2✔
72	clientsQuery := self currentApplication defaultClientsQuery.	2✔
73	providersQuery := self currentApplication defaultProvidersQuery	2✔
74	]	2✔
75
76	{ #category : 'computing' }
77	MiButterflyMapModel >> leftEntitiesFor: anEntity [	2✔
78		2✔
79	^ clientsQuery runOn: anEntity asMooseGroup	2✔
80	]	2✔
81
82	{ #category : 'accessing' }
83	MiButterflyMapModel >> miSelectedItem [	×
84		×
NEW 85	^ self entities	×
86	]	×
87
88	{ #category : 'computing' }
89	MiButterflyMapModel >> rightEntitiesFor: anEntity [	2✔
90		2✔
91	^ providersQuery runOn: anEntity asMooseGroup	2✔
92	]	2✔
93
94	{ #category : 'settings management' }
95	MiButterflyMapModel >> settingsPresenterExtent [	2✔
96		2✔
97	^ 300 @ 250	2✔
98	]	2✔
99
100	{ #category : 'settings management' }
101	MiButterflyMapModel >> updateFromConfiguration: aConfiguration [	2✔
102		2✔
103	childrenQuery := aConfiguration childrenQuery.	2✔
104	clientsQuery := aConfiguration clientsQuery.	2✔
105	providersQuery := aConfiguration providersQuery.	2✔
106		2✔
107	browser runVisualization	2✔
108	]	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