home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / programm / 14958 < prev    next >
Encoding:
Text File  |  1992-09-03  |  3.0 KB  |  100 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!cs.utexas.edu!oakhill!jolt.sps.mot.com!user
  3. From: Jim_Holt@aprdlgtr.sps.mot.com (Jim Holt)
  4. Subject: Re: Sound Loop in a with a Modal Dialog?
  5. Message-ID: <Jim_Holt-030992141455@jolt.sps.mot.com>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: news@oakhill.sps.mot.com
  8. Nntp-Posting-Host: 222.20.248.206
  9. Organization: Motorola
  10. References: <1992Sep3.145524.8874@utkux1.utk.edu>
  11. Date: Thu, 3 Sep 1992 19:21:14 GMT
  12. Lines: 86
  13.  
  14. In article <1992Sep3.145524.8874@utkux1.utk.edu>, danny@utkux1.utk.edu
  15. (Danny W. McCampbell) wrote:
  16. > 
  17. > Hi.  I want to play a sound continuously while a modal dialog is 
  18. > present on the screen.  I have successfully go the loop to work
  19. > without the modal dialog statement but the loop is only executed
  20. > twice when I call modal dialog.  Here is  some sample code:
  21. > 
  22. > dialogtrue := true;
  23. > while dialogtrue do
  24. > begin
  25. >   FlushSndChannel(mySndChan);
  26. >   if SoundisStopped(mySndChan) then
  27. >   begin
  28. >     PlaytheSound(mySndChan);
  29. >   end;
  30. >   ModalDialog(nil, itemHit);            {Call Modal Dialog until the user clicks in the dialog}
  31. >   if itemHit = 1 then
  32. >     dialogtrue := false;
  33. > end;
  34. > StoptheSound(mySndChan);
  35. > DisposDialog(AboutDialog);                {Dispose of the Dialog}
  36. > 
  37. > The sound plays only twice then stops playing.  Any ideas how I can
  38. > do this successfully?  Thanks in advance.
  39.  
  40. The problem is that when you call ModalDialog, you don't get control back
  41. until the user does something (mouse click, etc).  What you have to do is
  42. simulate a modal dialog by setting up an event loop.  Here is a 
  43. C example of how I have done this in the past ...
  44.  
  45. /*------------------*/
  46.  
  47. DialogPtr        dPtr,dummy;
  48. GrafPtr            old_port;
  49. Boolean            done = FALSE;
  50. short            which;
  51.  
  52.     GetPort(&old_port);
  53.     PositionDialog('DLOG',SOME_DLOG);
  54.     dPtr = GetNewDialog(SOME_DLOG, NULL, (WindowPtr)-1L);
  55.     if(dPtr == NULL)
  56.     {
  57.         /* handle the error, we didn't get our dialog rsrc ... */
  58.         return;
  59.     }
  60.     DrawDialog(dPtr);
  61.     SetPort(dPtr);
  62.     while (!done)
  63.     {
  64.         while ((!GetOSEvent(everyEvent, &localEvent)) && (!done))
  65.         {
  66.       /* do whatever it is you need to do to keep your snd playing */
  67.         }
  68.         if (IsDialogEvent(&localEvent))
  69.         {
  70.             if (DialogSelect(&localEvent,&dummy,&which))
  71.             {
  72.                 GlobalToLocal(&localEvent.where);
  73.                 switch (which)
  74.                 {
  75.                     case OK_ITEM:
  76.                         done = TRUE;
  77.       /* handle the OK button */
  78.                         break;                
  79.                     case CANCEL_ITEM:
  80.                         done = TRUE;
  81.       /* handle the CANCEL button */
  82.                         break;
  83.      default : break;
  84.             }
  85.         }
  86.     }
  87.     DisposDialog(dPtr);
  88.     
  89.     SetPort(old_port);
  90.  
  91.  
  92. Hope this helps ...
  93. -jh
  94. +-------------------------------------------------------------------------+
  95. |   I used to have a catchy signature, but I forgot what it was ...       |
  96. |                                                                         |
  97. |   Jim Holt                                                              |
  98. |   Motorola, Inc    Jim_Holt@aprdlgtr.sps.mot.com                        |
  99. +-------------------------------------------------------------------------+
  100.