add monodiag, add workflow overview

GUIs.ClientSuite/ClassPanelManager.vb

@@ -40,9 +40,8 @@ Public Class PanelManager
 
     Private Sub View_DocumentDeactivated(sender As Object, e As DocumentEventArgs)
         Dim oDocument As BaseDocument = e.Document
-        ' TODO: oDocument.Control can be nothing
-        Dim oHashcode As Integer = oDocument.Control.GetHashCode
 
+        ' TODO: oDocument.Control can be nothing
         If oDocument Is Nothing Then
             Exit Sub
         End If
@@ -51,7 +50,7 @@ Public Class PanelManager
         For Each oPanel As DockPanel In _dockManager.Panels
             Dim oTag As Integer = oPanel.Tag
 
-            If oTag = oHashcode Then
+            If oTag = oDocument.Control.GetHashCode Then
                 oPanel.Hide()
             End If
         Next