Merge pull request #1250 from moosetechnology/1231-Add-a-setting-to-M…

…odelBrowser-to-import-model-withwithout-cache 1231 add a setting to model browser to import model with or without cache
moosetechnology · Nov 29, 2024 · 393f54f · 393f54f
2 parents 36c9c60 + f52b18a
commit 393f54f
Show file tree

Hide file tree

Showing 4 changed files with 34 additions and 2 deletions.
diff --git a/src/MooseIDE-Meta/MiImportCommand.class.st b/src/MooseIDE-Meta/MiImportCommand.class.st
@@ -46,6 +46,6 @@ MiImportCommand class >> isAbstract [
 
 { #category : #executing }
 MiImportCommand >> execute [
-
+	
 	^(self class importForm on: self context) openDialog
 ]
diff --git a/src/MooseIDE-Meta/MiImportModelDialog.class.st b/src/MooseIDE-Meta/MiImportModelDialog.class.st
@@ -56,7 +56,7 @@ MiImportModelDialog >> importModelThenCloseDialogWindow [
 		                      nil ].
 	        job currentValue: 50.
 	        mooseModel ifNotNil: [
-		        mooseModel install.
+		        mooseModel installWithCache: self shouldCreateCache.
 		        self withWindowDo: [ :window | window close ].
 		        self updateBrowserWith: mooseModel ] ] asJob.
 
@@ -88,6 +88,18 @@ MiImportModelDialog >> setModelBeforeInitialization: aBrowserOrMoosePanel [
 	originBrowser := aBrowserOrMoosePanel
 ]
 
+{ #category : #accessing }
+MiImportModelDialog >> settings [
+
+	^ originBrowser settingsItem
+]
+
+{ #category : #accessing }
+MiImportModelDialog >> shouldCreateCache [
+
+	^ originBrowser specModel shouldCreateCache 
+]
+
 { #category : #action }
 MiImportModelDialog >> updateBrowserWith: mooseModel [
 

diff --git a/src/MooseIDE-Meta/MiModelsBrowser.class.st b/src/MooseIDE-Meta/MiModelsBrowser.class.st
@@ -253,6 +253,12 @@ MiModelsBrowser >> settingsItem [
 	^ specModel settings
 ]
 
+{ #category : #accessing }
+MiModelsBrowser >> specModel [
+
+	^ specModel 
+]
+
 { #category : #updating }
 MiModelsBrowser >> updateForNewModel: aModel [
 	specModel updateForNewModel: aModel

diff --git a/src/MooseIDE-Meta/MiModelsBrowserModel.class.st b/src/MooseIDE-Meta/MiModelsBrowserModel.class.st
@@ -91,6 +91,14 @@ MiModelsBrowserModel >> initializeSettings [
 		yourself)
 		named: #filterStubsSetting.
 
+	settings	addItem: (MiCheckboxSettingItem new
+		setValue: true ;
+		label: 'Import without cache?' ;
+		help: 'when importing a model you can create or not the cache' ;
+		yourself)
+		named: #createWithCache.
+
+
 	settings addItem: (MiCheckboxSettingItem new
 		setValue: false ;
 		label: 'Automatically import drag&drop files?' ;
@@ -124,6 +132,12 @@ MiModelsBrowserModel >> settings [
 	^ settings
 ]
 
+{ #category : #asserting }
+MiModelsBrowserModel >> shouldCreateCache [
+
+	^ settings getItemValue: #createWithCache
+]
+
 { #category : #accessing }
 MiModelsBrowserModel >> shouldFilterStubs [