home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / PowerPlatform_v1.1 / Rexx / GraphicsFunctions.APP < prev    next >
Encoding:
Text File  |  1991-04-06  |  3.1 KB  |  61 lines
  1. /************************************************************************/
  2. /* This EXEC contains the Graphics function group definitions.          */
  3. /*                                                                      */
  4. /*                                              ==> MCW 09/03/90 <==    */
  5. /*                                                                      */
  6. /*                   Copyright © 1990 Martin C. Warnett.                */
  7. /************************************************************************/
  8.  
  9. trace off
  10.  
  11. parse arg PortName                          /* Get port name passed     */
  12.  
  13. if PortName ~= "" then do                   /* Was port name passed?    */
  14.     address VALUE PortName                  /* Make it the default port */
  15. end
  16.  
  17. /************************************************************************/
  18. /* This first statement will change the current PowerPlatform source    */
  19. /* directory. The idea is to change to a directory that contains your   */
  20. /* graphics files so that you can access them faster, you don't have    */
  21. /* to manually select the directory.                                    */
  22. /*                                                                      */
  23. /* Change the following statement to reference the appropriate          */
  24. /* directory on your system or delete it if you prefer.                 */
  25. /************************************************************************/
  26.  
  27. 'CDSource DH0:MyGraphicsDir'
  28.  
  29. 'ClearFunctions'                            /* Delete existing buttons  */
  30.  
  31. /************************************************************************/
  32. /* The following function definitions are examples only. You should     */
  33. /* edit them to run on your system. You can use what ever IFF viewer    */
  34. /* you prefer etc.                                                      */
  35. /************************************************************************/
  36.  
  37. 'DefineFunction 1 TagAll TagAll'            /* Select all files         */
  38. 'DefineFunction 2 Reset Reset'              /* Deselect all files       */
  39. 'DefineFunction Run CDSource 3 Shell NewShell NEWCON:0/50/640/100/AmigaShell'
  40. 'DefineFunction Sleep TargetRefresh 5 Copy copy FROM &sf TO &tf COM'
  41. 'DefineFunction Sleep TargetRefresh 6 CopyAll copy FROM &sf TO &tf COM ALL'
  42. 'DefineFunction Sleep Confirm SourceRefresh 7 Erase delete &sf'
  43. 'DefineFunction Sleep Confirm SourceRefresh 8 EraseAll delete &sf ALL'
  44. 'DefineFunction Sleep SourceRefresh TargetRefresh 9 Rename rename FROM &sf TO &tf'
  45. 'DefineFunction Run 10 More more &sf'
  46.  
  47. 'DefineFunction SourceRefresh CDSource ARexx Console=2 13 GIF-IFF GIFtoIFF &sf'
  48. 'DefineFunction SourceRefresh CDSource ARexx Console=2 14 GIF-Sham GIFtoSHAM &sf'
  49. 'DefineFunction 17 IFFView SuperView3.0 &sf'
  50. 'DefineFunction 18 GIFView HamGIF &sa'
  51. 'DefineFunction 19 SHAMView SuperSHAM &sf'
  52. 'DefineFunction NoQuote 20 MacView MacView -h -f &SF'
  53. 'DefineFunction 21 RLEView ShowRLE &sf'
  54. 'DefineFunction CDSource NoQuote 29 Do &sf'
  55. 'DefineFunction CDSource 30 Run Run &sf'
  56. 'DefineFunction CDSource 31 Execute Execute &sf'
  57.  
  58. 'RedrawFunctions'                           /* Draw new function buttons*/
  59.  
  60. return 0                                    /* Successful completion    */
  61.