suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yet another attempt to solve Mac event-loop AE problems

Browse Source 
svn: r14051
This commit is contained in:
Matthew Flatt 2009-03-11 16:51:19 +00:00
parent d474b2bfd0
commit 007ff4649d
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/mred/mredmac.cxx
View File

@ -300,15 +300,17 @@ static void EnsureWNEReturn()
ProcessSerialNumber psn; ProcessSerialNumber psn;
AppleEvent ae, ae_target; AppleEvent ae, ae_target;
pending_self_ae = 1; if (GetCurrentProcess(&psn) == noErr) {
if (AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &ae_target) == noErr) {
GetCurrentProcess(&psn); if (AECreateAppleEvent('MrEd', 'Smug', &ae_target, kAutoGenerateReturnID, kAnyTransactionID, &ae) == noErr) {
AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &ae_target); if (AESend(&ae, NULL, kAENoReply, kAENormalPriority, kNoTimeOut, NULL, NULL) == noErr) {
AECreateAppleEvent('MrEd', 'Smug', &ae_target, kAutoGenerateReturnID, kAnyTransactionID, &ae); pending_self_ae = 1;
AESend(&ae, NULL, kAENoReply, kAENormalPriority, kNoTimeOut, NULL, NULL); }
/* Not supposed to dispose? */ AEDisposeDesc(&ae_target);
/* AEDisposeDesc(&ae); */ }
/* AEDisposeDesc(&ae_target); */ AEDisposeDesc(&ae);
}
}
} }
} }