From e54a3afc67d58b35e7e6cfa38b0bfb46408cf646 Mon Sep 17 00:00:00 2001
From: ZeqMacaw <zeqmacaw@gmail.com>
Date: Wed, 2 Dec 2020 18:52:24 -0500
Subject: [PATCH] ADDED: Allow Ctrl-A to select all items in Unpack package
 listing.

---
 Crowbar/Widgets/Main Tabs/UnpackUserControl.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb b/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb
index 784aafa..81a06b0 100644
--- a/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb	
+++ b/Crowbar/Widgets/Main Tabs/UnpackUserControl.vb	
@@ -368,6 +368,16 @@ Public Class UnpackUserControl
 	'	End If
 	'End Sub
 
+	Private Sub PackageListView_KeyDown(sender As Object, e As KeyEventArgs) Handles PackageListView.KeyDown
+		If e.KeyCode = Keys.A And e.Control Then
+			Me.PackageListView.BeginUpdate()
+			For Each i As ListViewItem In Me.PackageListView.Items
+				i.Selected = True
+			Next
+			Me.PackageListView.EndUpdate()
+		End If
+	End Sub
+
 	Private Sub PackageListView_SelectedIndexChanged(sender As Object, e As EventArgs) Handles PackageListView.SelectedIndexChanged
 		Me.UpdateSelectionCounts()
 	End Sub