diff options
| author | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
|---|---|---|
| committer | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
| commit | 9107510c4985ceb781640163bbb82ab6de2fa35e (patch) | |
| tree | c6a440b7ed182df8f8d1e5d0fdf55e28cf74055f /ShiftOS/coherencemode.vb | |
| parent | 2992686ec723fa4c854b6de27007a284b484a92e (diff) | |
| download | shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.gz shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.bz2 shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.zip | |
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.
Diffstat (limited to 'ShiftOS/coherencemode.vb')
| -rw-r--r-- | ShiftOS/coherencemode.vb | 39 |
1 files changed, 0 insertions, 39 deletions
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 |