home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Add.ifx.pre < prev    next >
Encoding:
Text File  |  1994-07-30  |  593 b   |  26 lines
  1. /*
  2.  *    Add.ifx.pre
  3.  *    Get alpha and scale flags for the
  4.  *    Add command.  Saves the settings into the
  5.  *    ImpAddParameters clip variable.
  6.  *
  7.  *    by Steve Tibbett
  8.  */
  9.  
  10. Options Results
  11.  
  12. Defaults=GetClip("ImpAddParameters"arg(1));
  13. if (Defaults="") then Defaults="0 1"
  14.  
  15. Parse Var Defaults AlphaFlag ScaleFlag
  16.  
  17. Gadget.1 = 'X/25/17/Use alpha channel as blend control image?/'AlphaFlag
  18. Gadget.2 = 'X/25/29/Scale swap buffer to fit region?/'ScaleFlag
  19.  
  20. ComplexRequest '"Add Settings"' 5 Gadget 400 63
  21. IF rc ~= 0 THEN return 10
  22.  
  23. Defaults=Result.1 Result.2
  24. call SetClip("ImpAddParameters"arg(1), Defaults);
  25.  
  26.