17554805865

Committed 08 Sep 2025 02:49PM UTC coverage: 66.36% (-0.02%) from 66.377%

Build # 17554805865

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1408 from moosetechnology/root-folder

Fix MiSetRootFolderCommand to be able to select a folder

Run Details

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

3 existing lines in 1 file now uncovered.

19865 of 29935 relevant lines covered (66.36%)

1.33 hits per line

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

0.0

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

Class {
        #name : 'MiSetRootFolderCommand',
        #superclass : 'MiModelUtilityCommand',
        #category : 'MooseIDE-Core-Command',
        #package : 'MooseIDE-Core',
        #tag : 'Command'
}

{ #category : 'default' }
MiSetRootFolderCommand class >> defaultIconName [
        ^ #glamorousFolder
]

{ #category : 'default' }
MiSetRootFolderCommand class >> defaultName [
        ^ 'Set Root Folder'
]

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

        | dialog file |
        dialog := StOpenDirectoryPresenter new
                          title: 'Choose the root folder for the sources of ' , self model name;
                          openModal;
                          yourself.

        file := dialog cancelled
                        ifTrue: [ nil ]
                        ifFalse: [ dialog selectedEntry ].

        file ifNotNil: [ :folder | self model rootFolder: folder fullName ]
]

1	Class {
2	#name : 'MiSetRootFolderCommand',
3	#superclass : 'MiModelUtilityCommand',
4	#category : 'MooseIDE-Core-Command',
5	#package : 'MooseIDE-Core',
6	#tag : 'Command'
7	}
8
9	{ #category : 'default' }
10	MiSetRootFolderCommand class >> defaultIconName [	×
11	^ #glamorousFolder	×
12	]	×
13
14	{ #category : 'default' }
15	MiSetRootFolderCommand class >> defaultName [	×
16	^ 'Set Root Folder'	×
17	]	×
18
19	{ #category : 'executing' }
20	MiSetRootFolderCommand >> execute [	×
21		×
NEW 22	\| dialog file \|	×
NEW 23	dialog := StOpenDirectoryPresenter new	×
NEW 24	title: 'Choose the root folder for the sources of ' , self model name;	×
NEW 25	openModal;	×
NEW 26	yourself.	×
NEW 27		×
NEW 28	file := dialog cancelled	×
NEW 29	ifTrue: [ nil ]	×
NEW 30	ifFalse: [ dialog selectedEntry ].	×
NEW 31		×
32	file ifNotNil: [ :folder \| self model rootFolder: folder fullName ]	×
33	]	×

moosetechnology / MooseIDE / 17554805865

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