Unable to close Free Vision program on macOS

Summary

Unable to close Free Vision program on macOS. This is applicable for both of the below cases:

1. When 'Alt-X' keyboard shortcut is pressed.
2. When the user clicks on the 'Alt-X Exit' text (by using mouse).

System Information

• Operating system: macOS 12.3.1 21E258
• Processor architecture: x86-64
• Compiler version: 3.2.2
• Device: Computer
• Terminals Used: Terminal (macOS default terminal) and iTerm2.

Steps to reproduce

1. $ fpc -Fu/usr/local/lib/fpc/$(fpc -iV)/units/x86_64-darwin/fv/ project1.pas
2. ./project1
3. Either provide the Alt-X keyboard shortcut or click on the 'Alt-X Exit' text by using the mouse. In either case, the program fails to exit.

Example Project

program project1;

uses App;

var
  a: TApplication;

begin
  a.Init;
  a.Run;
  a.Done;
end.

What is the current bug behavior?

Program is unable to exit unless the following command is executed: killall project1

What is the expected (correct) behavior?

Program should be able to exit if:

1. User presses 'Alt-X' by using the keyboard.
2. When the user clicks on the 'Alt-X Exit' text (by using mouse).

Relevant logs and/or screenshots

Possible fixes