18714356569

Committed 22 Oct 2025 11:15AM UTC coverage: 66.565% (-0.002%) from 66.567%

Build # 18714356569

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1481 from moosetechnology/1475-Queries-browser-Create-dynamic-tag-is-broken

Run Details

0 of 6 new or added lines in 1 file covered. (0.0%)

1 existing line in 1 file now uncovered.

20687 of 31078 relevant lines covered (66.56%)

1.33 hits per line

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

35.29

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

Class {
        #name : 'MiCreateDynamicTagQueryCommand',
        #superclass : 'MiCommand',
        #category : 'MooseIDE-QueriesBrowser-Commands',
        #package : 'MooseIDE-QueriesBrowser',
        #tag : 'Commands'
}

{ #category : 'default' }
MiCreateDynamicTagQueryCommand class >> defaultDescription [

        ^ 'Create a dynamic tag using this query'
]

{ #category : 'default' }
MiCreateDynamicTagQueryCommand class >> defaultIconName [

        ^ #mooseEditor
]

{ #category : 'default' }
MiCreateDynamicTagQueryCommand class >> defaultName [

        ^ 'Create Dynamic Tag'
]

{ #category : 'executing' }
MiCreateDynamicTagQueryCommand >> execute [

        self context query isValid ifFalse: [
                        self application inform: 'Cannot create tag with invalid query'.
                        ^ self ].

        self openTagCreationPage
]

{ #category : 'executing' }
MiCreateDynamicTagQueryCommand >> openTagCreationPage [
        "Return the tag creation page for test purposes. Not needed in the application"
        | tagCreationPage |

        tagCreationPage := MiTagBrowser new
                                   createTag.
        tagCreationPage
                setIntentForm;
                updateQueryList.

        tagCreationPage queryList selectItem: (self context query).
        
        ^tagCreationPage 
]

1	Class {
2	#name : 'MiCreateDynamicTagQueryCommand',
3	#superclass : 'MiCommand',
4	#category : 'MooseIDE-QueriesBrowser-Commands',
5	#package : 'MooseIDE-QueriesBrowser',
6	#tag : 'Commands'
7	}
8
9	{ #category : 'default' }
10	MiCreateDynamicTagQueryCommand class >> defaultDescription [	2✔
11		2✔
12	^ 'Create a dynamic tag using this query'	2✔
13	]	2✔
14
15	{ #category : 'default' }
16	MiCreateDynamicTagQueryCommand class >> defaultIconName [	2✔
17		2✔
18	^ #mooseEditor	2✔
19	]	2✔
20
21	{ #category : 'default' }
22	MiCreateDynamicTagQueryCommand class >> defaultName [	2✔
23		2✔
24	^ 'Create Dynamic Tag'	2✔
25	]	2✔
26
27	{ #category : 'executing' }
28	MiCreateDynamicTagQueryCommand >> execute [	×
29		×
30	self context query isValid ifFalse: [	×
31	self application inform: 'Cannot create tag with invalid query'.	×
32	^ self ].	×
33		×
34	self openTagCreationPage	×
35	]	×
36
37	{ #category : 'executing' }
38	MiCreateDynamicTagQueryCommand >> openTagCreationPage [	×
NEW 39	"Return the tag creation page for test purposes. Not needed in the application"	×
40	\| tagCreationPage \|	×
41		×
NEW 42	tagCreationPage := MiTagBrowser new	×
NEW 43	createTag.	×
44	tagCreationPage	×
45	setIntentForm;	×
46	updateQueryList.	×
47		×
NEW 48	tagCreationPage queryList selectItem: (self context query).	×
NEW 49		×
NEW 50	^tagCreationPage	×
UNCOV 51	]	×

moosetechnology / MooseIDE / 18714356569

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