save as

miyako · Feb 22, 2024 · 2be58d1 · 2be58d1
1 parent 50b9405
commit 2be58d1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/Project/Sources/Classes/BuildApp.4dm b/Project/Sources/Classes/BuildApp.4dm
@@ -251,7 +251,13 @@ Function loadFromHost() : cs:C1710.BuildApp
 Function toFile($file : 4D:C1709.File) : cs:C1710.BuildApp
 
 	If (OB Instance of:C1731($file; 4D:C1709.File))
+		$ArrayLicenseMac:=This:C1470.Licenses.ArrayLicenseMac.Item
+		$ArrayLicenseWin:=This:C1470.Licenses.ArrayLicenseWin.Item
+		This:C1470.Licenses.ArrayLicenseMac.Item:=[]
+		This:C1470.Licenses.ArrayLicenseWin.Item:=[]
 		$file.setText(This:C1470.toString(); "utf-8"; Document with CR:K24:21)
+		This:C1470.Licenses.ArrayLicenseMac.Item:=$ArrayLicenseMac
+		This:C1470.Licenses.ArrayLicenseWin.Item:=$ArrayLicenseWin
 	End if 
 
 	return This:C1470

diff --git a/Project/Sources/Forms/BuildApp/ObjectMethods/Save as….4dm b/Project/Sources/Forms/BuildApp/ObjectMethods/Save as….4dm
@@ -1,6 +1,9 @@
 If (Form event code:C388=On Clicked:K2:4)
 
-	$fileName:=Select document:C905(System folder:C487(Desktop:K41:16)+"buildApp.4Dsettings"; ".4DSettings;.xml"; "Save build project…"; File name entry:K24:17 | Package open:K24:8)
+	var $buildSettingsFile : 4D:C1709.File
+	$buildSettingsFile:=File:C1566(Build application settings file:K5:60)
+
+	$fileName:=Select document:C905($buildSettingsFile.platformPath; ".4DSettings;.xml"; "Save build project…"; File name entry:K24:17 | Package open:K24:8)
 
 	If (OK=1)