From 2be58d1747ce66e8ce52c4162794dc4bdc4f0c61 Mon Sep 17 00:00:00 2001 From: Keisuke Miyako Date: Thu, 22 Feb 2024 15:21:44 +0900 Subject: [PATCH] save as --- Project/Sources/Classes/BuildApp.4dm | 6 ++++++ .../Forms/BuildApp/ObjectMethods/Save as\342\200\246.4dm" | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/Project/Sources/Classes/BuildApp.4dm b/Project/Sources/Classes/BuildApp.4dm index c0f63e3..e5ab715 100644 --- 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\342\200\246.4dm" "b/Project/Sources/Forms/BuildApp/ObjectMethods/Save as\342\200\246.4dm" index 3d57c1d..629d3c5 100644 --- "a/Project/Sources/Forms/BuildApp/ObjectMethods/Save as\342\200\246.4dm" +++ "b/Project/Sources/Forms/BuildApp/ObjectMethods/Save as\342\200\246.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)