22770733571

Committed 06 Mar 2026 03:47PM UTC coverage: 65.785%. First build

Build # 22770733571

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1600 from moosetechnology/1540-ModelBrowser-should-automatically-select-a-new-model-created

Fix: #1540 Models Browser automatic selection of model when they are imported.

Coverage Stats

40 of 43 new or added lines in 4 files covered. (93.02%)

21861 of 33231 relevant lines covered (65.78%)

1.32 hits per line

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

66.67

/src/MooseIDE-Meta/MiImportCommand.class.st

"
I am the superclass of Moose Import commands.

Simple use: 
`MPImportSTCommand new execute`.

Link to a context (for example a spec presenter):
`(MPImportSTCommand forSpecContext: yourPresenter) execute`.
You can also use class side method `#asCommandGroupForSpecContext:` to build a Spec command group with both MSE and St import commands.
Your presenter should implement `#updateForNewModel:` to define behavior when a new model is installed successfully
"
Class {
        #name : 'MiImportCommand',
        #superclass : 'MiCommand',
        #category : 'MooseIDE-Meta-Import',
        #package : 'MooseIDE-Meta',
        #tag : 'Import'
}

{ #category : 'converting' }
MiImportCommand class >> addToSpCommandGroup: aSpCommandGroup forSpecContext: aPresenter [

        self allSubclasses do: [ :cmd |
                aSpCommandGroup register: ((cmd forSpecContext: aPresenter)
                                 iconName: cmd defaultIconName;
                                 yourself) ].
        ^ aSpCommandGroup
]

{ #category : 'converting' }
MiImportCommand class >> asCommandGroupForSpecContext: aPresenter [

        ^ self
                  addToSpCommandGroup: CmCommandGroup forSpec
                  forSpecContext: aPresenter
]

{ #category : 'accessing' }
MiImportCommand class >> importForm [

        self subclassResponsibility
]

{ #category : 'testing' }
MiImportCommand class >> isAbstract [
        ^ self = MiImportCommand
]

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

        ^ self class importForm new openDialog
]

1	"
2	I am the superclass of Moose Import commands.
3
4	Simple use:
5	`MPImportSTCommand new execute`.
6
7	Link to a context (for example a spec presenter):
8	`(MPImportSTCommand forSpecContext: yourPresenter) execute`.
9	You can also use class side method `#asCommandGroupForSpecContext:` to build a Spec command group with both MSE and St import commands.
10	Your presenter should implement `#updateForNewModel:` to define behavior when a new model is installed successfully
11	"
12	Class {
13	#name : 'MiImportCommand',
14	#superclass : 'MiCommand',
15	#category : 'MooseIDE-Meta-Import',
16	#package : 'MooseIDE-Meta',
17	#tag : 'Import'
18	}
19
20	{ #category : 'converting' }
21	MiImportCommand class >> addToSpCommandGroup: aSpCommandGroup forSpecContext: aPresenter [	2✔
22		2✔
23	self allSubclasses do: [ :cmd \|	2✔
24	aSpCommandGroup register: ((cmd forSpecContext: aPresenter)	2✔
25	iconName: cmd defaultIconName;	2✔
26	yourself) ].	2✔
27	^ aSpCommandGroup	2✔
28	]	2✔
29
30	{ #category : 'converting' }
31	MiImportCommand class >> asCommandGroupForSpecContext: aPresenter [	2✔
32		2✔
33	^ self	2✔
34	addToSpCommandGroup: CmCommandGroup forSpec	2✔
35	forSpecContext: aPresenter	2✔
36	]	2✔
37
38	{ #category : 'accessing' }
39	MiImportCommand class >> importForm [
40
41	self subclassResponsibility
42	]
43
44	{ #category : 'testing' }
45	MiImportCommand class >> isAbstract [	×
46	^ self = MiImportCommand	×
47	]	×
48
49	{ #category : 'executing' }
50	MiImportCommand >> execute [	×
NEW 51		×
NEW 52	^ self class importForm new openDialog	×
53	]	×

moosetechnology / MooseIDE / 22770733571

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