17324054265

Committed 29 Aug 2025 12:40PM UTC coverage: 66.725% (+0.005%) from 66.72%

Build # 17324054265

Build Type

Pull #1391

github

Committed by

web-flow

Commit Message

Merge 379b03756 into 1283bb2e2

Pull Request Pull Request #1391: remove LayerVisualization from the Moose menu

Run Details

0 of 1 new or added line in 1 file covered. (0.0%)

19840 of 29734 relevant lines covered (66.72%)

1.33 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' }
20	MiLayerVisualizationBrowser class >> menuCommandOn: aBuilder [	×
NEW 21		×
22	^ self buildMenuItemIn: aBuilder	×
23	]	×
24
25	{ #category : 'world menu' }
26	MiLayerVisualizationBrowser class >> menuItem [	×
27		×
28	^ #MiLayerVisualizationBrowser	×
29	]	×
30
31	{ #category : 'world menu' }
32	MiLayerVisualizationBrowser class >> menuPriority [	×
33		×
34	^ self menuVisualizationToolsPriority + 1	×
35	]	×
36
37	{ #category : 'specs' }
38	MiLayerVisualizationBrowser class >> preferredExtent [	×
39		×
40	^ self currentWorld extent	×
41	]	×
42
43	{ #category : 'world menu' }
44	MiLayerVisualizationBrowser class >> title [	×
45		×
46	^ 'Layer visualization'	×
47	]	×
48
49	{ #category : 'testing' }
50	MiLayerVisualizationBrowser >> canFollowEntity: anObject [	×
51		×
52	^ anObject isMooseObject	×
53	]	×
54
55	{ #category : 'layout' }
56	MiLayerVisualizationBrowser >> defaultLayout [	×
57		×
58	^ SpBoxLayout newTopToBottom	×
59	add: visualization;	×
60	yourself	×
61	]	×
62
63	{ #category : 'actions' }
64	MiLayerVisualizationBrowser >> followEntity: anEntity [	×
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' }
82	MiLayerVisualizationBrowser >> initializePresenters [	×
83		×
84	visualization := self instantiate: MiLayerVisualization	×
85	]	×
86
87	{ #category : 'accessing' }
88	MiLayerVisualizationBrowser >> miSelectedItem [	×
89		×
90	^ nil	×
91	]	×
92
93	{ #category : 'actions' }
94	MiLayerVisualizationBrowser >> runVisualization [	×
95		×
96	visualization run	×
97	]	×

moosetechnology / MooseIDE / 17324054265

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