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;
AppleEvent ae, ae_target;
pending_self_ae = 1;
GetCurrentProcess(&psn);
AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &ae_target);
AECreateAppleEvent('MrEd', 'Smug', &ae_target, kAutoGenerateReturnID, kAnyTransactionID, &ae);
AESend(&ae, NULL, kAENoReply, kAENormalPriority, kNoTimeOut, NULL, NULL);
/* Not supposed to dispose? */
/* AEDisposeDesc(&ae); */
/* AEDisposeDesc(&ae_target); */
if (GetCurrentProcess(&psn) == noErr) {
if (AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &ae_target) == noErr) {
if (AECreateAppleEvent('MrEd', 'Smug', &ae_target, kAutoGenerateReturnID, kAnyTransactionID, &ae) == noErr) {
if (AESend(&ae, NULL, kAENoReply, kAENormalPriority, kNoTimeOut, NULL, NULL) == noErr) {
pending_self_ae = 1;
}
AEDisposeDesc(&ae_target);
}
AEDisposeDesc(&ae);
}
}
}
}