Added Wine detection support

GBM/Forms/frmAddWizard.vb

@@ -83,7 +83,7 @@ Public Class frmAddWizard
         Dim sName As String = txtName.Text
         Dim sProcessFullPath As String = txtProcessPath.Text
         Dim sProcessPath As String = Path.GetDirectoryName(sProcessFullPath)
-        Dim sProcess As String        
+        Dim sProcess As String = Path.GetFileNameWithoutExtension(sProcessFullPath)
         Dim sProcessSummaryText As String = Path.GetFileName(sProcessFullPath) & " (" & sProcessPath & ")"
         Dim sSavePath As String = txtSavePath.Text
         Dim bIsAbsolute As Boolean = mgrPath.IsAbsolute(sSavePath)
@@ -100,13 +100,6 @@ Public Class frmAddWizard
             sSavePath = mgrPath.DetermineRelativePath(sProcessPath, sSavePath)
         End If
 
-        'Unix Handler
-        If mgrCommon.IsUnix Then
-            sProcess = Path.GetFileName(sProcessFullPath)
-        Else
-            sProcess = Path.GetFileNameWithoutExtension(sProcessFullPath)
-        End If
-
         'Build Summary Listview
         lstSummary.Clear()
         lstSummary.Columns.Add("Item")

GBM/Forms/frmGameManager.vb

@@ -942,7 +942,7 @@ Public Class frmGameManager
             oApp.ID = txtID.Text
         End If
         oApp.Name = mgrPath.ValidateForFileSystem(txtName.Text)
-        If Path.HasExtension(txtProcess.Text) And Not mgrCommon.IsUnix Then
+        If Path.HasExtension(txtProcess.Text) Then
             If txtProcess.Text.ToLower.EndsWith(".exe") Then
                 oApp.ProcessName = Path.GetFileNameWithoutExtension(txtProcess.Text)
             Else

GBM/Forms/frmMain.vb

@@ -563,8 +563,8 @@ Public Class frmMain
             sMainCommand = sFullCommand.Split(cDelimters, 2)(0)
 
             'Parse Command
-            Select Case sMainCommand
-                Case "SQL"
+            Select Case sMainCommand.ToLower
+                Case "sql"
                     'Run a SQL command directly on any database
                     'Usage: SQL {Local or Remote} SQL Command
 
@@ -579,9 +579,9 @@ Public Class frmMain
                         Exit Select
                     End If
 
-                    If sCommand(1) = "Local" Then
+                    If sCommand(1).ToLower = "local" Then
                         oDatabase = New mgrSQLite(mgrSQLite.Database.Local)
-                    ElseIf sCommand(1) = "Remote" Then
+                    ElseIf sCommand(1).ToLower = "remote" Then
                         oDatabase = New mgrSQLite(mgrSQLite.Database.Remote)
                     Else
                         mgrCommon.ShowMessage(frmMain_ErrorCommandBadParam, New String() {sCommand(1), sCommand(0)}, MsgBoxStyle.Exclamation)
@@ -596,7 +596,7 @@ Public Class frmMain
                         mgrCommon.ShowMessage(frmMain_CommandFail, MsgBoxStyle.Exclamation)
                     End If
 
-                Case "DEBUG"
+                Case "debug"
                     'Enable or disable various debug modes
                     'Usage: DEBUG Mode {Enable or Disable} 
 
@@ -610,17 +610,17 @@ Public Class frmMain
                         Exit Select
                     End If
 
-                    If sCommand(2) = "Enable" Then
+                    If sCommand(2).ToLower = "enable" Then
                         bDebugEnable = True
-                    ElseIf sCommand(2) = "Disable" Then
+                    ElseIf sCommand(2).ToLower = "disable" Then
                         bDebugEnable = False
                     Else
                         mgrCommon.ShowMessage(frmMain_ErrorCommandBadParam, New String() {sCommand(1), sCommand(0)}, MsgBoxStyle.Exclamation)
                         Exit Select
                     End If
 
-                    Select Case sCommand(1)
-                        Case "Process"
+                    Select Case sCommand(1).ToLower
+                        Case "process"
                             bProcessDebugMode = bDebugEnable
                             mgrCommon.ShowMessage(frmMain_CommandSucess, MsgBoxStyle.Exclamation)
                     End Select