home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / TimeMachine / timemachine / rexx / TM_LayerPosition.ifx < prev    next >
Text File  |  1999-08-08  |  442b  |  27 lines
  1. /************
  2. TM_LayerPosition.ifx for Time Machine
  3. ************/
  4.  
  5. options results
  6.  
  7. activelayer
  8. parse var result LayerNum
  9.  
  10. if rc ~=0 then
  11.     do
  12.     requestnotify "Not possible on the background!"
  13.     exit
  14.     end
  15.  
  16. if LayerNum=0 then 
  17.     do
  18.     requestnotify "Not possible on the background!"
  19.     exit
  20.     end
  21.  
  22. layeroffset
  23. parse var result offsetx offsety
  24.  
  25. call setclip('TM_Layer'LayerNum'PositionX',offsetx)
  26. call setclip('TM_Layer'LayerNum'PositionY',offsety)
  27. exit