From ec0dea1e4df9c4192d50cc5d747c8a3ceb451bc6 Mon Sep 17 00:00:00 2001
From: Tobias Leich <email@froggs.de>
Date: Wed, 3 Feb 2016 23:52:47 +0100
Subject: choose to set PATH in wizard on windows

---
 tools/build/star-product.wxs | 29 +++++++++++++++++++++++++++--
 1 file changed, 27 insertions(+), 2 deletions(-)

(limited to 'tools/build/star-product.wxs')

diff --git a/tools/build/star-product.wxs b/tools/build/star-product.wxs
index b96f2dc..7e1dc46 100644
--- a/tools/build/star-product.wxs
+++ b/tools/build/star-product.wxs
@@ -7,7 +7,11 @@
         <Property Id="ROOTDRIVE"><![CDATA[C:\]]></Property>
 
         <Directory Id="TARGETDIR" Name="SourceDir">
-          <Directory Id="INSTALLROOT" Name="rakudo" />
+          <Component Id="RakudoPath" Guid="{45669CAC-166D-4569-900A-6EF775EDC8F5}">
+            <Environment Id="MYPATH" Name="PATH" Action="set" Part="last" Value="[INSTALLROOT]bin;[INSTALLROOT]share\perl6\site\bin" System="no" Permanent="no" />
+            <Condition>MYENVIRONMENTSETPATH</Condition>
+          </Component>
+          <Directory Id="INSTALLROOT" Name="rakudo"/>
 
           <!-- start menu shortcuts, adapted from http://wix.sourceforge.net/manual-wix3/create_start_menu_shortcut.htm -->
           <Directory Id="ProgramMenuFolder">
@@ -27,6 +31,7 @@
         <Feature Id="ProductFeature" Level="1" Title="Rakudo Star $(var.STARVERSION)">
             <ComponentGroupRef Id="RakudoStar" />
             <ComponentRef Id="RakudoStartItems" />
+            <ComponentRef Id="RakudoPath" />
         </Feature>
         <Media Id="1" Cabinet="product.cab" EmbedCab="yes" />
 
@@ -48,8 +53,27 @@
             <DialogRef Id="ResumeDlg" />
             <DialogRef Id="UserExit" />
             <DialogRef Id="WelcomeDlg" />
+            <Dialog Id="MySetPathDlg" Width="370" Height="270" Title="!(loc.InstallDirDlg_Title)">
+                <Control Id="Next" Type="PushButton" X="236" Y="243" Width="56" Height="17" Default="yes" Text="!(loc.WixUINext)" >
+                  <Publish Property="WixUI_InstallMode" Value="Update">Installed AND PATCH</Publish>
+                </Control>
+                <Control Id="Cancel" Type="PushButton" X="304" Y="243" Width="56" Height="17" Cancel="yes" Text="!(loc.WixUICancel)">
+                  <Publish Event="SpawnDialog" Value="CancelDlg">1</Publish>
+                </Control>
+                <Control Id="Bitmap" Type="Bitmap" X="0" Y="0" Width="370" Height="234" TabSkip="no" Text="!(loc.WelcomeDlgBitmap)" />
+                <Control Id="Back" Type="PushButton" X="180" Y="243" Width="56" Height="17" Text="!(loc.WixUIBack)" />
+                <Control Id="BottomLine" Type="Line" X="0" Y="234" Width="370" Height="0" />
+                <Control Id="Title" Type="Text" X="135" Y="20" Width="220" Height="60" Transparent="yes" NoPrefix="yes" Text="Environment Variables" />
+                <Control Id="Description" Type="Text" X="135" Y="60" Width="220" Height="15" Transparent="yes" NoPrefix="yes" Text="The following directories need to be added to PATH:" />
+                <Control Id="Path1" Type="Text" X="145" Y="80" Width="220" Height="10" Transparent="yes" NoPrefix="yes" Text="[INSTALLROOT]bin" />
+                <Control Id="Path2" Type="Text" X="145" Y="90" Width="220" Height="15" Transparent="yes" NoPrefix="yes" Text="[INSTALLROOT]share\perl6\site\bin" />
+                <Control Id="MyCheckBoxSetPath" Type="CheckBox" X="135" Y="160" Width="290" Height="17" Property="MYENVIRONMENTSETPATH" CheckBoxValue="1" Text="Set PATH environment variable automatically." />
+            </Dialog>
 
-            <Publish Dialog="WelcomeDlg" Control="Next" Event="NewDialog" Value="PrepareDlg">1</Publish>
+            <Publish Dialog="WelcomeDlg" Control="Next" Event="NewDialog" Value="MySetPathDlg">1</Publish>
+            <Publish Dialog="MySetPathDlg" Control="Back" Event="NewDialog" Value="WelcomeDlg">1</Publish>
+            <Publish Dialog="MySetPathDlg" Control="Next" Event="NewDialog" Value="PrepareDlg">1</Publish>
+            <Publish Dialog="PrepareDlg" Control="Back" Event="NewDialog" Value="MySetPathDlg">1</Publish>
             <Publish Dialog="ExitDialog" Control="Finish" Event="EndDialog" Value="Return" Order="999">1</Publish>
 
             <Publish Dialog="VerifyReadyDlg" Control="Back" Event="NewDialog" Value="MaintenanceTypeDlg">1</Publish>
@@ -61,6 +85,7 @@
             <Publish Dialog="MaintenanceTypeDlg" Control="Back" Event="NewDialog" Value="MaintenanceWelcomeDlg">1</Publish>
 
             <Property Id="ARPNOMODIFY" Value="1" />
+            <Property Id="MYENVIRONMENTSETPATH">1</Property>
         </UI>
 
         <UIRef Id="WixUI_Common" />
-- 
cgit v1.1