From fdf33ef796b8e4932ab99deda28b8b297613a9bd Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.sassi@egalware.com>
Date: Tue, 9 Jan 2024 18:28:03 +0100
Subject: [PATCH] =?UTF-8?q?Icarus=20:=20-=20eliminata=20opzione=20CreateJs?=
 =?UTF-8?q?on=20su=20Shift+Save=20perch=C3=A8=20serviva=20solo=20per=20deb?=
 =?UTF-8?q?ug=20iniziale.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Icarus/ProjManager/ProjManagerVM.vb | 28 ----------------------------
 1 file changed, 28 deletions(-)

diff --git a/Icarus/ProjManager/ProjManagerVM.vb b/Icarus/ProjManager/ProjManagerVM.vb
index 4711a8d..8a9bd35 100644
--- a/Icarus/ProjManager/ProjManagerVM.vb
+++ b/Icarus/ProjManager/ProjManagerVM.vb
@@ -248,37 +248,9 @@ Public Class ProjManagerVM
    ''' Execute the Save.  This method is invoked by the SaveCommand.
    ''' </summary>
    Public Sub Save()
-      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-         CreateJson()
-      End If
       Map.refSceneHostVM.SaveProject()
    End Sub
 
-   Private Function CreateJson() As Boolean
-      ' creo json
-      Dim LayerList As New List(Of JsonLayer)
-      For Each Layer In Map.refTFSEditorVM.LayerList
-         LayerList.Add(Layer.ConvertToJsonLayer())
-      Next
-      Dim json As String = JsonConvert.SerializeObject(LayerList, Formatting.Indented)
-      Dim sProjName As String = ""
-      EgtGetCurrFilePath(sProjName)
-      If Not String.IsNullOrWhiteSpace(sProjName) Then
-         sProjName = Path.ChangeExtension(sProjName, ".json")
-         If File.Exists(sProjName) Then
-            Try
-               File.Delete(sProjName)
-            Catch ex As Exception
-            End Try
-         End If
-         Try
-            File.AppendAllText(sProjName, json)
-         Catch ex As Exception
-            EgtOutLog("Json writing error!")
-         End Try
-      End If
-   End Function
-
 #End Region ' SaveCommand
 
 #Region "SaveAsCommand"