From 89343f67577f239042df8c1069ed74a9913fa102 Mon Sep 17 00:00:00 2001
From: Everything Windows <windowseverything61@gmail.com>
Date: Thu, 18 Jan 2024 15:06:39 +0700
Subject: GUI lock, Multilanguage support, BackgroundWork early implementation

---
 .../TerminalApplications/Internal/Com_Lang.vb             | 15 +++++++++++++++
 .../TerminalApplications/Internal/Com_Ver.vb              |  7 ++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Lang.vb

(limited to 'ShiftOS-TheRevival/TerminalApplications')

diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Lang.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Lang.vb
new file mode 100644
index 0000000..864a6ea
--- /dev/null
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Lang.vb
@@ -0,0 +1,15 @@
+Module Com_Lang
+    Public LangNum As Integer
+
+    Public Sub Lang()
+        LangNum = RawCommand.Substring(5)
+        Select Case LangNum
+            Case 1
+                ' English
+                Strings.OnceInfo(9) = 1
+            Case 2
+                ' Indonesian
+                Strings.OnceInfo(9) = 2
+        End Select
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Ver.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Ver.vb
index 8b2de41..dbbd541 100644
--- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Ver.vb
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Ver.vb
@@ -1,5 +1,10 @@
 Module Com_Ver
     Public Sub Terminal_Version()
-        NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
+        Select Case Strings.OnceInfo(9)
+            Case 1
+                NewLine(My.Resources.lang_en.Console_Ver_FullString & My.Resources.CurrentVersion)
+            Case 2
+                NewLine(My.Resources.lang_id.Console_Ver_FullString & My.Resources.CurrentVersion)
+        End Select
     End Sub
 End Module
-- 
cgit v1.2.3