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

0.0

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

Class {
        #name : 'MiEditableListSelector',
        #superclass : 'MiPresenter',
        #instVars : [
                'editableList',
                'addList',
                'allItems'
        ],
        #category : 'MooseIDE-Core-Widgets',
        #package : 'MooseIDE-Core',
        #tag : 'Widgets'
}

{ #category : 'accessing' }
MiEditableListSelector >> allItems: aCollection [

        allItems := aCollection
]

{ #category : 'initialization' }
MiEditableListSelector >> connectPresenters [

        editableList addItemBlock: [ self openAddList. nil ]
]

{ #category : 'initialization' }
MiEditableListSelector >> defaultLayout [

        ^ SpScrollableLayout new
                  child: editableList;
                  yourself
]

{ #category : 'api' }
MiEditableListSelector >> display: aBlock [

        editableList display: aBlock.
        addList display: aBlock
]

{ #category : 'api' }
MiEditableListSelector >> displayIcon: aBlock [

        editableList displayIcon: aBlock.
        addList displayIcon: aBlock
]

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

        super initialize.
        allItems := OrderedCollection new
]

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

        addList := self newList
                           beMultipleSelection;
                           yourself.
        editableList := self instantiate: SpEditableListPresenter
]

{ #category : 'accessing' }
MiEditableListSelector >> items [

        ^ editableList items
]

{ #category : 'accessing' }
MiEditableListSelector >> items: aCollection [

        editableList items: aCollection
]

{ #category : 'initialization' }
MiEditableListSelector >> openAddList [

        | modal |
        addList items: allItems \ self items.
        modal := addList asModalWindow.
        modal okAction: [ 
                editableList items: editableList items , addList selectedItems ].
        modal open
]

1	Class {
2	#name : 'MiEditableListSelector',
3	#superclass : 'MiPresenter',
4	#instVars : [
5	'editableList',
6	'addList',
7	'allItems'
8	],
9	#category : 'MooseIDE-Core-Widgets',
10	#package : 'MooseIDE-Core',
11	#tag : 'Widgets'
12	}
13
14	{ #category : 'accessing' }
15	MiEditableListSelector >> allItems: aCollection [	×
16		×
17	allItems := aCollection	×
18	]	×
19
20	{ #category : 'initialization' }
UNCOV 21	MiEditableListSelector >> connectPresenters [	×
UNCOV 22		×
UNCOV 23	editableList addItemBlock: [ self openAddList. nil ]	×
UNCOV 24	]	×
25
26	{ #category : 'initialization' }
27	MiEditableListSelector >> defaultLayout [	×
28		×
29	^ SpScrollableLayout new	×
30	child: editableList;	×
31	yourself	×
32	]	×
33
34	{ #category : 'api' }
35	MiEditableListSelector >> display: aBlock [	×
36		×
37	editableList display: aBlock.	×
38	addList display: aBlock	×
39	]	×
40
41	{ #category : 'api' }
42	MiEditableListSelector >> displayIcon: aBlock [	×
43		×
44	editableList displayIcon: aBlock.	×
45	addList displayIcon: aBlock	×
46	]	×
47
48	{ #category : 'initialization' }
UNCOV 49	MiEditableListSelector >> initialize [	×
UNCOV 50		×
UNCOV 51	super initialize.	×
UNCOV 52	allItems := OrderedCollection new	×
UNCOV 53	]	×
54
55	{ #category : 'initialization' }
UNCOV 56	MiEditableListSelector >> initializePresenters [	×
UNCOV 57		×
UNCOV 58	addList := self newList	×
UNCOV 59	beMultipleSelection;	×
UNCOV 60	yourself.	×
UNCOV 61	editableList := self instantiate: SpEditableListPresenter	×
UNCOV 62	]	×
63
64	{ #category : 'accessing' }
UNCOV 65	MiEditableListSelector >> items [	×
UNCOV 66		×
UNCOV 67	^ editableList items	×
UNCOV 68	]	×
69
70	{ #category : 'accessing' }
UNCOV 71	MiEditableListSelector >> items: aCollection [	×
UNCOV 72		×
UNCOV 73	editableList items: aCollection	×
UNCOV 74	]	×
75
76	{ #category : 'initialization' }
77	MiEditableListSelector >> openAddList [	×
78		×
79	\| modal \|	×
80	addList items: allItems \ self items.	×
81	modal := addList asModalWindow.	×
82	modal okAction: [	×
83	editableList items: editableList items , addList selectedItems ].	×
84	modal open	×
85	]	×

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