OmagOFFICE :

- Aggiunti componenti parametrici con anche componenti interni.

CompoWindow/CompoWindowMap.vb

@@ -4,6 +4,7 @@
    Private m_refCompoSceneHostV As CompoSceneHostV
    Private m_refCompoListPageVM As CompoListPageVM
    Private m_refCompoParamPageVM As CompoParamPageVM
+   Private m_refCompoManagerVM As CompoManagerVM
 
 #Region "Get"
 
@@ -31,6 +32,12 @@
       End Get
    End Property
 
+   Public ReadOnly Property refCompoManagerVM As CompoManagerVM
+      Get
+         Return m_refCompoManagerVM
+      End Get
+   End Property
+
 #End Region    ' Get
 
 #Region "Set"
@@ -50,6 +57,11 @@
       Return Not IsNothing(m_refCompoParamPageVM)
    End Function
 
+   Friend Function SetRefCompoManagerVM(CompoManagerVM As CompoManagerVM) As Boolean
+      m_refCompoManagerVM = CompoManagerVM
+      Return Not IsNothing(m_refCompoManagerVM)
+   End Function
+
 #End Region    ' Set
 
 #Region "Init"
@@ -58,10 +70,12 @@
       m_refCompoWindowVM = CompoWindowVM
       Return Not IsNothing(m_refCompoWindowVM)
    End Function
+
    Friend Function EndInit() As Boolean
       ' Verifico se tutti i pezzi necessari sono stati caricati
       Return Not IsNothing(m_refCompoWindowVM) AndAlso Not IsNothing(m_refCompoSceneHostV) AndAlso
-             Not IsNothing(m_refCompoListPageVM) AndAlso Not IsNothing(m_refCompoParamPageVM)
+             Not IsNothing(m_refCompoListPageVM) AndAlso Not IsNothing(m_refCompoParamPageVM) AndAlso
+             Not IsNothing(m_refCompoManagerVM)
    End Function
 
 #End Region    ' Init