scalos/Plugins/OOP/wb39_plugin/wbrexx/rxtest3.rexx

   1 /* rxtest3.rexx */
   2
   3 OPTIONS RESULTS
   4
   5 ADDRESS WORKBENCH
   6
   7 window "Download:" open
   8
   9 address command "wait"
  10
  11 getattr object window.icons.all.count name "Download:" var IconCount
  12
  13 say IconCount || " Icons found."
  14
  15 getattr object window.icons.all name "Download:" stem icons
  16
  17 do n = 0 to IconCount-1
  18         say "Name = <" || icons.n.name || ">  Width=" || icons.n.width || "  Height=" icons.n.height
  19 end
  20
  21
  22 if rc > 0 then do
  23         getattr application.lasterror
  24         res = result
  25         fault code res
  26         say "lasterror =" result
  27         end