From 415ee1e40d41886cb7ccf23ee004c7fa67dd7418 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 16 Nov 2022 08:28:22 +0700 Subject: More enhanced code management and DesktopEnvironment experiments --- ShiftOS-TheRevival/API/ConsoleAPI.vb | 10 ++++++++++ ShiftOS-TheRevival/API/TerminalAPI.vb | 11 ++++------- 2 files changed, 14 insertions(+), 7 deletions(-) (limited to 'ShiftOS-TheRevival/API') diff --git a/ShiftOS-TheRevival/API/ConsoleAPI.vb b/ShiftOS-TheRevival/API/ConsoleAPI.vb index 7021e2e..c7b83d8 100644 --- a/ShiftOS-TheRevival/API/ConsoleAPI.vb +++ b/ShiftOS-TheRevival/API/ConsoleAPI.vb @@ -1,4 +1,14 @@ Module ConsoleAPI + + Public Sub Console_Windowed() + Console.WindowState = FormWindowState.Normal + End Sub + + Public Sub Console_Full() + Console.FormBorderStyle = FormBorderStyle.None + Console.WindowState = FormWindowState.Maximized + End Sub + Public Sub NewLine(str As String) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str End Sub diff --git a/ShiftOS-TheRevival/API/TerminalAPI.vb b/ShiftOS-TheRevival/API/TerminalAPI.vb index c77524b..e9b7bde 100644 --- a/ShiftOS-TheRevival/API/TerminalAPI.vb +++ b/ShiftOS-TheRevival/API/TerminalAPI.vb @@ -170,13 +170,10 @@ Console.BadCommand = False Undeveloped() Case "shutdown", "shut down" - NewLine("Saving game...") - If Strings.OnceInfo(6) = "story" Then - SaveGame() - End If - Cursor.Show() - ShiftOSMenu.Show() - Console.Close() + TerminateShiftOS() + Case "startx" + StartX() + Console_Windowed() Case "textpad" If Strings.AvailableFeature(17) = "1" Then TextPad_WarnFile() -- cgit v1.2.3