Common/DocumentResultList: Show current workspace

GUIs.Common/DocumentResultList/Workspace.vb

@@ -21,6 +21,7 @@ Namespace DocumentResultList
 
         Private _CurrentWorkspace = Nothing
 
+        Public Event WorkspaceLoaded As EventHandler(Of String)
 
         Public ReadOnly Property CurrentWorkspace As String
             Get
@@ -161,6 +162,8 @@ Namespace DocumentResultList
                 Manager.AllowTransitionAnimation = DefaultBoolean.False
                 Manager.ApplyWorkspace(pName)
                 _CurrentWorkspace = pName
+                RaiseEvent WorkspaceLoaded(Me, pName)
+
                 Manager.AllowTransitionAnimation = DefaultBoolean.True
             Catch ex As Exception
                 Logger.Error(ex)