Basic Window Manager implemented0.0.1

WARNING: Due to a bug that made the save engine think it was ShiftOS
0.0.8, I had to change the actualshiftversion variable to prevent older
ShiftOS versions opening the save file thus crashing. Due to this,
ShiftOS-Next will automatically delete C:\ShiftOS and rewrite the save.

Besides that, I've added a new Window Manager that can be bought after
buying Gray, Basic GUI Server, File Skimmer, and Textpad. This window
manager allows you to run multiple apps at once in their own window, as
well as having up to 3 Terminals running at once. It is a
work-in-progress feature, but it's currently stable.

1 files changed, 16 insertions, 3 deletions

diff --git a/shiftos_next/file skimmer.vb b/shiftos_next/file skimmer.vb
index 3e3e726..3ca3602 100644
--- a/shiftos_next/file skimmer.vb
+++ b/shiftos_next/file skimmer.vb
@@ -1,5 +1,7 @@
 Public Class file_skimmer
 
+
+
     Public mode As String
     Public application As String 'The application sending either an open or save mode.
     Public currentdir As String = home
@@ -88,7 +90,7 @@
                 End If
             Else
                 If mode = "open" Then
-                    Select Case application
+                    Select Case Application
                         Case "textpad"
                             Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
                             TextPad.txtfilebody.Text = sr.ReadToEnd()
@@ -98,7 +100,7 @@
                 Else
                     OpenFile(lvfiles.SelectedItems(0).Tag)
                 End If
-                End If
+            End If
         Catch
         End Try
     End Sub
@@ -121,6 +123,17 @@
         Else
             pnlsave.Visible = False
         End If
+        If boughtbasicwm = True Then
+            pnltop.Show()
+            Me.WindowState = FormWindowState.Normal
+            Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
+            Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
+            Me.TopMost = True
+        Else
+            pnltop.Hide()
+            Me.WindowState = FormWindowState.Maximized
+            Me.TopMost = False
+        End If
     End Sub
 
     Private Sub ExitSessionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitSessionToolStripMenuItem.Click
@@ -160,7 +173,7 @@
             If IO.Directory.Exists(currentdir + "\" + txtfilename.Text) Then
                 basicwm_infobox.showinfo("Invalid File Name", "You can't save a file ontop of a directory with the same name!")
             Else
-                Select Case application
+                Select Case Application
                     Case "textpad"
                         Dim sw As New IO.StreamWriter(currentdir + "\" + txtfilename.Text)
                         sw.Write(TextPad.txtfilebody.Text)