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/MiLVAbstractBoxNode.class.st

Class {
        #name : 'MiLVAbstractBoxNode',
        #superclass : 'MiLVAbstractNode',
        #instVars : [
                'name',
                'children',
                'gapSize',
                'style'
        ],
        #category : 'MooseIDE-LayerVisualization-Model',
        #package : 'MooseIDE-LayerVisualization',
        #tag : 'Model'
}

{ #category : 'adding' }
MiLVAbstractBoxNode >> add: aNode [

        aNode parent: self.
        children add: aNode
]

{ #category : 'adding' }
MiLVAbstractBoxNode >> addAll: aCollectionOfNodes [

        aCollectionOfNodes do: [ :n | n parent: self ].
        children addAll: aCollectionOfNodes
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> backgroundColor [

        ^ style background
]

{ #category : 'as yet unclassified' }
MiLVAbstractBoxNode >> backgroundColor: aColor [

        style background: aColor
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> borderStyle [

        ^style border
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> children [

        ^ children
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> children: anObject [

        children := anObject
]

{ #category : 'as yet unclassified' }
MiLVAbstractBoxNode >> dashedBorder [

        style border: #dashed
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> gapSize [

        ^ gapSize
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> gapSize: anObject [

        gapSize := anObject
]

{ #category : 'initialization' }
MiLVAbstractBoxNode >> initialize [

        super initialize.
        children := OrderedCollection new.
        gapSize := 3.
        style := MiLVBoxStyle new
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> name [

        ^ name
]

{ #category : 'accessing' }
MiLVAbstractBoxNode >> name: anObject [

        name := anObject
]

{ #category : 'as yet unclassified' }
MiLVAbstractBoxNode >> withoutBorder [

        style border: #without
]

1	Class {
2	#name : 'MiLVAbstractBoxNode',
3	#superclass : 'MiLVAbstractNode',
4	#instVars : [
5	'name',
6	'children',
7	'gapSize',
8	'style'
9	],
10	#category : 'MooseIDE-LayerVisualization-Model',
11	#package : 'MooseIDE-LayerVisualization',
12	#tag : 'Model'
13	}
14
15	{ #category : 'adding' }
UNCOV 16	MiLVAbstractBoxNode >> add: aNode [	×
UNCOV 17		×
18	aNode parent: self.	×
19	children add: aNode	×
20	]	×
21
22	{ #category : 'adding' }
UNCOV 23	MiLVAbstractBoxNode >> addAll: aCollectionOfNodes [	×
UNCOV 24		×
25	aCollectionOfNodes do: [ :n \| n parent: self ].	×
26	children addAll: aCollectionOfNodes	×
27	]	×
28
29	{ #category : 'accessing' }
UNCOV 30	MiLVAbstractBoxNode >> backgroundColor [	×
UNCOV 31		×
32	^ style background	×
33	]	×
34
35	{ #category : 'as yet unclassified' }
UNCOV 36	MiLVAbstractBoxNode >> backgroundColor: aColor [	×
UNCOV 37		×
38	style background: aColor	×
39	]	×
40
41	{ #category : 'accessing' }
UNCOV 42	MiLVAbstractBoxNode >> borderStyle [	×
UNCOV 43		×
44	^style border	×
45	]	×
46
47	{ #category : 'accessing' }
UNCOV 48	MiLVAbstractBoxNode >> children [	×
UNCOV 49		×
50	^ children	×
51	]	×
52
53	{ #category : 'accessing' }
UNCOV 54	MiLVAbstractBoxNode >> children: anObject [	×
UNCOV 55		×
56	children := anObject	×
57	]	×
58
59	{ #category : 'as yet unclassified' }
UNCOV 60	MiLVAbstractBoxNode >> dashedBorder [	×
UNCOV 61		×
62	style border: #dashed	×
63	]	×
64
65	{ #category : 'accessing' }
UNCOV 66	MiLVAbstractBoxNode >> gapSize [	×
UNCOV 67		×
68	^ gapSize	×
69	]	×
70
71	{ #category : 'accessing' }
UNCOV 72	MiLVAbstractBoxNode >> gapSize: anObject [	×
UNCOV 73		×
74	gapSize := anObject	×
75	]	×
76
77	{ #category : 'initialization' }
UNCOV 78	MiLVAbstractBoxNode >> initialize [	×
UNCOV 79		×
80	super initialize.	×
81	children := OrderedCollection new.	×
82	gapSize := 3.	×
83	style := MiLVBoxStyle new	×
84	]	×
85
86	{ #category : 'accessing' }
UNCOV 87	MiLVAbstractBoxNode >> name [	×
UNCOV 88		×
89	^ name	×
90	]	×
91
92	{ #category : 'accessing' }
UNCOV 93	MiLVAbstractBoxNode >> name: anObject [	×
UNCOV 94		×
95	name := anObject	×
96	]	×
97
98	{ #category : 'as yet unclassified' }
UNCOV 99	MiLVAbstractBoxNode >> withoutBorder [	×
UNCOV 100		×
101	style border: #without	×
102	]	×

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