home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Res Utils Examples / DD Load.as < prev    next >
Encoding:
Text File  |  1996-12-06  |  343 b   |  14 lines  |  [TEXT/ToyS]
  1. on run
  2.     set f to choose file of type "DiDi"
  3.     set rf to res open f without write permission
  4.     try
  5.         set dd to res get rf type "reco" name "Pet Dialog" --id 1000
  6.         set inf to res get info rf type "reco" id 1000
  7.     on error number n
  8.         res close rf
  9.         error number n
  10.     end try
  11.     res close rf
  12.     set dlog to do dialog dd with greyscale
  13.     [dlog, inf]
  14. end run