From 4dd5904bca171d3e90a96309d992e8a5baab2fef Mon Sep 17 00:00:00 2001 From: Marc Durdin Date: Wed, 19 Jan 2022 11:00:44 +1100 Subject: [PATCH] fix(developer): refresh web host on compile --- .../project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas | 3 +++ .../project/Keyman.Developer.UI.Project.kpsProjectFileUI.pas | 3 +++ .../Keyman.Developer.UI.Project.modelTsProjectFileUI.pas | 4 ++++ 3 files changed, 10 insertions(+) diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas index 6534fa2b10..5b83c2958d 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas @@ -131,6 +131,9 @@ begin frmMessages.DoShowForm; Result := ProjectFile.CompileKeyboard; + + if Result and TServerDebugAPI.IsKeyboardRegistered(ProjectFile.TargetFileName) then + TestKeymanWeb(True); end; function TkmnProjectFileUI.FontDialog(FSilent: Boolean): Boolean; // I4057 diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kpsProjectFileUI.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kpsProjectFileUI.pas index cd311add83..c57dc60679 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kpsProjectFileUI.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.kpsProjectFileUI.pas @@ -75,6 +75,9 @@ begin if not modActionsMain.actFileSave.Execute then Exit; Result := ProjectFile.CompilePackage(GetPack, FSilent); + + if Result and TServerDebugAPI.IsPackageRegistered(ProjectFile.TargetFileName) then + TestPackageOnline; end; function TkpsProjectFileUI.CompilePackageInstaller(FSilent: Boolean): Boolean; diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.modelTsProjectFileUI.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.modelTsProjectFileUI.pas index 40d064c02a..c2cbb76509 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.modelTsProjectFileUI.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.modelTsProjectFileUI.pas @@ -98,6 +98,10 @@ begin frmMessages.DoShowForm; Result := ProjectFile.CompileModel; + + + if Result and TServerDebugAPI.IsModelRegistered(ProjectFile.TargetFileName) then + TestKeymanWeb(True); end; function TmodelTsProjectFileUI.GetDebug: Boolean;