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

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