home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Res Utils Examples / Put Res.as < prev    next >
Encoding:
Text File  |  1996-12-02  |  440 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     set f to new file default name "Put Res.rsrc"
  3.     res create f creator type "RSED" file type "rsrc"
  4.     set rf to res open f with write permission
  5.     try
  6.         set x to {class:push button, bounds:[190, 65, 250, 85], label:"OK", depends on:3}
  7.         set y to {bounds:[190, 65, 250, 85], label:"OK", depends on:3}
  8.         res put rf id 1000 data x
  9.         res put rf id 2000 data y
  10.     on error number n
  11.         res close rf
  12.         error number n
  13.     end try
  14.     res close rf
  15. end run