19175383782

Committed 07 Nov 2025 05:00PM UTC coverage: 65.887% (+0.07%) from 65.821%

Build # 19175383782

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1512 from moosetechnology/cousage-refactor

refactor of co-usage map settings
From class-side methods to instance-side
Also from system settings infrastructure to co-usage specific settings presenter

Run Details

189 of 203 new or added lines in 7 files covered. (93.1%)

40 existing lines in 3 files now uncovered.

21211 of 32193 relevant lines covered (65.89%)

1.32 hits per line

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

60.98

/src/MooseIDE-Core/MiPropagateCommand.class.st

"
Use me to propagate entities through the application
"
Class {
        #name : 'MiPropagateCommand',
        #superclass : 'MiCommand',
        #instVars : [
                'shouldFreezeBrowser'
        ],
        #category : 'MooseIDE-Core-Command',
        #package : 'MooseIDE-Core',
        #tag : 'Command'
}

{ #category : 'default' }
MiPropagateCommand class >> defaultDescription [
        ^ 'Propagate selected entity'
]

{ #category : 'default' }
MiPropagateCommand class >> defaultIconName [

        ^ #mooseOutgoing
]

{ #category : 'default' }
MiPropagateCommand class >> defaultName [
        ^ 'Propagate'
]

{ #category : 'default' }
MiPropagateCommand class >> defaultShortcut [

        ^ $m shift meta , $p meta shift
]

{ #category : 'testing' }
MiPropagateCommand >> canBeExecuted [

        ^ self context canPropagate
]

{ #category : 'freezing' }
MiPropagateCommand >> doNotFreezeBrowser [
        shouldFreezeBrowser := false
]

{ #category : 'executing' }
MiPropagateCommand >> execute [
        shouldFreezeBrowser
                ifTrue: [ self context freezeDuring: [ self propagate ] ]
                ifFalse: [ self propagate ]
]

{ #category : 'initialization' }
MiPropagateCommand >> initialize [
        super initialize.
        shouldFreezeBrowser := true
]

{ #category : 'testing' }
MiPropagateCommand >> propagate [

        | selectedItem |
        selectedItem := [ self context miSelectedItemToPropagate ]
                on: MiNoSelectedElementToPropagateException
                do: [ :exception |
                        exception signal.
                        ^ self ].

        self application miPropagate: selectedItem mooseInterestingEntity on: self context buses
]

1	"
2	Use me to propagate entities through the application
3	"
4	Class {
5	#name : 'MiPropagateCommand',
6	#superclass : 'MiCommand',
7	#instVars : [
8	'shouldFreezeBrowser'
9	],
10	#category : 'MooseIDE-Core-Command',
11	#package : 'MooseIDE-Core',
12	#tag : 'Command'
13	}
14
15	{ #category : 'default' }
16	MiPropagateCommand class >> defaultDescription [	2✔
17	^ 'Propagate selected entity'	2✔
18	]	2✔
19
20	{ #category : 'default' }
21	MiPropagateCommand class >> defaultIconName [	2✔
22		2✔
23	^ #mooseOutgoing	2✔
24	]	2✔
25
26	{ #category : 'default' }
27	MiPropagateCommand class >> defaultName [	2✔
28	^ 'Propagate'	2✔
29	]	2✔
30
31	{ #category : 'default' }
32	MiPropagateCommand class >> defaultShortcut [	2✔
33		2✔
34	^ $m shift meta , $p meta shift	2✔
35	]	2✔
36
37	{ #category : 'testing' }
38	MiPropagateCommand >> canBeExecuted [	2✔
39		2✔
40	^ self context canPropagate	2✔
41	]	2✔
42
43	{ #category : 'freezing' }
44	MiPropagateCommand >> doNotFreezeBrowser [	2✔
45	shouldFreezeBrowser := false	2✔
46	]	2✔
47
48	{ #category : 'executing' }
49	MiPropagateCommand >> execute [	×
50	shouldFreezeBrowser	×
51	ifTrue: [ self context freezeDuring: [ self propagate ] ]	×
52	ifFalse: [ self propagate ]	×
53	]	×
54
55	{ #category : 'initialization' }
56	MiPropagateCommand >> initialize [	2✔
57	super initialize.	2✔
58	shouldFreezeBrowser := true	2✔
59	]	2✔
60
61	{ #category : 'testing' }
62	MiPropagateCommand >> propagate [	×
63		×
64	\| selectedItem \|	×
65	selectedItem := [ self context miSelectedItemToPropagate ]	×
NEW 66	on: MiNoSelectedElementToPropagateException	×
NEW 67	do: [ :exception \|	×
NEW 68	exception signal.	×
NEW 69	^ self ].	×
70		×
71	self application miPropagate: selectedItem mooseInterestingEntity on: self context buses	×
72	]	×

moosetechnology / MooseIDE / 19175383782

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