------------------------------------------------------------------------------
-- OleControl class 
------------------------------------------------------------------------------
local ctrl = {
  nick = "olecontrol",
  parent = iup.WIDGET,
  creation = "s",
  funcname = "OleControl",
  callback = {},
  include = "iupole.h",
  extracode = [[ 
int iupolelua_open(lua_State* L)
{
  if (iuplua_opencall_internal(L))
    IupOleControlOpen();
    
  iuplua_get_env(L);
  iupolecontrollua_open(L);
  return 0;
}

/* obligatory to use require"iupluaole" */
int luaopen_iupluaole(lua_State* L)
{
  return iupolelua_open(L);
}

]]
}

function ctrl.createElement(class, param)
  return iup.OleControl(param[1])
end

function ctrl.CreateLuaCOM(handle)
  -- if luacom is loaded, use it to access methods and properties
  -- of the control
  if luacom then
    local punk = handle.iunknown
    if punk then
      handle.com = luacom.CreateLuaCOM(luacom.ImportIUnknown(punk))
    end     
  end
end

iup.RegisterWidget(ctrl)
iup.SetClass(ctrl, "iup widget")
