home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff308.lzh / FReq / Examples / NotePad < prev    next >
Text File  |  1990-01-18  |  781b  |  27 lines
  1. /* NotePad  (Arexx) - uses FReq as a front end to NotePad */
  2.  
  3. /* ** Important Note ** -  NotePad will NOT accept a path specification and
  4.                            filename longer than 30 characters              */
  5.  
  6. if ~(Show('P', 'FileRequester')) then
  7.     do
  8.     ADDRESS COMMAND "Run >NIL: <NIL: DEVS:Freq >NIL: <NIL:"
  9.     ADDRESS COMMAND "WaitForPort FileRequester"
  10.     if ~(Show('P', 'FileRequester')) then
  11.         do
  12.         say "UnAble to Load FileRequester"
  13.         exit
  14.         end
  15.     end
  16.  
  17. OPTIONS RESULTS
  18. ADDRESS "FileRequester"
  19. 'SetPattern'        /* clear the pattern and filename */
  20. 'SetFileName'
  21. 'SetPath SYS:Utility'    /* Path where NotePad note files are located */
  22. 'SetTitle Select a NotePad Note to Open'
  23. 'DisplayDef'
  24. 'GETFILENAME'
  25. if (RC = 0) then
  26.     ADDRESS COMMAND "SYS:Utility/Notepad" '"' || Result || '"'
  27.