home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / selectprolog.pprx < prev    next >
Encoding:
Text File  |  1995-08-30  |  853 b   |  37 lines
  1. /* This Genie selects one of several alternative Postscript prologs. These should be stored in a directory called PPage:data/Prologs. A copy of the original standard prolog MUST also be kept there so that you can restore it. 
  2. Written by Don Cox  Aug 95  */
  3. /* $VER:SelectProlog Aug 95 */
  4.  
  5. trace n
  6.  
  7. signal on error
  8. signal on syntax
  9. address command
  10. call SafeEndEdit.rexx()
  11. cr="0a"x
  12.  
  13. newfile = ppm_GetFileName("Select a PPage Postscript prolog","PPage:data/Prologs",)
  14. if newfile = "" then exit_msg("Aborted by user")
  15. address command
  16. 'copy "'newfile'" PPage:data/psprlg'
  17.  
  18. call exit_msg(newfile" copied to replace psprlg")
  19.  
  20. end
  21.  
  22. error:
  23. syntax:
  24.     do
  25.     exit_msg("Genie failed due to error: "errortext(rc))
  26.     end
  27.  
  28. exit_msg:
  29.     do
  30.     parse arg message
  31.     if message ~= "" then
  32.     call ppm_Inform(1,message)
  33.     call ppm_AutoUpdate(1)
  34.     exit
  35.     end
  36.  
  37.