diff --git a/windows/src/desktop/kmshell/render/XMLRenderer.pas b/windows/src/desktop/kmshell/render/XMLRenderer.pas index cecb664b56..bd9ec66dd8 100644 --- a/windows/src/desktop/kmshell/render/XMLRenderer.pas +++ b/windows/src/desktop/kmshell/render/XMLRenderer.pas @@ -107,6 +107,7 @@ uses UFixupMissingFile, UILanguages, Keyman.Configuration.System.UmodWebHttpServer, + Keyman.System.KeymanSentryClient, Unicode, utildir, utilhttp, @@ -200,7 +201,7 @@ begin FOutput := TStringList.Create; try LanguageCode := (kmcom.Control as IKeymanCustomisationAccess).KeymanCustomisation.CustMessages.LanguageCode; - + TKeymanSentryClient.Breadcrumb('ui.configuration', ClassName +' LanguagueCode: '+LanguageCode, 'file-io'); FOutput.Add( ''+ @@ -229,6 +230,7 @@ begin if not FileExists(FTemplatePath + FRenderTemplate) then begin try + TKeymanSentryClient.Breadcrumb('ui.configuration', ClassName+' Call FixupMissingFile for ' +FTemplatePath +FRenderTemplate, 'file-io'); FixupMissingFile(FTemplatePath + FRenderTemplate); except on E:EFixupMissingFile do @@ -237,6 +239,7 @@ begin end; try + TKeymanSentryClient.Breadcrumb('ui.configuration', ClassName+' Loading XSLT '+FTemplatePath +FRenderTemplate, 'file-io'); xml.LoadFromFile(FTemplatePath + FRenderTemplate); except on E: Exception do