home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / Main / 1004.0 < prev    next >
Text File  |  2002-06-22  |  435b  |  21 lines
  1. /* Event Clicked/selected -   1004 */
  2. Arg window self
  3.  
  4.  
  5. /*  Ain't working...try again 
  6.  
  7. /* Get image attributes 1000 Image Editor */
  8. rc=VpImgEdt(window, 1000, 'GETBMPATTRIBUTES')
  9. PARSE VAR rc x y numcolors
  10.  
  11.  
  12. /* Get item size 1000 Image Editor */
  13. xy=VpItem(window,1000,'ITEMSIZE')
  14. PARSE VAR xy x y
  15. /* Set item position/size 1000 Image Editor */
  16. CALL VpItem window,1000,'SETITEMPOS',0,0,1024,768
  17.  
  18. */
  19.  
  20.  
  21. call printimage