Full Skinning ImplementationHEADmaster

I've finished coding the skinning system for the BWM. Over the skinning
commits, I've added:
- 2 new Shiftorium Upgrades
- 3 new Applications
- A bunch of bugfixes
- A new filetype
- and more.

Alpha 3.1 will be released now.

1 files changed, 24 insertions, 14 deletions

diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.vb
index cf10447..125c3e9 100644
--- a/shiftos_next/BWM and CMD Apps/file skimmer.vb
+++ b/shiftos_next/BWM and CMD Apps/file skimmer.vb
@@ -105,28 +105,37 @@
                 End If
             Else
                 If mode = "open" Then
-                    Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag)
-                    Select Case application
-                        Case "textpad"
-                            If filinf.Extension = ".txt" Then
-                                Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
-                                TextPad.txtfilebody.Text = sr.ReadToEnd()
-                                sr.Close()
+                    If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then
+                        OpenFile(lvfiles.SelectedItems(0).Tag)
+                    Else
+                        Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag)
+                        Select Case application
+                            Case "textpad"
+                                If filinf.Extension = ".txt" Then
+                                    Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
+                                    TextPad.txtfilebody.Text = sr.ReadToEnd()
+                                    sr.Close()
+                                    Me.Close()
+                                End If
+                            Case "skin_loader"
+                                SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString)
+                                SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString
                                 Me.Close()
-                            End If
-                        Case "skin_loader"
-                            SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString)
-                            SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString
-                            Me.Close()
-                    End Select
+                        End Select
+                    End If
                 Else
                     OpenFile(lvfiles.SelectedItems(0).Tag)
                 End If
-            End If
+                End If
         Catch
         End Try
     End Sub
 
+    Private Sub file_skimmer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        mode = ""
+        application = ""
+    End Sub
+
     Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load
         topmenu.Renderer = New basicwm_renderer()
         tools.Renderer = New basicwm_renderer()
@@ -199,6 +208,7 @@
                         Me.Close()
                     Case "skin_loader"
                         saveskin(currentdir + "\" + txtfilename.Text + ".bsk")
+                        Me.Close()
                 End Select
             End If
         Else