- aggiunta gestione LuaManager per plugin
This commit is contained in:
@@ -69,7 +69,10 @@ Public Class MainWindowVM
|
||||
Application.Current.Resources.MergedDictionaries.Add(PluginDictionary)
|
||||
'' aggiungo MainMenu dal plugin
|
||||
Dim PluginMainMenu As IPluginControl = GetControlByName(Of IPluginControl)("Supervisor.Plugin.FiveLakes", "MainMenu")
|
||||
'' aggiungo MainMenu dal plugin
|
||||
'ContentPanel = PluginMainMenu
|
||||
Dim PluginLuaManager As IPluginLuaManager = Map.refMainWindowVM.GetLuaManager(Of IPluginLuaManager)("Supervisor.Plugin.FiveLakes")
|
||||
PluginLuaManager.PlgInit(LuaManager.state)
|
||||
' aggiungo Project dal plugin
|
||||
Dim ProjectPlugin As IPluginControl = GetControlByName(Of IPluginControl)("Supervisor.Plugin.FiveLakes", "Project")
|
||||
ContentPanel = ProjectPlugin
|
||||
@@ -99,6 +102,11 @@ Public Class MainWindowVM
|
||||
Return DictionaryControl
|
||||
End Function
|
||||
|
||||
Friend Function GetLuaManager(Of T)(sPluginFileName As String) As IPluginLuaManager
|
||||
Dim LuaManager As Object = m_Loader.LoadByTag(Of T)(GetPathByName(sPluginFileName), "LuaManager").FirstOrDefault()
|
||||
Return LuaManager
|
||||
End Function
|
||||
|
||||
#End Region ' Plugin
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user