# HG changeset patch
# User Rik <rik@octave.org>
# Date 1522169602 25200
# Node ID c3950e2b4066c0c41a0f2c74171f133b87ff4e13
# Parent  b0cb0218813cc14562200c90daf22420c96bdefd
Fix vbs scripts to launch with '--gui' option (bug #53369).

* octave-firsttime.vbs, octave.vbs: Add 'Chr(34) & "--gui" & Chr(34)' option
when calling octave gui executable.

diff -r b0cb0218813c -r c3950e2b4066 installer-files/octave-firsttime.vbs
--- a/installer-files/octave-firsttime.vbs	Mon Mar 26 18:14:40 2018 -0700
+++ b/installer-files/octave-firsttime.vbs	Tue Mar 27 09:53:22 2018 -0700
@@ -40,7 +40,8 @@
 startpath = wshShell.ExpandEnvironmentStrings("%UserProfile%")
 wshShell.CurrentDirectory = startpath
 
-wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe --gui" & Chr(34), 0
+GUIArg = " " & chr(34) & "--gui" & chr(34)
+wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & GUIArg, 0
 
 ' free our objects
 Set fso = Nothing
diff -r b0cb0218813c -r c3950e2b4066 installer-files/octave.vbs
--- a/installer-files/octave.vbs	Mon Mar 26 18:14:40 2018 -0700
+++ b/installer-files/octave.vbs	Tue Mar 27 09:53:22 2018 -0700
@@ -42,13 +42,14 @@
 AllArgs = ""
 Set wshArgs = WScript.Arguments
 For I = 0 to wshArgs.Count - 1
-  if wshArgs(I) = "--no-gui" then GUI_MODE=0
+  If wshArgs(I) = "--no-gui" Then GUI_MODE=0
   AllArgs = AllArgs & " " & chr(34) & wshArgs(I) & chr(34)
 Next
 
 ' start octave-gui, either with console shown or hidden
 If GUI_MODE = 1 then
-  wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe --gui" & Chr(34) & AllArgs, 0
+  AllArgs = AllArgs & " " & chr(34) & "--gui" & chr(34)
+  wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & AllArgs, 0
 Else
   wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & AllArgs, 1
 End If