#! lua
-- icon library
-- create returns icon handle
local !, sys in require "riscos"
=> {
  create = \ (self, t)
     local b in self
     for i = 0, #t - 1 do
       ![b + (i<<2)] = t[i + 1]
     end -- for
   => sys (0x400c2, 0, b) -- Wimp_CreateIcon
   end;
    }
