migrate baseerrorhandler from clientsuite

GUIs.Common/Base/BaseRibbonForm.vb

@@ -12,8 +12,6 @@ Namespace Base
     '''     
     '''     ... 
     ''' End Class
-    ''' 
-    ''' Only BaseRibbonForms can have panels attached to it!
     ''' </summary>
     Public Class BaseRibbonForm
         Inherits RibbonForm
@@ -27,57 +25,31 @@ Namespace Base
             End Get
         End Property
 
-        ''' <summary>
-        ''' Sets or gets the ribbon Page that will be shown when the window is visible
-        ''' </summary>
-        ''' <returns></returns>
-        Public Property DefaultRibbonPage As RibbonPage
-
-        Protected Overrides Sub OnLoad(e As EventArgs)
-            MyBase.OnLoad(e)
-
-            If DefaultRibbonPage IsNot Nothing Then
-                Ribbon.SelectPage(DefaultRibbonPage)
-            End If
+        Public Sub New()
         End Sub
 
-        Protected Overrides Sub OnVisibleChanged(e As EventArgs)
-            MyBase.OnVisibleChanged(e)
-
-            If Visible And DefaultRibbonPage IsNot Nothing Then
-                Ribbon.SelectPage(DefaultRibbonPage)
-            End If
-        End Sub
-
-        Protected Overrides Sub OnActivated(e As EventArgs)
-            MyBase.OnVisibleChanged(e)
-
-            If Visible And DefaultRibbonPage IsNot Nothing Then
-                Ribbon.SelectPage(DefaultRibbonPage)
-            End If
-        End Sub
-
-
         Public Sub New(LogConfig As LogConfig)
             ' Get the full name of the inheriting form
             ' so the log messages have the right classname
             Dim oClassName = [GetType]().FullName
 
-            ' My.LogConfig is undefined in the designer  
+            ' My.LogConfig is undefined in the designer
             _Logger = LogConfig?.GetLogger(oClassName)
-            _ErrorHandler = New BaseErrorHandler(_Logger, Me)
+            _ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me)
 
             ' When you add something, be careful if it 
             ' depends on a global var like My.LogConfig
             ' you might need to check for its existence with ?
         End Sub
 
+        ''' ============== PUBLIC METHODS ==============
+
         Public Sub ShowErrorMessage(Exception As Exception)
             _ErrorHandler.ShowErrorMessage(Exception)
         End Sub
 
         Public Sub ShowErrorMessage(ErrorMessage As String)
-            _ErrorHandler.ShowErrorMessage(New Exception(ErrorMessage))
+            _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage))
         End Sub
     End Class
 End Namespace