Hi,
I don't know if it is FCP problem, it looks like it is, but I can't see how.
In XCode i've created a Carbon app with the given in main.c. When
running this, everything works as expected. However when I replace
Hello.app/Contents/MacOS/Hello with a version created by FPC from
hello.pp, I get an exception when I hover with the mouse over the Hello
- Services - FileMerge menuitem (this is an empty submenu)
Now what I don't get is what this has to do with the fpc generated exe.
AFAIK this menu is handled by the OS internally.
Am I missing something ? Am I not allowed to change the exe ? Or is it
something FPC had to compile in the exe but didn't do ?
Anyone any clue ?
TIA, Marc
--- main.c ---
#include <Carbon/Carbon.h>
int main(int argc, char* argv[])
{
WindowRef window;
OSStatus err;
Rect R;
R.top = 50; R.left = 50; R.right = 500; R.bottom = 200;
err = CreateNewWindow(
kDocumentWindowClass,
kWindowStandardDocumentAttributes |
kWindowStandardHandlerAttribute |
kWindowInWindowMenuAttribute,
&R, &window);
require_noerr( err, CantCreateWindow );
// The window was created hidden so show it.
ShowWindow( window );
// Call the event loop
RunApplicationEventLoop();
CantCreateWindow:
return err;
}
--- hello.pp ---
program FPCCarbon;
{$mode objfpc}
uses
Carbon;
label
CantCreateWindow;
var
R : Rect;
err : OSStatus;
window : WindowRef;
begin
R.Top := 50; R.Left := 50; R.Right := 500; R.Bottom := 200;
err := CreateNewWindow(
kDocumentWindowClass,
kWindowStandardDocumentAttributes or
kWindowStandardHandlerAttribute or
kWindowInWindowMenuAttribute,
R, window);
if err <> noErr then
goto CantCreateWindow;
// The window was created hidden so show it.
ShowWindow(window);
// Call the event loop
RunApplicationEventLoop;
// Error Handling
CantCreateWindow:
Halt(err);
end.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
