shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 03:11:48 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

completing any migration from TerminalExternalApps into its own module

Browse source
This commit is contained in:
EverythingWindows 2022-11-19 07:25:02 +07:00
parent 1d1722345b
commit eb41e07992
6 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ShiftOS-TheRevival/API/ConsoleAPI.vb
View file

@ -9,6 +9,13 @@
Console.WindowState = FormWindowState.Maximized
End Sub
Public Sub Console_Interpreters()
If Console.ShouldChange = True Then
Console.ChangeInterpreter = True
Console.ShouldChange = False
End If
End Sub
Public Sub NewLine(str As String)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str
End Sub

3
ShiftOS-TheRevival/API/TerminalAPI.vb
View file

@ -167,7 +167,6 @@
Case "bc"
If Strings.AvailableFeature(9) = "1" Then
Console.ChangeInterpreter = True
'AppHost("bc", False)
BC_Start()
AdvancedCommand = False
NormalCommand()
@ -206,7 +205,6 @@
End If
Case "guess"
Console.ChangeInterpreter = True
'AppHost("guess", False)
GTN_Start()
AdvancedCommand = False
NormalCommand()
@ -382,7 +380,6 @@
Console.ChangeInterpreter = True
command = RawCommand.Replace("textpad ", "")
TextPad_Start()
'AppHost("textpad", True)
AdvancedCommand = False
NormalCommand()
End If

1
ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb vendored
View file

@ -18,6 +18,7 @@
NewLine(Nothing)
Console.CurrentInterpreter = "bc"
Console.ShouldChange = True
Console_Interpreters()
End Sub
Public Sub BC_Calculate()

1
ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb vendored
View file

@ -11,6 +11,7 @@
Console.CurrentInterpreter = "guess"
GTN_GenerateNumber()
Console.ShouldChange = True
Console_Interpreters()
End Sub
Public Sub GTN_GenerateNumber()

4
ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb vendored
View file

@ -24,10 +24,6 @@ Module TerminalExternalApps
'Strings.OnceInfo(5) = Terminal.TrackPos
'Terminal.TrackPos = Nothing
End If
If Console.ShouldChange = True Then
Console.ChangeInterpreter = True
Console.ShouldChange = False
End If
End Sub

2
ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb vendored
View file

@ -16,6 +16,8 @@ Module App_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
Console.ShouldChange = True
Console_Interpreters()
TextRebind()
End Sub