Skip to content
This repository was archived by the owner on May 1, 2024. It is now read-only.

Commit ac5dc7c

Browse files
committed
Begin page for selecting install type
1 parent d7e2c79 commit ac5dc7c

File tree

1 file changed

+10
-2
lines changed

1 file changed

+10
-2
lines changed

ElixirWeb.iss

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -56,11 +56,17 @@ Filename: "powershell.exe"; Parameters: "-File {tmp}\extract-zip.ps1 {tmp}\Preco
5656
Filename: "{tmp}\_offlineinstaller\ISCC.exe"; Parameters: "/dElixirVersion={code:GetSelectedReleaseVersion} /dSkipPages /dNoCompression Elixir.iss"; WorkingDir: "{tmp}\_offlineinstaller"; Flags: waituntilterminated runhidden; StatusMsg: "Preparing Elixir installer..."
5757
Filename: "{tmp}\_offlineinstaller\Output\elixir-v{code:GetSelectedReleaseVersion}-setup.exe"; Flags: nowait; StatusMsg: "Running Elixir installer..."
5858

59+
[Types]
60+
Name: "latest-release"; Description: "Latest Release"
61+
Name: "master"; Description: "Master"
62+
Name: "other"; Description: "Other"
63+
5964
[Code]
6065
type
6166
TStringTable = array of TStringList;
6267
6368
var
69+
PSelInstallType: TInputOptionWizardPage;
6470
PSelRelease: TWizardPage;
6571
PSelReleaseListBox: TNewCheckListBox;
6672
i: Integer;
@@ -146,7 +152,7 @@ end;
146152
147153
procedure CurPageChanged(CurPageID: Integer);
148154
begin
149-
if CurPageID = PSelRelease.ID then begin
155+
if CurPageID = PSelInstallType.ID then begin
150156
if not FileExists(ExpandConstant('{tmp}\releases.csv')) then begin
151157
idpDownloadFile('http://elixir-lang.org/releases.csv', ExpandConstant('{tmp}\releases.csv'));
152158
end;
@@ -174,7 +180,9 @@ procedure InitializeWizard();
174180
begin
175181
idpSetOption('DetailsButton', '0');
176182
177-
PSelRelease := CreateCustomPage(wpWelcome, 'Select Elixir release', 'Setup will download and install the Elixir release you select.');
183+
PSelInstallType := CreateInputOptionPage(wpWelcome, 'Select Elixir installation type', 'Select which installation type you want to perform, then click Next.', 'I want to:', True, False);
184+
185+
PSelRelease := CreateCustomPage(PSelInstallType.ID, 'Select Elixir release', 'Setup will download and install the Elixir release you select.');
178186
PSelReleaseListBox := TNewCheckListBox.Create(PSelRelease);
179187
PSelReleaseListBox.Width := PSelRelease.SurfaceWidth;
180188
PSelReleaseListBox.Height := PSelRelease.SurfaceHeight - 10;

0 commit comments

Comments
 (0)