18218947233

Committed 03 Oct 2025 09:48AM UTC coverage: 66.756% (-0.02%) from 66.772%

Build # 18218947233

Build Type

push

github

Committed by

ClotildeToullec

Commit Message

Merge d2ac1f883

Run Details

240 of 353 new or added lines in 16 files covered. (67.99%)

352 existing lines in 33 files now uncovered.

20573 of 30818 relevant lines covered (66.76%)

1.34 hits per line

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

0.0

/src/MooseIDE-LayerVisualization/MiLayerVisualizationBrowser.class.st

"
I am a visualization that is used to partition a model into layers and show the links between layers.
Accepted entities: a moose object, the model is accessed from it.

The model that is propagated should have a description model that specifies the structure of the visualization.
This is done programmaticaly by subclassing the class MiLayerVisualizationModel.
"
Class {
        #name : 'MiLayerVisualizationBrowser',
        #superclass : 'MiAbstractBrowser',
        #instVars : [
                'visualization'
        ],
        #category : 'MooseIDE-LayerVisualization-Presenters',
        #package : 'MooseIDE-LayerVisualization',
        #tag : 'Presenters'
}

{ #category : 'world menu' }
MiLayerVisualizationBrowser class >> menuCommandOn: aBuilder [
        
        ^ self buildMenuItemIn: aBuilder
]

{ #category : 'world menu' }
MiLayerVisualizationBrowser class >> menuItem [

        ^ #MiLayerVisualizationBrowser
]

{ #category : 'world menu' }
MiLayerVisualizationBrowser class >> menuPriority [

        ^ self menuVisualizationToolsPriority + 1
]

{ #category : 'specs' }
MiLayerVisualizationBrowser class >> preferredExtent [

        ^ self currentWorld extent
]

{ #category : 'world menu' }
MiLayerVisualizationBrowser class >> title [

        ^ 'Layer visualization'
]

{ #category : 'testing' }
MiLayerVisualizationBrowser >> canFollowEntity: anObject [

        ^ anObject isMooseObject
]

{ #category : 'layout' }
MiLayerVisualizationBrowser >> defaultLayout [

        ^ SpBoxLayout newTopToBottom
                  add: visualization;
                  yourself
]

{ #category : 'actions' }
MiLayerVisualizationBrowser >> followEntity: anEntity [

        | mooseModel modelClass |
        super followEntity: anEntity.
        mooseModel := anEntity isMooseModel
                              ifTrue: [ anEntity ]
                              ifFalse: [ anEntity mooseModel ].

        modelClass := MiLayerVisualizationModel findModelApplicableTo:
                              mooseModel.
        modelClass ifNil: [ ^ self ].
        specModel := modelClass new
                             browser: self;
                             yourself.
        specModel followEntity: anEntity
]

{ #category : 'initialization' }
MiLayerVisualizationBrowser >> initializePresenters [

        visualization := self instantiate: MiLayerVisualization
]

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

        ^ nil
]

{ #category : 'actions' }
MiLayerVisualizationBrowser >> runVisualization [

        visualization run
]

1	"
2	I am a visualization that is used to partition a model into layers and show the links between layers.
3	Accepted entities: a moose object, the model is accessed from it.
4
5	The model that is propagated should have a description model that specifies the structure of the visualization.
6	This is done programmaticaly by subclassing the class MiLayerVisualizationModel.
7	"
8	Class {
9	#name : 'MiLayerVisualizationBrowser',
10	#superclass : 'MiAbstractBrowser',
11	#instVars : [
12	'visualization'
13	],
14	#category : 'MooseIDE-LayerVisualization-Presenters',
15	#package : 'MooseIDE-LayerVisualization',
16	#tag : 'Presenters'
17	}
18
19	{ #category : 'world menu' }
UNCOV 20	MiLayerVisualizationBrowser class >> menuCommandOn: aBuilder [	×
UNCOV 21		×
22	^ self buildMenuItemIn: aBuilder	×
23	]	×
24
25	{ #category : 'world menu' }
UNCOV 26	MiLayerVisualizationBrowser class >> menuItem [	×
UNCOV 27		×
28	^ #MiLayerVisualizationBrowser	×
29	]	×
30
31	{ #category : 'world menu' }
UNCOV 32	MiLayerVisualizationBrowser class >> menuPriority [	×
UNCOV 33		×
34	^ self menuVisualizationToolsPriority + 1	×
35	]	×
36
37	{ #category : 'specs' }
UNCOV 38	MiLayerVisualizationBrowser class >> preferredExtent [	×
UNCOV 39		×
40	^ self currentWorld extent	×
41	]	×
42
43	{ #category : 'world menu' }
UNCOV 44	MiLayerVisualizationBrowser class >> title [	×
UNCOV 45		×
46	^ 'Layer visualization'	×
47	]	×
48
49	{ #category : 'testing' }
UNCOV 50	MiLayerVisualizationBrowser >> canFollowEntity: anObject [	×
UNCOV 51		×
52	^ anObject isMooseObject	×
53	]	×
54
55	{ #category : 'layout' }
UNCOV 56	MiLayerVisualizationBrowser >> defaultLayout [	×
UNCOV 57		×
58	^ SpBoxLayout newTopToBottom	×
59	add: visualization;	×
60	yourself	×
61	]	×
62
63	{ #category : 'actions' }
UNCOV 64	MiLayerVisualizationBrowser >> followEntity: anEntity [	×
UNCOV 65		×
66	\| mooseModel modelClass \|	×
67	super followEntity: anEntity.	×
68	mooseModel := anEntity isMooseModel	×
69	ifTrue: [ anEntity ]	×
70	ifFalse: [ anEntity mooseModel ].	×
71		×
72	modelClass := MiLayerVisualizationModel findModelApplicableTo:	×
73	mooseModel.	×
74	modelClass ifNil: [ ^ self ].	×
75	specModel := modelClass new	×
76	browser: self;	×
77	yourself.	×
78	specModel followEntity: anEntity	×
79	]	×
80
81	{ #category : 'initialization' }
UNCOV 82	MiLayerVisualizationBrowser >> initializePresenters [	×
UNCOV 83		×
84	visualization := self instantiate: MiLayerVisualization	×
85	]	×
86
87	{ #category : 'accessing' }
UNCOV 88	MiLayerVisualizationBrowser >> miSelectedItem [	×
UNCOV 89		×
90	^ nil	×
91	]	×
92
93	{ #category : 'actions' }
UNCOV 94	MiLayerVisualizationBrowser >> runVisualization [	×
UNCOV 95		×
96	visualization run	×
97	]	×

moosetechnology / MooseIDE / 18218947233

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