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

82.22

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

Class {
        #name : 'MiAbstractRadioButtonSettingPresenter',
        #superclass : 'MiAbstractSettingPresenter',
        #instVars : [
                'selectedButton',
                'buttons',
                'itemWidth'
        ],
        #category : 'MooseIDE-Core-Settings',
        #package : 'MooseIDE-Core',
        #tag : 'Settings'
}

{ #category : 'event handling' }
MiAbstractRadioButtonSettingPresenter >> activate: anItem [

        self subclassResponsibility
]

{ #category : 'adding' }
MiAbstractRadioButtonSettingPresenter >> addButton: aButton [

        self layout add: aButton
]

{ #category : 'building' }
MiAbstractRadioButtonSettingPresenter >> connectButtons [

        selectedButton
                associatedRadioButtons: buttons;
                state: true
]

{ #category : 'layout' }
MiAbstractRadioButtonSettingPresenter >> defaultLayout [

        ^ self newBoxLayoutLeftToRight
]

{ #category : 'building' }
MiAbstractRadioButtonSettingPresenter >> helpForItem: anItem [

        ^ anItem printString
]

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

        buttons := self items collect: [ :item |
                                   | button |
                                   button := self newRadioButtonFor: item.
                                   self addButton: button.
                                   button ].

        self connectButtons
]

{ #category : 'testing' }
MiAbstractRadioButtonSettingPresenter >> isCurrentValue: anItem [

        self subclassResponsibility
]

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

        ^ self subclassResponsibility 
]

{ #category : 'building' }
MiAbstractRadioButtonSettingPresenter >> labelForItem: anItem [

        ^ anItem printString
]

{ #category : 'instance creation' }
MiAbstractRadioButtonSettingPresenter >> newRadioButtonFor: anItem [

        | button |
        button := self newRadioButton.
        button
                label: (self labelForItem: anItem);
                help: (self helpForItem: anItem);
                whenActivatedDo: [ self activate: anItem ].

        (self isCurrentValue: anItem) ifTrue: [ selectedButton := button ].

        ^ button
]

1	Class {
2	#name : 'MiAbstractRadioButtonSettingPresenter',
3	#superclass : 'MiAbstractSettingPresenter',
4	#instVars : [
5	'selectedButton',
6	'buttons',
7	'itemWidth'
8	],
9	#category : 'MooseIDE-Core-Settings',
10	#package : 'MooseIDE-Core',
11	#tag : 'Settings'
12	}
13
14	{ #category : 'event handling' }
15	MiAbstractRadioButtonSettingPresenter >> activate: anItem [
16
17	self subclassResponsibility
18	]
19
20	{ #category : 'adding' }
21	MiAbstractRadioButtonSettingPresenter >> addButton: aButton [	2✔
22		2✔
23	self layout add: aButton	2✔
24	]	2✔
25
26	{ #category : 'building' }
27	MiAbstractRadioButtonSettingPresenter >> connectButtons [	2✔
28		2✔
29	selectedButton	2✔
30	associatedRadioButtons: buttons;	2✔
31	state: true	2✔
32	]	2✔
33
34	{ #category : 'layout' }
35	MiAbstractRadioButtonSettingPresenter >> defaultLayout [	2✔
36		2✔
37	^ self newBoxLayoutLeftToRight	2✔
38	]	2✔
39
40	{ #category : 'building' }
NEW 41	MiAbstractRadioButtonSettingPresenter >> helpForItem: anItem [	×
NEW 42		×
NEW 43	^ anItem printString	×
NEW 44	]	×
45
46	{ #category : 'initialization' }
47	MiAbstractRadioButtonSettingPresenter >> initializePresenters [	2✔
48		2✔
49	buttons := self items collect: [ :item \|	2✔
50	\| button \|	2✔
51	button := self newRadioButtonFor: item.	2✔
52	self addButton: button.	2✔
53	button ].	2✔
54		2✔
55	self connectButtons	2✔
56	]	2✔
57
58	{ #category : 'testing' }
59	MiAbstractRadioButtonSettingPresenter >> isCurrentValue: anItem [
60
61	self subclassResponsibility
62	]
63
64	{ #category : 'accessing' }
65	MiAbstractRadioButtonSettingPresenter >> items [
66
67	^ self subclassResponsibility
68	]
69
70	{ #category : 'building' }
NEW 71	MiAbstractRadioButtonSettingPresenter >> labelForItem: anItem [	×
NEW 72		×
NEW 73	^ anItem printString	×
NEW 74	]	×
75
76	{ #category : 'instance creation' }
77	MiAbstractRadioButtonSettingPresenter >> newRadioButtonFor: anItem [	2✔
78		2✔
79	\| button \|	2✔
80	button := self newRadioButton.	2✔
81	button	2✔
82	label: (self labelForItem: anItem);	2✔
83	help: (self helpForItem: anItem);	2✔
84	whenActivatedDo: [ self activate: anItem ].	2✔
85		2✔
86	(self isCurrentValue: anItem) ifTrue: [ selectedButton := button ].	2✔
87		2✔
88	^ button	2✔
89	]	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