Set path in testInstallLanguage

src/TruffleSqueak-Core.package/Polyglot.class/class/installLanguage.st

@@ -1,11 +1,13 @@
 helpers
 installLanguage
-	| languageId version |
+	| modulesPath languageId version |
+	modulesPath := (FSLocator vmDirectory resolve: '../modules').
+	modulesPath isDirectory ifFalse: [ self error: 'Unable to find modules/ directory.' ].
 	languageId := UIManager default 
 		chooseFrom: #('JavaScript' 'Ruby' 'Python' 'Java' 'LLVM' 'Wasm')
 		values: #('js' 'ruby' 'python' 'java' 'llvm' 'wasm')
 		title: 'Which language would you like to install?'.
 	version := UIManager default
 		request: 'Select a version:'
 		initialAnswer: ((Java type: 'java.lang.System') getProperty: 'org.graalvm.version' and: 'unknown').
-	self installLanguage: languageId version: version
+	self installLanguage: languageId version: version path: modulesPath fullName

src/TruffleSqueak-Core.package/Polyglot.class/class/installLanguage.version.path..st

@@ -0,0 +1,15 @@
+helpers
+installLanguage: languageId version: version path: path
+	| downloader |
+	[ downloader := Java type: 'org.graalvm.maven.downloader.Main' ]
+		on: Error
+		do: [ self error: 'Unable to find Maven Downloader. Additional languages can only be installed in a JVM standalone of TruffleSqueak.'].
+	'Installing language and its dependencies...' displayProgressFrom: 0 to: 1 during: [ :bar |
+		bar value: 0.
+		downloader main: {
+			'-o'. path.
+			'-v'. version.
+			'-a'. languageId
+		}.
+	].
+	self inform: 'Success! Please restart TruffleSqueak for the language to become available. You can also install more languages now.'

src/TruffleSqueak-Core.package/Polyglot.class/methodProperties.json

@@ -33,8 +33,9 @@
 		"iconWASM" : "fn 6/26/2021 15:10",
 		"import:" : "fn 11/11/2018 21:34",
 		"initialize" : "fn 1/24/2020 14:41",
-		"installLanguage" : "fn 2/17/2024 13:19",
+		"installLanguage" : "fn 2/17/2024 16:36",
 		"installLanguage:version:" : "fn 2/17/2024 13:19",
+		"installLanguage:version:path:" : "fn 2/17/2024 16:35",
 		"isPermitted:" : "fn 1/26/2021 17:27",
 		"isPolyglotEvalAllowed" : "fn 5/13/2020 17:37",
 		"languageIdHost" : "fn 6/25/2021 13:43",

src/TruffleSqueak-Tests.package/PolyglotTest.class/instance/testInstallLanguage.st

@@ -1,4 +1,4 @@
 testing
 testInstallLanguage
 	Java primitiveIsHostLookupAllowed ifFalse: [ ^self ].
-	Polyglot installLanguage: 'js' version: '23.1.0'
+	Polyglot installLanguage: 'js' version: '23.1.0' path: Smalltalk imagePath

src/TruffleSqueak-Tests.package/PolyglotTest.class/methodProperties.json

@@ -2,7 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
-		"testInstallLanguage" : "fn 2/17/2024 14:50",
+		"testInstallLanguage" : "fn 2/17/2024 16:36",
 		"testLanguageInfo" : "fn 2/11/2021 10:54",
 		"testPolyglotBindings" : "fn 11/28/2019 14:53",
 		"testPolyglotEval" : "fn 6/27/2021 12:15" } }