mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-22 09:02:00 -05:00
57e6eec1bc
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.
29 lines
No EOL
1.1 KiB
VB.net
29 lines
No EOL
1.1 KiB
VB.net
Namespace BasicWM
|
|
Public Class Desktop
|
|
|
|
Public openterminals As Integer = 0
|
|
|
|
Private Sub btnnewterminal_Click(sender As Object, e As EventArgs) Handles btnnewterminal.Click
|
|
If openterminals = 3 Then
|
|
AddLine("The maximum ammount of Terminal windows are open.")
|
|
AddLine(username + "@" + osname + " " & Terminal.currentdir.ToLower.Replace("c:\shiftos", "~") & "$> ")
|
|
Else
|
|
Dim term As New Terminal
|
|
term.StartPosition = FormStartPosition.CenterParent
|
|
term.TopMost = True
|
|
term.Show()
|
|
openterminals += 1
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Desktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Terminal.Close()
|
|
Me.WindowState = FormWindowState.Maximized
|
|
Dim term As New Terminal
|
|
term.StartPosition = FormStartPosition.CenterParent
|
|
term.TopMost = True
|
|
term.Show()
|
|
openterminals += 1
|
|
End Sub
|
|
End Class
|
|
End Namespace |