Merge branch 'EorAscom' into oopthescope

Author: ClutchplateDude

Software/OpenAstroTracker ASCOM/OAT PC Control/frmMain.vb

@@ -119,6 +119,8 @@ Public Class frmMain
     Private Sub updateValues()
         txtMountDec.Text = DblToDMS(driver.Declination).ToString
         txtMountRA.Text = DbltoHMS(driver.RightAscension).ToString
+        driver.TargetDeclination = driver.Declination
+        driver.TargetRightAscension = driver.RightAscension
         txtTargetDec.Text = DblToDMS(driver.TargetDeclination).ToString
         txtTargetRA.Text = DbltoHMS(driver.TargetRightAscension).ToString
 

Software/OpenAstroTracker ASCOM/OpenAstroTracker ASCOM/Driver.vb

@@ -107,7 +107,7 @@ Public Class Telescope
         astroUtilities = New AstroUtils 'Initialise new astro utiliites object
 
         'TODO: Implement your additional construction here
-
+        mutexCommand = New Mutex(False, "CommMutex")
         TL.LogMessage("Telescope", "Completed initialisation")
     End Sub
 
@@ -165,8 +165,8 @@ Public Class Telescope
 
     Public Sub CommandBlind(ByVal Command As String, Optional ByVal Raw As Boolean = False) Implements ITelescopeV3.CommandBlind
         CheckConnected("CommandBlind")
-        mutexBlind = New Mutex(False, "CommMutex")
-        mutexBlind.WaitOne()
+        mutexCommand.WaitOne()
+
         If Not Raw Then
             Command = Command + "#"
         End If
@@ -176,7 +176,7 @@ Public Class Telescope
         Catch ex As Exception
             TL.LogMessage("CommandBlind(" + Command + ")", "Error : " + ex.Message)
         Finally
-            mutexBlind.ReleaseMutex()
+            mutexCommand.ReleaseMutex()
         End Try
     End Sub
 
@@ -193,7 +193,6 @@ Public Class Telescope
         Implements ITelescopeV3.CommandString
         Dim response As String
         CheckConnected("CommandString")
-        mutexCommand = New Mutex(False, "CommMutex")
         mutexCommand.WaitOne()
         If Not Raw Then
             Command = Command + "#"