shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00: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 Console.WindowState = FormWindowState.Maximized
End Sub 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) Public Sub NewLine(str As String)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str
End Sub End Sub

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

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

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

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

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

@ -11,6 +11,7 @@
Console.CurrentInterpreter = "guess" Console.CurrentInterpreter = "guess"
GTN_GenerateNumber() GTN_GenerateNumber()
Console.ShouldChange = True Console.ShouldChange = True
Console_Interpreters()
End Sub End Sub
Public Sub GTN_GenerateNumber() 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 'Strings.OnceInfo(5) = Terminal.TrackPos
'Terminal.TrackPos = Nothing 'Terminal.TrackPos = Nothing
End If End If
If Console.ShouldChange = True Then
Console.ChangeInterpreter = True
Console.ShouldChange = False
End If
End Sub End Sub

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

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