home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 58 / af058b.adf / PV21.lha / REXX / CallBack.pvrx < prev    next >
Text File  |  1991-08-09  |  1KB  |  47 lines
  1. /* AREXX */
  2. arg arglist
  3. 'Lock'
  4.  
  5. cmd=word(arglist,1)
  6. obj=word(arglist,2)
  7.  
  8. 'PushUndo'
  9.  
  10. select
  11.     when cmd == 'CLONE' then do
  12.     DX=word(arglist,3);    DY=word(arglist,4)
  13.     'CLONE obj DX DY'
  14.     end
  15.     when cmd == 'MOVE' then do
  16.     DX=word(arglist,3);    DY=word(arglist,4)
  17.     'MOVE obj DX DY'
  18.     end
  19.     when cmd == 'ROTATE' then do
  20.     CX=word(arglist,3);    CY=word(arglist,4)
  21.     ANGLE=word(arglist,5)
  22.     'ROTATE obj CX CY ANGLE'
  23.     end
  24.     when cmd == 'SIZE' then do
  25.     CX=word(arglist,3);    CY=word(arglist,4)
  26.     SX=word(arglist,5);    SY=word(arglist,6)
  27.     'SIZE obj CX CY SX SY'
  28.     end
  29.     when cmd == 'CHANGE' then do
  30.     ETYPE=word(arglist,3);        EVAL=word(arglist,4)
  31.     FTYPE=word(arglist,5);        FVAL=word(arglist,6)
  32.     EWEIGHT=word(arglist,7);    JTYPE=word(arglist,8)
  33.     FONT=word(arglist,9)
  34.     'ChangeEdgeType Obj ETYPE';    'ChangeEdgeVal Obj EVAL'
  35.     'ChangeFillType Obj FTYPE';    'ChangeFillVal Obj FVAL'
  36.     'ChangeEdgeWdith Obj EWEIGHT';    'ChangeLineJoin Obj JTYPE'
  37.     'ChangeFont Obj FONT'
  38.     end
  39.     when cmd == 'DELETE' then do
  40.     'DELETE obj'
  41.     end
  42. end
  43.  
  44. 'Repair'
  45.  
  46. 'UnLock'
  47.