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

58.44

/src/MooseIDE-CoUsageMap/MiCoUsageMapBrowser.class.st

"
This browser shows dependencies between ""container entities"" (e.g. methods) and ""used entities"" (e.g. attributes) and it allows to mark entities with tags.
Use settings to configure it.
In order to navigate across the visualization.

Accepted entities: a MooseGroup.

Controls:

* Mouse over to highlight common inner boxes
* Mouse click to keep the highlight
* right click over a box, to use the menu
* right click over the view to use the general menu
* command+click to use the last tag.

* Mouse left to drag
* Arrrow keys to move the visualization around
* Scrolls bars to change the view's position
* M to collapse or expand the window
* I to zoom in
* O to zoom out
* Moouse Wheel to zoom in/out
* S to search entities by their name (several search can be applied)
* R to clear all searches
"
Class {
        #name : 'MiCoUsageMapBrowser',
        #superclass : 'MiAbstractVisualizationBrowser',
        #category : 'MooseIDE-CoUsageMap-Browser',
        #package : 'MooseIDE-CoUsageMap',
        #tag : 'Browser'
}

{ #category : 'world menu' }
MiCoUsageMapBrowser class >> menuCommandOn: aBuilder [

        <worldMenu>
        <miBrowsersMenu>
        ^ self buildMenuItemIn: aBuilder
]

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

        ^ #FilesBrowser
]

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

        ^ self menuVisualizationToolsPriority + 3
]

{ #category : 'instance creation' }
MiCoUsageMapBrowser class >> newModel [
        ^MiCoUsageMapModel new
]

{ #category : 'instance creation' }
MiCoUsageMapBrowser class >> open [

        <script>
        ^ super open
]

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

        ^ 900 @ 700
]

{ #category : 'specs' }
MiCoUsageMapBrowser class >> title [

        ^ 'Co Usage Map'
]

{ #category : 'window control' }
MiCoUsageMapBrowser >> browserClosed [

        super browserClosed.
        application unregisterConsumer: mainPresenter.
        application unregisterProducer: mainPresenter
]

{ #category : 'testing' }
MiCoUsageMapBrowser >> canFollowEntity: anEntity [

        ^ anEntity isCollection and: [ anEntity isMooseModel not ]
]

{ #category : 'private - for tests' }
MiCoUsageMapBrowser >> closeSettings [
        "to close the settings window when testing
        Should not be used otherwise"

        specModel closeSettings 
]

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

        super followEntity: anEntity.
        self specModel followEntity: anEntity
]

{ #category : 'testing' }
MiCoUsageMapBrowser >> hasSettings [ 
        ^ true
]

{ #category : 'initialization' }
MiCoUsageMapBrowser >> initializePresenters [
        mainPresenter := self instantiate: MiCoUsageMapVisualization.
        mainPresenter specModel: specModel.

        self flag: 'this should be in MiCoUsageMapVisualization'.
        application registerConsumer: mainPresenter for: FamixTag.
        application registerConsumer: mainPresenter for: FamixTagAssociation.
        application registerProducer: mainPresenter for: FamixTagAssociation.
]

{ #category : 'accessing' }
MiCoUsageMapBrowser >> mapVisualization [
        ^ mainPresenter
]

{ #category : 'dependencies' }
MiCoUsageMapBrowser >> release [
        self class instVarNames do: [ :n | self instVarNamed: n put: nil ]
]

{ #category : 'updating' }
MiCoUsageMapBrowser >> update [
        self deprecated: 'Use runVisualization method instead' transformWith: '`@receiver update' -> '`@receiver runVisualization'.
        self runVisualization 
]

{ #category : 'public' }
MiCoUsageMapBrowser >> updateBoxColor: aMiCoBox fromTags: tags [

        mainPresenter updateBoxColor: aMiCoBox fromTags: tags
]

1	"
2	This browser shows dependencies between ""container entities"" (e.g. methods) and ""used entities"" (e.g. attributes) and it allows to mark entities with tags.
3	Use settings to configure it.
4	In order to navigate across the visualization.
5
6	Accepted entities: a MooseGroup.
7
8	Controls:
9
10	* Mouse over to highlight common inner boxes
11	* Mouse click to keep the highlight
12	* right click over a box, to use the menu
13	* right click over the view to use the general menu
14	* command+click to use the last tag.
15
16	* Mouse left to drag
17	* Arrrow keys to move the visualization around
18	* Scrolls bars to change the view's position
19	* M to collapse or expand the window
20	* I to zoom in
21	* O to zoom out
22	* Moouse Wheel to zoom in/out
23	* S to search entities by their name (several search can be applied)
24	* R to clear all searches
25	"
26	Class {
27	#name : 'MiCoUsageMapBrowser',
28	#superclass : 'MiAbstractVisualizationBrowser',
29	#category : 'MooseIDE-CoUsageMap-Browser',
30	#package : 'MooseIDE-CoUsageMap',
31	#tag : 'Browser'
32	}
33
34	{ #category : 'world menu' }
35	MiCoUsageMapBrowser class >> menuCommandOn: aBuilder [	×
36		×
37	<worldMenu>	×
38	<miBrowsersMenu>	×
39	^ self buildMenuItemIn: aBuilder	×
40	]	×
41
42	{ #category : 'world menu' }
43	MiCoUsageMapBrowser class >> menuItem [	×
44		×
45	^ #FilesBrowser	×
46	]	×
47
48	{ #category : 'world menu' }
49	MiCoUsageMapBrowser class >> menuPriority [	×
50		×
51	^ self menuVisualizationToolsPriority + 3	×
52	]	×
53
54	{ #category : 'instance creation' }
55	MiCoUsageMapBrowser class >> newModel [	2✔
56	^MiCoUsageMapModel new	2✔
57	]	2✔
58
59	{ #category : 'instance creation' }
60	MiCoUsageMapBrowser class >> open [	×
61		×
62	<script>	×
63	^ super open	×
64	]	×
65
66	{ #category : 'specs' }
67	MiCoUsageMapBrowser class >> preferredExtent [	2✔
68		2✔
69	^ 900 @ 700	2✔
70	]	2✔
71
72	{ #category : 'specs' }
73	MiCoUsageMapBrowser class >> title [	2✔
74		2✔
75	^ 'Co Usage Map'	2✔
76	]	2✔
77
78	{ #category : 'window control' }
79	MiCoUsageMapBrowser >> browserClosed [	2✔
80		2✔
81	super browserClosed.	2✔
82	application unregisterConsumer: mainPresenter.	2✔
83	application unregisterProducer: mainPresenter	2✔
84	]	2✔
85
86	{ #category : 'testing' }
87	MiCoUsageMapBrowser >> canFollowEntity: anEntity [	2✔
88		2✔
89	^ anEntity isCollection and: [ anEntity isMooseModel not ]	2✔
90	]	2✔
91
92	{ #category : 'private - for tests' }
UNCOV 93	MiCoUsageMapBrowser >> closeSettings [	×
UNCOV 94	"to close the settings window when testing	×
UNCOV 95	Should not be used otherwise"	×
UNCOV 96		×
UNCOV 97	specModel closeSettings	×
UNCOV 98	]	×
99
100	{ #category : 'actions' }
101	MiCoUsageMapBrowser >> followEntity: anEntity [	2✔
102		2✔
103	super followEntity: anEntity.	2✔
104	self specModel followEntity: anEntity	2✔
105	]	2✔
106
107	{ #category : 'testing' }
108	MiCoUsageMapBrowser >> hasSettings [	2✔
109	^ true	2✔
110	]	2✔
111
112	{ #category : 'initialization' }
113	MiCoUsageMapBrowser >> initializePresenters [	2✔
114	mainPresenter := self instantiate: MiCoUsageMapVisualization.	2✔
115	mainPresenter specModel: specModel.	2✔
116		2✔
117	self flag: 'this should be in MiCoUsageMapVisualization'.	2✔
118	application registerConsumer: mainPresenter for: FamixTag.	2✔
119	application registerConsumer: mainPresenter for: FamixTagAssociation.	2✔
120	application registerProducer: mainPresenter for: FamixTagAssociation.	2✔
121	]	2✔
122
123	{ #category : 'accessing' }
124	MiCoUsageMapBrowser >> mapVisualization [	2✔
125	^ mainPresenter	2✔
126	]	2✔
127
128	{ #category : 'dependencies' }
129	MiCoUsageMapBrowser >> release [	×
130	self class instVarNames do: [ :n \| self instVarNamed: n put: nil ]	×
131	]	×
132
133	{ #category : 'updating' }
134	MiCoUsageMapBrowser >> update [	×
135	self deprecated: 'Use runVisualization method instead' transformWith: '`@receiver update' -> '`@receiver runVisualization'.	×
136	self runVisualization	×
137	]	×
138
139	{ #category : 'public' }
140	MiCoUsageMapBrowser >> updateBoxColor: aMiCoBox fromTags: tags [	2✔
141		2✔
142	mainPresenter updateBoxColor: aMiCoBox fromTags: tags	2✔
143	]	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