home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / UnDoPalette.clssa < prev    next >
Text File  |  1993-05-01  |  481b  |  18 lines
  1. /***********************************************************************
  2.  GADGET: "'UnDo Palette'" "6" 22 TYP: "?"
  3.  
  4.  $DAT >>UnDoPalette.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.  GetAnimInfo
  11.  IF RESULT~="" THEN DO
  12.    List=GetClip("clPalette")
  13.    IF Liste~="" THEN  SetColor List
  14.    ELSE Message "'No Palette stored.'"
  15.  END
  16.  ELSE Message "'No Anim available!'"
  17. exit
  18.