From cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0 Mon Sep 17 00:00:00 2001
From: FloppyDiskDrive <ibmpcdos5@gmail.com>
Date: Thu, 21 Sep 2017 17:16:49 -0500
Subject: Added the SOS code (VB and C#)

Very, very incomplete (C# isn't *remotely* complete.)
---
 ShiftOS/coherencemode.vb | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 ShiftOS/coherencemode.vb

(limited to 'ShiftOS/coherencemode.vb')

diff --git a/ShiftOS/coherencemode.vb b/ShiftOS/coherencemode.vb
new file mode 100644
index 0000000..42352fb
--- /dev/null
+++ b/ShiftOS/coherencemode.vb
@@ -0,0 +1,39 @@
+Module coherencemode
+    Private CoherenceModeProgramForm As New coherencemodeform
+    Public AnyOtherProgram As Boolean = False
+
+    Public Sub setupwindows(ByVal programname As String)
+        If AnyOtherProgram = False Then
+            Try
+                Dim NewProgramName As String = programname.ToLower
+                Dim win As Window = Window.Find(NewProgramName)
+                Dim PreviouwWindowSize As System.Drawing.Size = win.Size
+                CoherenceModeProgramForm.programnametokeep = win
+                win.Style(Window.Styles.Border) = False
+                win.Style(Window.Styles.Sizable) = False
+                win.Invalidate()
+                'win.Size = New Size(0, 0)
+                'win.Size = PreviouwWindowSize
+
+                CoherenceModeProgramForm.Show()
+                win.Location = New Point(CoherenceModeProgramForm.Location.X, CoherenceModeProgramForm.Location.Y + ShiftOSDesktop.titlebarheight)
+                win.TopMost = True
+                CoherenceModeProgramForm.TopMost = True
+                CoherenceModeProgramForm.Focus()
+                CoherenceModeProgramForm.Size = PreviouwWindowSize
+                win.Text = CoherenceModeProgramForm.lbtitletext.Text
+                CoherenceModeProgramForm.resettitlebar()
+                CoherenceModeProgramForm.setuptitlebar()
+                CoherenceModeProgramForm.setupborders()
+                CoherenceModeProgramForm.pgcontents.BackColor = Color.FromArgb(1, 0, 1)
+
+                AnyOtherProgram = True
+            Catch ex As Exception
+                infobox.showinfo("Critical Error - Coherence Mode", "A Critical error occured whilst attempting to join the program")
+            End Try
+        Else
+            infobox.showinfo("Information - Coherence Mode", "You can only have one program within coherence mode at any given time, this includes only one mod open for the moment, this is soon to change")
+        End If
+    End Sub
+
+End Module
-- 
cgit v1.2.3