From b88842bae3d4c06515445723a74be5ba1a5954ad Mon Sep 17 00:00:00 2001 From: Drew Naylor Date: Sat, 24 Oct 2020 22:11:11 -0400 Subject: [PATCH] Basic testing for bulk-installing packages. --- guinget/ApplyChangesWindow.vb | 7 +++++++ libguinget/PackageTools.vb | 3 +++ 2 files changed, 10 insertions(+) diff --git a/guinget/ApplyChangesWindow.vb b/guinget/ApplyChangesWindow.vb index 34705d35..1e4ed209 100644 --- a/guinget/ApplyChangesWindow.vb +++ b/guinget/ApplyChangesWindow.vb @@ -50,6 +50,13 @@ Public Class ApplyChangesWindow ' when they're ready to start installing them. MessageBox.Show("Sorry, we don't support automatic batch package installs yet, but you can double-click or press Enter" & " on each package in the list to install them individually when you're ready.", "Confirm changes") + Dim PackageIDs As New List(Of String) + Dim PackageVersions As New List(Of String) + For Each Package As DataGridViewRow In datagridviewAppsBeingInstalled.Rows + PackageIDs.Add(Package.Cells(0).Value.ToString) + PackageVersions.Add(Package.Cells(1).Value.ToString) + Next + PackageTools.BulkInstallPkg(datagridviewAppsBeingInstalled.Columns(0)) End Sub Private Sub InstallSinglePackage() diff --git a/libguinget/PackageTools.vb b/libguinget/PackageTools.vb index 1fe7c92a..1647e55e 100644 --- a/libguinget/PackageTools.vb +++ b/libguinget/PackageTools.vb @@ -76,8 +76,11 @@ Public Class PackageTools For Each Version As String In PackageVersions ' Begin adding packages to the list. BulkInstallCommandList = "winget install --id " & Package & " -v " & Version & InteractiveFlag & " -e" + ' Next Next + + MessageBox.Show(BulkInstallCommandList.ToString) End Using End Sub #End Region