home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_180_QT Browser.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  542 b   |  19 lines
  1. on mouseUp
  2.   if the optionkey is down then
  3.     answer "Do you want to delete this frame" with "No" or "Yes"
  4.     if it is "Yes" then
  5.       put word 1 to 2 of the name of me && "id" && the id of me into hold
  6.       select hold
  7.       domenu "Clear Button"
  8.       choose browse tool
  9.       exit mouseup
  10.     end if
  11.   end if
  12.   get FullSFPack( "Q","MooV","Choose a movie to play:")
  13.   if it is empty then exit mouseUp
  14.   set cursor to watch
  15.   put it into myPicture
  16.   put rect of me into where
  17.   put ", w" after where
  18.   QTPlay myPicture, where
  19. end mouseUp