From 54355f9686a5a07f27de5cd3444b87509df2fd2f Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 13 Nov 2022 15:15:05 +0700 Subject: Changed from Environment.NewLine to dedicated NewLine module thoroughly, Fixing a bug on always asks for update, Slowly migrating from full Terminal-dependant to Console-based --- ShiftOS-TheRevival/MainForms/DebugWindow.vb | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/DebugWindow.vb (limited to 'ShiftOS-TheRevival/MainForms/DebugWindow.vb') diff --git a/ShiftOS-TheRevival/MainForms/DebugWindow.vb b/ShiftOS-TheRevival/MainForms/DebugWindow.vb new file mode 100644 index 0000000..e9f4f0b --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/DebugWindow.vb @@ -0,0 +1,13 @@ +Public Class DebugWindow + + Public ShouldDebug As Boolean + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Clipboard.SetText(TextBox1.Text) + End Sub + + Public Sub AddLine(subs As String, int As String, str As String, action As String) + If ShouldDebug = True Then + TextBox1.Text = TextBox1.Text & Environment.NewLine & subs & " Sub with " & str & " string and " & int & " integer did " & action + End If + End Sub +End Class \ No newline at end of file -- cgit v1.2.3