Skip to content

Commit 022e192

Browse files
committed
Add warning messagebox when trying to update
1 parent 56bb95e commit 022e192

File tree

2 files changed

+5
-0
lines changed

2 files changed

+5
-0
lines changed

BasicPawn/Controls and Forms/FormUpdate.vb

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -43,6 +43,11 @@ Public Class FormUpdate
4343
End Sub
4444

4545
Private Sub Button_Update_Click(sender As Object, e As EventArgs) Handles Button_Update.Click
46+
Select Case (MessageBox.Show("All BasicPawn instances will be closed and all your unsaved work will be lost!" & Environment.NewLine & Environment.NewLine & "Do you want to continue?", "Warning", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning))
47+
Case DialogResult.Cancel
48+
Return
49+
End Select
50+
4651
If (ClassThread.IsValid(g_mUpdateThread)) Then
4752
Return
4853
End If
512 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)