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

64.94

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

"
I am a browser showing a System Complexity visualization on classes.
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 : 'MiSystemComplexityBrowser',
        #superclass : 'MiAbstractVisualizationBrowser',
        #category : 'MooseIDE-Visualization-System Complexity',
        #package : 'MooseIDE-Visualization',
        #tag : 'System Complexity'
}

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

        <worldMenu>
        <miBrowsersMenu>
        ^ (self buildMenuItemIn: aBuilder) withSeparatorAfter
]

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

        ^ #SystemComplexityBrowser
]

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

        ^ self menuVisualizationToolsPriority + 6
]

{ #category : 'instance creation' }
MiSystemComplexityBrowser class >> newModel [

        ^ MiSystemComplexityModel new
]

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

        <script>
        ^ super open
]

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

        ^ 'System complexity'
]

{ #category : 'actions' }
MiSystemComplexityBrowser >> buildVisualization [

        self
                deprecated: 'Use runVisualization method instead'
                transformWith:
                '`@receiver buildVisualization' -> '`@receiver runVisualization'.
        self runVisualization
]

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

        ^ anObject isMooseObject and: [ anObject isCollection ]
]

{ #category : 'testing' }
MiSystemComplexityBrowser >> canTagEntities [

        self flag: 'No for now, but will need to be implemented'.
        ^ false
]

{ #category : 'actions' }
MiSystemComplexityBrowser >> followEntity: aMooseGroup [

        | newGroup |
        super followEntity: aMooseGroup.
        newGroup := (aMooseGroup select: [ :e | e isClass ]) asMooseGroup.

        newGroup ifEmpty: [
                        self inform: 'System Complexity:
All received entities were rejected'.
                        ^ self ].

        newGroup size < aMooseGroup size ifTrue: [
                        self inform: (String streamContents: [ :s |
                                                 s
                                                         << 'SystemComplexity:';
                                                         cr;
                                                         << (aMooseGroup size - newGroup size) asString;
                                                         << ' rejected entities.' ]) ].

        specModel entities: newGroup.
        self runVisualization
]

{ #category : 'initialization' }
MiSystemComplexityBrowser >> initializeLayout [

        self layout: (SpBoxLayout newTopToBottom
                         add: mainPresenter;
                         yourself)
]

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

        mainPresenter := self instantiate: MiSystemComplexityVisualization.
        self initializeLayout
]

1	"
2	I am a browser showing a System Complexity visualization on classes.
3	Accepted entities: a MooseGroup.
4
5	Controls:
6
7	* Mouse over to highlight common inner boxes
8	* Mouse click to keep the highlight
9	* right click over a box, to use the menu
10	* right click over the view to use the general menu
11	* command+click to use the last tag.
12
13	* Mouse left to drag
14	* Arrrow keys to move the visualization around
15	* Scrolls bars to change the view's position
16	* M to collapse or expand the window
17	* I to zoom in
18	* O to zoom out
19	* Moouse Wheel to zoom in/out
20	* S to search entities by their name (several search can be applied)
21	* R to clear all searches
22	"
23	Class {
24	#name : 'MiSystemComplexityBrowser',
25	#superclass : 'MiAbstractVisualizationBrowser',
26	#category : 'MooseIDE-Visualization-System Complexity',
27	#package : 'MooseIDE-Visualization',
28	#tag : 'System Complexity'
29	}
30
31	{ #category : 'world menu' }
32	MiSystemComplexityBrowser class >> menuCommandOn: aBuilder [	×
33		×
34	<worldMenu>	×
35	<miBrowsersMenu>	×
36	^ (self buildMenuItemIn: aBuilder) withSeparatorAfter	×
37	]	×
38
39	{ #category : 'world menu' }
40	MiSystemComplexityBrowser class >> menuItem [	×
41		×
42	^ #SystemComplexityBrowser	×
43	]	×
44
45	{ #category : 'world menu' }
46	MiSystemComplexityBrowser class >> menuPriority [	×
47		×
48	^ self menuVisualizationToolsPriority + 6	×
49	]	×
50
51	{ #category : 'instance creation' }
52	MiSystemComplexityBrowser class >> newModel [	2✔
53		2✔
54	^ MiSystemComplexityModel new	2✔
55	]	2✔
56
57	{ #category : 'instance creation' }
58	MiSystemComplexityBrowser class >> open [	×
59		×
60	<script>	×
NEW 61	^ super open	×
62	]	×
63
64	{ #category : 'specs' }
65	MiSystemComplexityBrowser class >> title [	2✔
66		2✔
67	^ 'System complexity'	2✔
68	]	2✔
69
70	{ #category : 'actions' }
71	MiSystemComplexityBrowser >> buildVisualization [	×
72		×
NEW 73	self	×
NEW 74	deprecated: 'Use runVisualization method instead'	×
NEW 75	transformWith:	×
NEW 76	'`@receiver buildVisualization' -> '`@receiver runVisualization'.	×
NEW 77	self runVisualization	×
UNCOV 78	]	×
79
80	{ #category : 'testing' }
81	MiSystemComplexityBrowser >> canFollowEntity: anObject [	2✔
82		2✔
83	^ anObject isMooseObject and: [ anObject isCollection ]	2✔
84	]	2✔
85
86	{ #category : 'testing' }
87	MiSystemComplexityBrowser >> canTagEntities [	2✔
88		2✔
89	self flag: 'No for now, but will need to be implemented'.	2✔
90	^ false	2✔
91	]	2✔
92
93	{ #category : 'actions' }
94	MiSystemComplexityBrowser >> followEntity: aMooseGroup [	2✔
95		2✔
96	\| newGroup \|	2✔
97	super followEntity: aMooseGroup.	2✔
98	newGroup := (aMooseGroup select: [ :e \| e isClass ]) asMooseGroup.	2✔
99		2✔
100	newGroup ifEmpty: [	2✔
101	self inform: 'System Complexity:	2✔
102	All received entities were rejected'.	2✔
103	^ self ].	2✔
104		2✔
105	newGroup size < aMooseGroup size ifTrue: [	2✔
106	self inform: (String streamContents: [ :s \|	2✔
107	s	2✔
108	<< 'SystemComplexity:';	2✔
109	cr;	2✔
110	<< (aMooseGroup size - newGroup size) asString;	2✔
111	<< ' rejected entities.' ]) ].	2✔
112		2✔
113	specModel entities: newGroup.	2✔
114	self runVisualization	2✔
115	]	2✔
116
117	{ #category : 'initialization' }
118	MiSystemComplexityBrowser >> initializeLayout [	2✔
119		2✔
120	self layout: (SpBoxLayout newTopToBottom	2✔
121	add: mainPresenter;	2✔
122	yourself)	2✔
123	]	2✔
124
125	{ #category : 'initialization' }
126	MiSystemComplexityBrowser >> initializePresenters [	2✔
127		2✔
128	mainPresenter := self instantiate: MiSystemComplexityVisualization.	2✔
129	self initializeLayout	2✔
130	]	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