From f96d01a788001a9747da8b27be11de785093c28d Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Tue, 8 Nov 2022 10:22:01 +0700
Subject: minor moving fixes

---
 ShiftOS-TheRevival/MainForms/TerminalApps.vb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb')

diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
index f137fc1..40346af 100644
--- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb
+++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
@@ -134,6 +134,7 @@ Module TerminalApps
                 Terminal.CurrentInterpreter = "terminal"
                 Terminal.CheckFeature()
                 Terminal.AssignPrompt()
+                Terminal.PrintPrompt()
                 Terminal.TextRebind()
         End Select
     End Sub
@@ -257,6 +258,19 @@ Module TerminalApps
         End If
     End Sub
 
+    Public Sub ShOSKey_InputCommand(lastcommand As String)
+        Terminal.ShOSKey = lastcommand
+    End Sub
+
+    Public Sub ShOSKey_Display()
+        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Terminal.ShOSKey
+        Try
+            Terminal.TrackPos = Terminal.ShOSKey.Length
+        Catch ex As Exception
+            Terminal.TrackPos = 0
+        End Try
+    End Sub
+
     Public Sub TextPad_CheckExist(TxtFileName As String)
         If File.Exists(Terminal.CurrentDirectory & "\" & TxtFileName) = True Then
             Terminal.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Terminal.CurrentDirectory & "\" & TxtFileName)
-- 
cgit v1.2.3