home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / mac / hypercar / 4729 < prev    next >
Encoding:
Internet Message Format  |  1993-01-07  |  2.2 KB

  1. Path: sparky!uunet!haven.umd.edu!purdue!ames!saimiri.primate.wisc.edu!zaphod.mps.ohio-state.edu!rpi!uwm.edu!rutgers!rochester!rit!tempeh.isc.rit.edu!user
  2. From: mac9067@cs.rit.edu (Mark Collien)
  3. Newsgroups: comp.sys.mac.hypercard
  4. Subject: Re: Movie/button/quit script question
  5. Message-ID: <mac9067-070193123037@tempeh.isc.rit.edu>
  6. Date: 7 Jan 93 17:39:57 GMT
  7. References: <1993Jan6.160344.1@kean.ucs.mun.ca>
  8. Sender: news@cs.rit.edu
  9. Followup-To: comp.sys.mac.hypercard
  10. Organization: Rochester Institute of Technology
  11. Lines: 55
  12. Nntp-Posting-Host: tempeh.isc.rit.edu
  13.  
  14. In article <1993Jan6.160344.1@kean.ucs.mun.ca>, haggas@kean.ucs.mun.ca
  15. wrote:
  16. > I wish to "play" a QuickTime movie and "quit" a stack through a 
  17. > background "Quit" button. I cannot play the movie and quit the stack 
  18. > in the button script. How can this be done?
  19. > I have temporarily got around this problem by adding to each card 
  20. > script (since each card has a "Quit" button) the following:
  21. > on closeMovie
  22. >   go last -- quit doMenu routine on card script
  23. > end closMovie
  24. > This is awkward, it limits the playing to one movie and requires the 
  25. > repetitive scripting on each card.
  26. > This is our first home-made application of movie clips to student 
  27. > teaching. This clip instructs a medical student how to correctly
  28. > shut down the MAC, external hard-drive and power supply.
  29. > John Haggas
  30. > haggas@kean.ucs.mun.ca
  31.  
  32. What you can do is set the windowCloseMsg for each movie after it is
  33. created.  When the movie window is closed it will generate the message you
  34. specify
  35. which can be trapped by a handler, perhaps at the stack level, to quit
  36. or do whatever else you want.  
  37.  
  38. Here's an example script: 
  39. ------------------------------
  40.  on playMyMovie
  41.    QTMovie OpenMovie, Windoid, Rtempeh:liftoffS, R100,100S,closeOnFinish
  42.    set windowCloseMsg of window "liftoff" to "movieDone"
  43.  end playMyMovie
  44.  
  45.  on movieDone
  46.    doMenu "Quit HyperCard"
  47.  end movieDone
  48.  
  49.  
  50. ------------------------------
  51.  
  52. Hope this does the trick.
  53.  
  54. -- Mark
  55.  
  56.  
  57. ---------------------------------------------------------------------------
  58. Mark Collien
  59. Interactive Media Laboratory
  60. Rochester Institute of Technology
  61. mac9067@cs.rit.edu  -or-  mac9067@ritvax.bitnet
  62. 716.475.6625
  63. 716.475.5804 fax
  64.