diff --git a/Modules.Patterns/Modules/IModule.vb b/Modules.Patterns/IModule.vb similarity index 100% rename from Modules.Patterns/Modules/IModule.vb rename to Modules.Patterns/IModule.vb diff --git a/Modules.Patterns/Modules/BaseModule.vb b/Modules.Patterns/Modules/BaseModule.vb index 172bc770..87ea4498 100644 --- a/Modules.Patterns/Modules/BaseModule.vb +++ b/Modules.Patterns/Modules/BaseModule.vb @@ -1,7 +1,7 @@ Imports DigitalData.Modules.Logging Imports System.Text.RegularExpressions -Namespace [PatternModule] +Namespace Modules Public Class BaseModule Friend ReadOnly Logger As Logger Private ReadOnly MyRegex As Regex = New Regex("{#(\w+)#([\:\.\w\s_-]+)}+") diff --git a/Modules.Patterns/Modules/Clipboard.vb b/Modules.Patterns/Modules/Clipboard.vb index db25641e..ef9bba94 100644 --- a/Modules.Patterns/Modules/Clipboard.vb +++ b/Modules.Patterns/Modules/Clipboard.vb @@ -1,6 +1,6 @@ Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules Public Class Clipboard Inherits BaseModule Implements IModule diff --git a/Modules.Patterns/Modules/Controls.vb b/Modules.Patterns/Modules/Controls.vb index 1e9cb880..ff843eaa 100644 --- a/Modules.Patterns/Modules/Controls.vb +++ b/Modules.Patterns/Modules/Controls.vb @@ -2,7 +2,7 @@ Imports DigitalData.Controls.LookupGrid Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules ''' ''' Patterns for control values on a panel ''' diff --git a/Modules.Patterns/Modules/IDB.vb b/Modules.Patterns/Modules/IDB.vb index 5b95ff70..7ecf2770 100644 --- a/Modules.Patterns/Modules/IDB.vb +++ b/Modules.Patterns/Modules/IDB.vb @@ -2,7 +2,7 @@ Imports DigitalData.Controls.LookupGrid Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules ''' ''' Patterns for Windream Indicies ''' diff --git a/Modules.Patterns/Modules/Internal.vb b/Modules.Patterns/Modules/Internal.vb index 539e530f..205cfc50 100644 --- a/Modules.Patterns/Modules/Internal.vb +++ b/Modules.Patterns/Modules/Internal.vb @@ -1,6 +1,6 @@ Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules ''' ''' Simple patterns that only rely on .NET functions ''' diff --git a/Modules.Patterns/Modules/User.vb b/Modules.Patterns/Modules/User.vb index 6a823774..74315b94 100644 --- a/Modules.Patterns/Modules/User.vb +++ b/Modules.Patterns/Modules/User.vb @@ -1,6 +1,6 @@ Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules Public Class User Inherits BaseModule Implements IModule diff --git a/Modules.Patterns/Modules/Windream.vb b/Modules.Patterns/Modules/Windream.vb index f7557e2b..97ea3a02 100644 --- a/Modules.Patterns/Modules/Windream.vb +++ b/Modules.Patterns/Modules/Windream.vb @@ -2,7 +2,7 @@ Imports DigitalData.Controls.LookupGrid Imports DigitalData.Modules.Logging -Namespace [PatternModule] +Namespace Modules ''' ''' Patterns for Windream Indicies ''' diff --git a/Modules.Patterns/Patterns.vbproj b/Modules.Patterns/Patterns.vbproj index 30f90ec2..891c1639 100644 --- a/Modules.Patterns/Patterns.vbproj +++ b/Modules.Patterns/Patterns.vbproj @@ -84,7 +84,7 @@ - + diff --git a/Modules.Patterns/Patterns2.vb b/Modules.Patterns/Patterns2.vb index 27b55a86..8d65e35f 100644 --- a/Modules.Patterns/Patterns2.vb +++ b/Modules.Patterns/Patterns2.vb @@ -49,7 +49,7 @@ Public Class Patterns2 Private ReadOnly LogConfig As LogConfig Private ReadOnly Logger As Logger - Private ReadOnly Base As PatternModule.BaseModule + Private ReadOnly Base As Modules.BaseModule Private ReadOnly ControlPanel As Panel Private ReadOnly IDBActive As Boolean @@ -59,13 +59,13 @@ Public Class Patterns2 Public Sub New(pLogConfig As LogConfig) LogConfig = pLogConfig Logger = pLogConfig.GetLogger() - Base = New PatternModule.BaseModule(LogConfig) + Base = New Modules.BaseModule(LogConfig) Modules.AddRange({ - New PatternModule.Internal(LogConfig), - New PatternModule.Clipboard(LogConfig), - New PatternModule.Controls(LogConfig), - New PatternModule.User(LogConfig) + New Modules.Internal(LogConfig), + New Modules.Clipboard(LogConfig), + New Modules.Controls(LogConfig), + New Modules.User(LogConfig) }) End Sub @@ -94,7 +94,7 @@ Public Class Patterns2 Public Function ReplaceUserValues(pInput As String, pUser As State.UserState) As String Dim oResult = pInput - Dim oModule = GetModule(Of PatternModule.User)() + Dim oModule = GetModule(Of Modules.User)() Dim oArgs = GetReplaceMapForModule(oModule, pUser:=pUser) oResult = DoReplaceForModule(oResult, oModule, oArgs) @@ -104,7 +104,7 @@ Public Class Patterns2 Public Function ReplaceControlValues(pInput As String, pPanel As Panel) As String Dim oResult = pInput - Dim oModule = GetModule(Of PatternModule.Controls)() + Dim oModule = GetModule(Of Modules.Controls)() Dim oArgs = GetReplaceMapForModule(oModule, pPanel:=pPanel) oResult = DoReplaceForModule(oResult, oModule, oArgs) @@ -114,7 +114,7 @@ Public Class Patterns2 Public Function ReplaceWindreamValues(pInput As String, pWMObject As WMObject) As String Dim oResult = pInput - Dim oModule = GetModule(Of PatternModule.Windream)() + Dim oModule = GetModule(Of Modules.Windream)() Dim oArgs = GetReplaceMapForModule(oModule, pWMObject:=pWMObject) oResult = DoReplaceForModule(oResult, oModule, oArgs) @@ -124,11 +124,11 @@ Public Class Patterns2 Public Function ReplaceInternalValues(pInput As String) As String Dim oResult = pInput - Dim oInternalModule = GetModule(Of PatternModule.Internal)() + Dim oInternalModule = GetModule(Of Modules.Internal)() Dim oInternalArgs = GetReplaceMapForModule(oInternalModule) oResult = DoReplaceForModule(oResult, oInternalModule, oInternalArgs) - Dim oClipboardModule = GetModule(Of PatternModule.Clipboard)() + Dim oClipboardModule = GetModule(Of Modules.Clipboard)() Dim oClipboardArgs = GetReplaceMapForModule(oClipboardModule) oResult = DoReplaceForModule(oResult, oClipboardModule, oClipboardArgs) @@ -155,46 +155,46 @@ Public Class Patterns2 Private Function GetReplaceMapForModule(pModule As IModule, Optional pPanel As Panel = Nothing, Optional pUser As State.UserState = Nothing, Optional pWMObject As WMObject = Nothing) As Dictionary(Of String, Object) Dim oArgs As New Dictionary(Of String, Object) - If TypeOf pModule Is PatternModule.Clipboard Then + If TypeOf pModule Is Modules.Clipboard Then Try - oArgs.Add(PatternModule.Clipboard.CLIP_VALUE_BOARD, My.Computer.Clipboard.GetText()) + oArgs.Add(Patterns.Modules.Clipboard.CLIP_VALUE_BOARD, My.Computer.Clipboard.GetText()) Catch ex As Exception Logger.Error(ex) End Try - ElseIf TypeOf pModule Is PatternModule.Internal Then + ElseIf TypeOf pModule Is Modules.Internal Then Try - oArgs.Add(PatternModule.Internal.INT_VALUE_USERNAME, System.Environment.UserName) - oArgs.Add(PatternModule.Internal.INT_VALUE_MACHINE, System.Environment.MachineName) - oArgs.Add(PatternModule.Internal.INT_VALUE_DOMAIN, System.Environment.UserDomainName) - oArgs.Add(PatternModule.Internal.INT_VALUE_DATE, Now.ToShortDateString) + oArgs.Add(Patterns.Modules.Internal.INT_VALUE_USERNAME, System.Environment.UserName) + oArgs.Add(Patterns.Modules.Internal.INT_VALUE_MACHINE, System.Environment.MachineName) + oArgs.Add(Patterns.Modules.Internal.INT_VALUE_DOMAIN, System.Environment.UserDomainName) + oArgs.Add(Patterns.Modules.Internal.INT_VALUE_DATE, Now.ToShortDateString) Catch ex As Exception Logger.Error(ex) End Try - ElseIf TypeOf pModule Is PatternModule.User Then + ElseIf TypeOf pModule Is Modules.User Then Try - oArgs.Add(PatternModule.User.USER_VALUE_EMAIL, pUser.Email) - oArgs.Add(PatternModule.User.USER_VALUE_LANGUAGE, pUser.Language) - oArgs.Add(PatternModule.User.USER_VALUE_PRENAME, pUser.GivenName) - oArgs.Add(PatternModule.User.USER_VALUE_SHORTNAME, pUser.ShortName) - oArgs.Add(PatternModule.User.USER_VALUE_SURNAME, pUser.Surname) - oArgs.Add(PatternModule.User.USER_VALUE_USER_ID, pUser.UserId) - oArgs.Add(PatternModule.User.USER_VALUE_USER_NAME, pUser.UserName) + oArgs.Add(Patterns.Modules.User.USER_VALUE_EMAIL, pUser.Email) + oArgs.Add(Patterns.Modules.User.USER_VALUE_LANGUAGE, pUser.Language) + oArgs.Add(Patterns.Modules.User.USER_VALUE_PRENAME, pUser.GivenName) + oArgs.Add(Patterns.Modules.User.USER_VALUE_SHORTNAME, pUser.ShortName) + oArgs.Add(Patterns.Modules.User.USER_VALUE_SURNAME, pUser.Surname) + oArgs.Add(Patterns.Modules.User.USER_VALUE_USER_ID, pUser.UserId) + oArgs.Add(Patterns.Modules.User.USER_VALUE_USER_NAME, pUser.UserName) Catch ex As Exception Logger.Error(ex) End Try - ElseIf TypeOf pModule Is PatternModule.Controls Then + ElseIf TypeOf pModule Is Modules.Controls Then Try - oArgs.Add(PatternModule.Controls.CTRL_VALUE_PANEL, pPanel) + oArgs.Add(Patterns.Modules.Controls.CTRL_VALUE_PANEL, pPanel) Catch ex As Exception Logger.Error(ex) End Try - ElseIf TypeOf pModule Is PatternModule.Windream Then + ElseIf TypeOf pModule Is Modules.Windream Then Try - oArgs.Add(PatternModule.Windream.WM_VALUE_DOCUMENT, pWMObject) + oArgs.Add(Patterns.Modules.Windream.WM_VALUE_DOCUMENT, pWMObject) Catch ex As Exception Logger.Error(ex) End Try