From 9107510c4985ceb781640163bbb82ab6de2fa35e Mon Sep 17 00:00:00 2001 From: AShifter Date: Sun, 24 Sep 2017 12:32:50 -0600 Subject: Add proper WM and Remove old source Added a proper, working WM. I also got rid of the old source as we could just make a new repo for that. --- ShiftOS/My Project/Settings.Designer.vb | 85 --------------------------------- 1 file changed, 85 deletions(-) delete mode 100644 ShiftOS/My Project/Settings.Designer.vb (limited to 'ShiftOS/My Project/Settings.Designer.vb') diff --git a/ShiftOS/My Project/Settings.Designer.vb b/ShiftOS/My Project/Settings.Designer.vb deleted file mode 100644 index 3238f3a..0000000 --- a/ShiftOS/My Project/Settings.Designer.vb +++ /dev/null @@ -1,85 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.34003 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - - _ - Public Property ShouldCrashOccur() As Integer - Get - Return CType(Me("ShouldCrashOccur"),Integer) - End Get - Set - Me("ShouldCrashOccur") = value - End Set - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.ShiftOS.My.MySettings - Get - Return Global.ShiftOS.My.MySettings.Default - End Get - End Property - End Module -End Namespace -- cgit v1.2.3