erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-08-28 03:07:43 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 12

fix(developer): stack overflow when compiling non-web keyboard

Browse source 
Fixes #7030.

Prevents a stack overflow / loop when the web target is removed from a
keyboard and it has already been tested on web, and the user presses the
Compile button.
This commit is contained in:
Marc Durdin 2022-08-03 12:53:03 -05:00
parent 0a22acd0e4
commit f9240d76a2
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
developer/src/tike/project/Keyman.Developer.UI.Project.kmnProjectFileUI.pas
View file

@ -67,6 +67,7 @@ uses
UfrmKeymanWizard,
UfrmKeyboardFonts,
UfrmMDIEditor,
UKeymanTargets,
UmodWebHttpServer,
Keyman.Developer.System.ServerAPI,
Keyman.Developer.UI.ServerUI,
@ -133,7 +134,8 @@ begin
if Result and
TServerDebugAPI.Running and
TServerDebugAPI.IsKeyboardRegistered(ProjectFile.TargetFileName) then
TServerDebugAPI.IsKeyboardRegistered(ProjectFile.TargetFileName) and
(ProjectFile.Targets * KMWKeymanTargets <> []) then
TestKeymanWeb(True);
end;
@ -235,7 +237,13 @@ begin
Exit(False);
wizard := editor as TfrmKeymanWizard;
if ProjectFile.Targets * KMWKeymanTargets = [] then
Exit(False);
FCompiledName := ProjectFile.JSTargetFilename;
if FCompiledName = '' then
Exit(False);
if not TestKeyboardState(FCompiledName, FSilent) then
Exit(False);