18846503481

Committed 27 Oct 2025 03:29PM UTC coverage: 66.572% (+0.002%) from 66.57%

Build # 18846503481

Build Type

push

github

Committed by

ClotildeToullec

Commit Message

Fix tests now that MiAbstractVisualization uses #refresh

Run Details

33 of 33 new or added lines in 5 files covered. (100.0%)

7 existing lines in 1 file now uncovered.

20736 of 31148 relevant lines covered (66.57%)

1.33 hits per line

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

34.85

/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 refresh
]

{ #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' }
UNCOV 19	MiAbstractVisualization >> clearLegend [	×
UNCOV 20		×
UNCOV 21	^ self canvas fixedShapes: RSGroup new	×
UNCOV 22	]	×
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 [	×
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 refresh	2✔
92	]	2✔
93
94	{ #category : 'highlighting' }
95	MiAbstractVisualization >> selectShapes: shapes [	×
96		×
97	self canvas setSelectedShapes: shapes	×
UNCOV 98	]	×
99
100	{ #category : 'highlighting' }
101	MiAbstractVisualization >> shapesWithModel [	×
102		×
103	^ self canvas shapes select: [ :shape \|	×
104	shape isLine not and: [	×
105	shape model notNil and: [	×
106	highlightedEntities includes: (self modelForShape: shape) ] ] ]	×
UNCOV 107	]	×
108
109	{ #category : 'highlighting' }
110	MiAbstractVisualization >> unHighlight [	×
111	highlightedEntities := MooseGroup new	×
UNCOV 112	]	×

moosetechnology / MooseIDE / 18846503481

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