home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 June / Chip_06_2000.iso / demo / MediaCenter / mcp300ev.exe / %MAINDIR% / PSRes / catimpl.ps next >
Encoding:
Text File  |  2000-02-04  |  436 b   |  19 lines
  1. %
  2. % Copyright (C) Bengt Computer Graphics 1996
  3. % Define a new resource category using the generic
  4. % template
  5. %
  6. % currentglobal not /notglobal exch def
  7. true setglobal
  8. %
  9. % expecting to find the category name on the stack
  10. %
  11. /instancetype exch def
  12. /category exch def
  13. /Generic /Category findresource
  14. dup length 1 add dict copy
  15. dup /InstanceType instancetype put
  16. category exch /Category defineresource pop
  17. %
  18. false setglobal
  19.