From 06623f4cb1e7db88d59a429abc7f0a985dc0eea6 Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Sat, 5 Nov 2022 06:27:35 +0700
Subject: PAUSE function

---
 ShiftOS-TheRevival/MainForms/TerminalApps.vb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

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

diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
index b493118..517dfd2 100644
--- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb
+++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
@@ -21,7 +21,12 @@
                 Terminal.CurrentInterpreter = "guess"
                 GTN_GenerateNumber()
                 ShouldChange = True
-            Case "shiftoriumfx"
+            Case "pause" 'Pause function
+                Terminal.DefaultPrompt = "Press any key to continue..."
+                Terminal.CurrentInterpreter = "pause"
+                Terminal.TextBox1.ReadOnly = True
+                ShouldChange = True
+            Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium
                 Terminal.DefaultPrompt = "Navigate> "
                 Terminal.CurrentInterpreter = "shiftoriumfx"
                 ShiftoriumFX_DisplayPackages()
@@ -39,6 +44,7 @@
         Terminal.CurrentInterpreter = "terminal"
         Terminal.PrintPrompt()
         Terminal.AssignPrompt()
+        Terminal.TextBox1.ReadOnly = False
     End Sub
 
     Public Sub DoChildCommand()
@@ -54,9 +60,11 @@
                             Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Invalid value!"
                         End Try
                 End Select
+            Case "pause"
+                TerminateApp()
             Case "shiftoriumfx"
                 Select Case Terminal.command
-                    Case ""
+                    'Case ""
 
                     Case "exit"
                         TerminateApp()
-- 
cgit v1.2.3