From 9107510c4985ceb781640163bbb82ab6de2fa35e Mon Sep 17 00:00:00 2001 From: AShifter Date: Sun, 24 Sep 2017 12:32:50 -0600 Subject: Add proper WM and Remove old source Added a proper, working WM. I also got rid of the old source as we could just make a new repo for that. --- ShiftOS/coherencemode.vb | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 ShiftOS/coherencemode.vb (limited to 'ShiftOS/coherencemode.vb') diff --git a/ShiftOS/coherencemode.vb b/ShiftOS/coherencemode.vb deleted file mode 100644 index 42352fb..0000000 --- a/ShiftOS/coherencemode.vb +++ /dev/null @@ -1,39 +0,0 @@ -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