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

43.48

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

Class {
        #name : 'MiAbstractVisualization',
        #superclass : 'SpRoassalPresenter',
        #instVars : [
                'highlightedEntities'
        ],
        #category : 'MooseIDE-Visualization-Helpers',
        #package : 'MooseIDE-Visualization',
        #tag : 'Helpers'
}

{ #category : 'running' }
MiAbstractVisualization >> buildInCanvas: aCanvas [

        self subclassResponsibility
]

{ #category : 'running' }
MiAbstractVisualization >> clearLegend [

        ^ self canvas fixedShapes: RSGroup new
]

{ #category : 'helpers' }
MiAbstractVisualization >> colorFor: anEntity [
        ^ (highlightedEntities includes: anEntity)
                ifTrue: [ self highlightColor ]
                ifFalse: [ self noHighlightColorFor: anEntity ]
]

{ #category : 'helpers' }
MiAbstractVisualization >> highlightColor [
        ^ self theme warningTextColor
]

{ #category : 'highlighting' }
MiAbstractVisualization >> highlightEntities: someEntities [

        self canvas shapes ifEmpty: [ ^ self ].
        self highlightedEntities: someEntities asMooseGroup.
        self highlightShapes.
        self canvas signalUpdate
]

{ #category : 'highlighting' }
MiAbstractVisualization >> highlightShapes [

        self selectShapes: self shapesWithModel
]

{ #category : 'accessing' }
MiAbstractVisualization >> highlightedEntities [
        ^ highlightedEntities
]

{ #category : 'accessing' }
MiAbstractVisualization >> highlightedEntities: entities [
        highlightedEntities := entities
]

{ #category : 'initialization' }
MiAbstractVisualization >> initialize [

        super initialize.

        highlightedEntities := MooseGroup new.

        self script: [ :canvas | self buildInCanvas: canvas ]
]

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

        ^ self canvas selectedShapes collect: [ :shape | self modelForShape: shape ]
]

{ #category : 'accessing' }
MiAbstractVisualization >> modelForShape: aShape [

        ^ aShape model
]

{ #category : 'helpers' }
MiAbstractVisualization >> noHighlightColorFor: anEntity [
        ^ self theme selectionColor
]

{ #category : 'running' }
MiAbstractVisualization >> run [

        self canvas clear.
        self clearLegend.
        self canvas controllerInteraction: nil.
        self script value: self canvas
]

{ #category : 'highlighting' }
MiAbstractVisualization >> selectShapes: shapes [

        self canvas setSelectedShapes: shapes
]

{ #category : 'highlighting' }
MiAbstractVisualization >> shapesWithModel [

        ^ self canvas shapes select: [ :shape |
                          shape isLine not and: [
                                          shape model notNil and: [
                                                  highlightedEntities includes: (self modelForShape: shape) ] ] ]
]

{ #category : 'highlighting' }
MiAbstractVisualization >> unHighlight [
        highlightedEntities := MooseGroup new
]

1	Class {
2	#name : 'MiAbstractVisualization',
3	#superclass : 'SpRoassalPresenter',
4	#instVars : [
5	'highlightedEntities'
6	],
7	#category : 'MooseIDE-Visualization-Helpers',
8	#package : 'MooseIDE-Visualization',
9	#tag : 'Helpers'
10	}
11
12	{ #category : 'running' }
13	MiAbstractVisualization >> buildInCanvas: aCanvas [
14
15	self subclassResponsibility
16	]
17
18	{ #category : 'running' }
19	MiAbstractVisualization >> clearLegend [	2✔
20		2✔
21	^ self canvas fixedShapes: RSGroup new	2✔
22	]	2✔
23
24	{ #category : 'helpers' }
25	MiAbstractVisualization >> colorFor: anEntity [	×
26	^ (highlightedEntities includes: anEntity)	×
27	ifTrue: [ self highlightColor ]	×
28	ifFalse: [ self noHighlightColorFor: anEntity ]	×
29	]	×
30
31	{ #category : 'helpers' }
32	MiAbstractVisualization >> highlightColor [	×
33	^ self theme warningTextColor	×
34	]	×
35
36	{ #category : 'highlighting' }
37	MiAbstractVisualization >> highlightEntities: someEntities [	2✔
38		2✔
39	self canvas shapes ifEmpty: [ ^ self ].	2✔
40	self highlightedEntities: someEntities asMooseGroup.	2✔
41	self highlightShapes.	2✔
42	self canvas signalUpdate	2✔
43	]	2✔
44
45	{ #category : 'highlighting' }
46	MiAbstractVisualization >> highlightShapes [	×
NEW 47		×
48	self selectShapes: self shapesWithModel	×
49	]	×
50
51	{ #category : 'accessing' }
52	MiAbstractVisualization >> highlightedEntities [	×
53	^ highlightedEntities	×
54	]	×
55
56	{ #category : 'accessing' }
57	MiAbstractVisualization >> highlightedEntities: entities [	×
58	highlightedEntities := entities	×
59	]	×
60
61	{ #category : 'initialization' }
62	MiAbstractVisualization >> initialize [	2✔
63		2✔
64	super initialize.	2✔
65		2✔
66	highlightedEntities := MooseGroup new.	2✔
67		2✔
68	self script: [ :canvas \| self buildInCanvas: canvas ]	2✔
69	]	2✔
70
71	{ #category : 'accessing' }
72	MiAbstractVisualization >> miSelectedItem [	2✔
73		2✔
74	^ self canvas selectedShapes collect: [ :shape \| self modelForShape: shape ]	2✔
75	]	2✔
76
77	{ #category : 'accessing' }
78	MiAbstractVisualization >> modelForShape: aShape [	×
79		×
80	^ aShape model	×
81	]	×
82
83	{ #category : 'helpers' }
84	MiAbstractVisualization >> noHighlightColorFor: anEntity [	×
85	^ self theme selectionColor	×
86	]	×
87
88	{ #category : 'running' }
89	MiAbstractVisualization >> run [	2✔
90		2✔
91	self canvas clear.	2✔
92	self clearLegend.	2✔
93	self canvas controllerInteraction: nil.	2✔
94	self script value: self canvas	2✔
95	]	2✔
96
97	{ #category : 'highlighting' }
98	MiAbstractVisualization >> selectShapes: shapes [	×
99		×
100	self canvas setSelectedShapes: shapes	×
101	]	×
102
103	{ #category : 'highlighting' }
104	MiAbstractVisualization >> shapesWithModel [	×
NEW 105		×
106	^ self canvas shapes select: [ :shape \|	×
NEW 107	shape isLine not and: [	×
NEW 108	shape model notNil and: [	×
NEW 109	highlightedEntities includes: (self modelForShape: shape) ] ] ]	×
UNCOV 110	]	×
111
112	{ #category : 'highlighting' }
113	MiAbstractVisualization >> unHighlight [	×
114	highlightedEntities := MooseGroup new	×
115	]	×

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