15922823259

Committed 27 Jun 2025 09:19AM UTC coverage: 66.79% (-0.2%) from 66.982%

Build # 15922823259

Build Type

push

github

Committed by

web-flow

Commit Message

Do not use fixed pharo versions

Run Details

19810 of 29660 relevant lines covered (66.79%)

1.34 hits per line

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

91.67

/src/MooseIDE-QueriesBrowser/MiRelationQueryPresenter.class.st

"
The query configuration presenter for `FQRelationQuery`
"
Class {
        #name : #MiRelationQueryPresenter,
        #superclass : #MiQueryConfiguratorPresenter,
        #instVars : [
                'relationsList'
        ],
        #category : #'MooseIDE-QueriesBrowser-Configuration presenters'
}

{ #category : #accessing }
MiRelationQueryPresenter class >> title [

        ^ 'Relation Query'
]

{ #category : #'api - actions' }
MiRelationQueryPresenter >> configureFor: aQuery [

        query := aQuery.
        self initializeDropListForRelations: { aQuery relationName }.
        relationsList selectItem: aQuery relationName.
        query relationName: aQuery relationName
]

{ #category : #actions }
MiRelationQueryPresenter >> configureQuery: anObject [

        self query relationName: anObject
]

{ #category : #initialization }
MiRelationQueryPresenter >> initializeDropListForRelations: relationNames [

        relationsList := relationNames
                                 ifEmpty: [ self noParameterMessage: 'relations' ]
                                 ifNotEmpty: [ 
                                         self 
                                                 initializeRelationDroplistForValidQueryRelations:
                                                 relationNames ]
]

{ #category : #initialization }
MiRelationQueryPresenter >> initializePresenters [

        self initializeDropListForRelations: query availableRelationNames.
        self initializeLayout
]

{ #category : #initialization }
MiRelationQueryPresenter >> initializeRelationDroplistForValidQueryRelations: relationNames [

        ^ self newDropList
                  startWithoutSelection;
                  items: relationNames;
                  whenSelectedItemChangedDo: [ :selectedRelationName | 
                          self computeQueryAction: selectedRelationName ]
]

{ #category : #layout }
MiRelationQueryPresenter >> newLayout [

        | padding |
        padding := 5.
        ^ SpBoxLayout newLeftToRight
                add: relationsList
                expand: false
                fill: true
                padding: padding;
                yourself
]

1	"
2	The query configuration presenter for `FQRelationQuery`
3	"
4	Class {
5	#name : #MiRelationQueryPresenter,
6	#superclass : #MiQueryConfiguratorPresenter,
7	#instVars : [
8	'relationsList'
9	],
10	#category : #'MooseIDE-QueriesBrowser-Configuration presenters'
11	}
12
13	{ #category : #accessing }
14	MiRelationQueryPresenter class >> title [	×
15		×
16	^ 'Relation Query'	×
17	]	×
18
19	{ #category : #'api - actions' }
20	MiRelationQueryPresenter >> configureFor: aQuery [	2✔
21		2✔
22	query := aQuery.	2✔
23	self initializeDropListForRelations: { aQuery relationName }.	2✔
24	relationsList selectItem: aQuery relationName.	2✔
25	query relationName: aQuery relationName	2✔
26	]	2✔
27
28	{ #category : #actions }
29	MiRelationQueryPresenter >> configureQuery: anObject [	2✔
30		2✔
31	self query relationName: anObject	2✔
32	]	2✔
33
34	{ #category : #initialization }
35	MiRelationQueryPresenter >> initializeDropListForRelations: relationNames [	2✔
36		2✔
37	relationsList := relationNames	2✔
38	ifEmpty: [ self noParameterMessage: 'relations' ]	2✔
39	ifNotEmpty: [	2✔
40	self	2✔
41	initializeRelationDroplistForValidQueryRelations:	2✔
42	relationNames ]	2✔
43	]	2✔
44
45	{ #category : #initialization }
46	MiRelationQueryPresenter >> initializePresenters [	2✔
47		2✔
48	self initializeDropListForRelations: query availableRelationNames.	2✔
49	self initializeLayout	2✔
50	]	2✔
51
52	{ #category : #initialization }
53	MiRelationQueryPresenter >> initializeRelationDroplistForValidQueryRelations: relationNames [	2✔
54		2✔
55	^ self newDropList	2✔
56	startWithoutSelection;	2✔
57	items: relationNames;	2✔
58	whenSelectedItemChangedDo: [ :selectedRelationName \|	2✔
59	self computeQueryAction: selectedRelationName ]	2✔
60	]	2✔
61
62	{ #category : #layout }
63	MiRelationQueryPresenter >> newLayout [	2✔
64		2✔
65	\| padding \|	2✔
66	padding := 5.	2✔
67	^ SpBoxLayout newLeftToRight	2✔
68	add: relationsList	2✔
69	expand: false	2✔
70	fill: true	2✔
71	padding: padding;	2✔
72	yourself	2✔
73	]	2✔

moosetechnology / MooseIDE / 15922823259

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