diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/External/Textpad')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb b/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb index 80e9599..efe68f4 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb @@ -1,6 +1,24 @@ Imports System.IO +Imports System.ComponentModel Module App_TextPad + 'Public WithEvents TextPad_Shortcut As BackgroundWorker + + 'TextPad's RAM + Public TextPad_FileName As String + + Public Sub TextPad_Start() + Console.DefaultPrompt = Nothing + Console.TextBox1.Text = Nothing + Console.ToolBarUse = True + Terminal_CheckFeature() + Console.CurrentInterpreter = "textpad" + TextPad_CheckExist(command) + Console.ToolBar.Text = "TextPad - " & command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As" + Console.ReleaseCursor = True + TextRebind() + End Sub + Public Sub TextPad_CheckExist(TxtFileName As String) If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName) |