From 57e6eec1bc00eaedeb6004c225184ba03f1155e0 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Sat, 23 May 2015 10:21:24 -0400 Subject: Basic Window Manager implemented 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. --- shiftos_next/file skimmer.vb | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) (limited to 'shiftos_next/file skimmer.vb') 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) -- cgit v1.2.3