18782250839

Committed 24 Oct 2025 02:06PM UTC coverage: 66.592% (-0.03%) from 66.625%

Build # 18782250839

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1488 from moosetechnology/radio-button-layout

refactor: add all presenters at once instead of doing one by one.

Run Details

41 of 60 new or added lines in 4 files covered. (68.33%)

4 existing lines in 1 file now uncovered.

20726 of 31124 relevant lines covered (66.59%)

1.33 hits per line

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

75.51

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

Class {
        #name : 'MiAbstractRadioButtonSettingPresenter',
        #superclass : 'MiAbstractSettingPresenter',
        #instVars : [
                'selectedButton',
                'buttons'
        ],
        #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 : 'adding' }
MiAbstractRadioButtonSettingPresenter >> addButtons: aCollection [

        aCollection do: [ :button | self addButton: button ]
]

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

        selectedButton
                associatedRadioButtons: buttons;
                state: true
]

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

        ^ self newBoxLayoutTopToBottom 
]

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

        ^ anItem printString
]

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

        buttons := self items collect: [ :item | self newRadioButtonFor: item ].
        self addButtons: buttons.
        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
]

{ #category : 'initialization' }
MiAbstractRadioButtonSettingPresenter >> rowSize: aBoxLayout isFull: maxSize [

        ^aBoxLayout children size >= maxSize 
]

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

moosetechnology / MooseIDE / 18782250839

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