From a3809439c94354d27b19b1a003b89f782ca0c657 Mon Sep 17 00:00:00 2001
From: dolphin6k <dolphin6k@wmail.plala.or.jp>
Date: Fri, 11 Nov 2022 10:43:50 +0900
Subject: [PATCH] Updated Windows installer

Added a checkbox to select whether or not to open the Quick Start Guide (Default: yes)
Do not forget to enable translations for and es_ES, ja_JP.UTF-8 when they (and others if any) are done.
---
 win32/tuxpaint.iss | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/win32/tuxpaint.iss b/win32/tuxpaint.iss
index 99f283c12..4966f59e2 100644
--- a/win32/tuxpaint.iss
+++ b/win32/tuxpaint.iss
@@ -27,6 +27,7 @@
 #define AppConfigName AppName+" Config"
 #define AppConfigExe  AppPrefix+"-config.exe"
 #define AppReadme     "{code:MyReadme}"
+#define AppQsGuide    "{code:MyQsGuide}"
 #define AppLicense    "docs\COPYING.txt"
 
 #define BdistDir      ".\bdist"
@@ -159,6 +160,7 @@ Name: "{code:MyGroupDir}\{groupname}\Configure {#AppName}"; Filename: "{app}\{#A
 Name: "{code:MyGroupDir}\{groupname}\{#AppName} (Full Screen)"; Filename: "{app}\{#AppExe}"; Parameters: "--fullscreen native"; Comment: "Start {#AppName} in Fullscreen mode"
 Name: "{code:MyGroupDir}\{groupname}\{#AppName} (Windowed)"; Filename: "{app}\{#AppExe}"; Parameters: "--windowed"; Comment: "Start {#AppName} in a Window"
 Name: "{code:MyGroupDir}\{groupname}\Readme"; Filename: "{app}\{#AppReadme}"; Comment: "View ReadMe"
+Name: "{code:MyGroupDir}\{groupname}\Quick Start Guide"; Filename: "{app}\{#AppQsGuide}"; Comment: "View Quick Start Guide"
 Name: "{code:MyGroupDir}\{groupname}\License"; Filename: "{app}\{#AppLicense}"; Comment: "View License"
 Name: "{code:MyGroupDir}\{groupname}\{cm:UninstallProgram,{#AppName}}"; Filename: "{uninstallexe}"; IconFilename: "{app}\data\images\tuxpaint-installer.ico"; Comment: "Remove {#AppName}"
 Name: "{code:MyDesktopDir}\{#AppName}"; Filename: "{app}\{#AppExe}"; Tasks: desktopicon
@@ -171,6 +173,7 @@ Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "
 
 [Run]
 Filename: "{app}\{#AppReadme}"; Description: "View the README file"; Flags: postinstall shellexec skipifsilent
+Filename: "{app}\{#AppQsGuide}"; Description: "View the Quick Start Guide"; Flags: postinstall shellexec skipifsilent
 Filename: "{app}\{#AppConfigExe}"; Description: "{cm:LaunchProgram,{#AppConfigName}}"; Flags: nowait postinstall skipifsilent
 
 [UninstallDelete]
@@ -656,6 +659,29 @@ begin
   Result := 'docs\'+readme
 end;
 
+function MyQsGuide(Default: String): String;
+var
+  lang, qsguide: String;
+begin
+  lang := Lang2Gettext(false);
+
+//  if lang = 'es' then
+//    qsguide := 'es_ES.UTF-8\html\tuxpaint-quickstart-guide.html'
+//  else
+  if lang = 'fr' then
+    qsguide := 'fr_FR.UTF8\html\tuxpaint-quickstart-guide.html'
+  else
+  if lang = 'gl' then
+    qsguide := 'gl_GL.UTF-8\html\tuxpaint-quickstart-guide.html'
+  else
+//  if lang = 'ja' then
+//    qsguide := 'ja_JP.UTF-8\html\tuxpaint-quickstart-guide.html'
+//  else
+    qsguide := 'en\html\tuxpaint-quickstart-guide.html';
+
+  Result := 'docs\'+qsguide
+end;
+
 function MyPublisherURL(Default: String): String;
 var
   lang: String;