home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / examples / setpen.sel < prev    next >
Encoding:
Text File  |  1999-03-04  |  313 b   |  19 lines
  1. defenv XX 0
  2. defenv YY 0
  3.  
  4. windowsize 3 8
  5. setpen 1 1
  6. text "Press anywhere!"
  7. text
  8. text "X: [xx]"
  9. text "Y: [yy]"
  10.  
  11. setpen [xx] [yy]
  12. button "View script" run 'multiview "[this]"'
  13. button "Move Down!" setenv xx [xx] lastypos yy update
  14. button Quit exit
  15.  
  16. area % 0 0 100 100 lastX xx lasty yy update
  17.  
  18. unsetenv xx
  19. unsetenv yy