git.oblomov.eu Git - wine/blob - programs/winetest/include/oledlg.pm

   1 package oledlg;
   2
   3 use strict;
   4
   5 require Exporter;
   6
   7 use wine;
   8 use vars qw(@ISA @EXPORT @EXPORT_OK);
   9
  10 @ISA = qw(Exporter);
  11 @EXPORT = qw();
  12 @EXPORT_OK = qw();
  13
  14 my $module_declarations = {
  15     "OleUIAddVerbMenuA" => ["long",  ["ptr", "str", "long", "long", "long", "long", "long", "long", "ptr"]],
  16     "OleUICanConvertOrActivateAs" => ["long",  ["ptr", "long", "long"]],
  17     "OleUIInsertObjectA" => ["long",  ["ptr"]],
  18     "OleUIPasteSpecialA" => ["long",  ["ptr"]],
  19     "OleUIEditLinksA" => ["long",  ["ptr"]],
  20     "OleUIChangeIconA" => ["long",  ["ptr"]],
  21     "OleUIConvertA" => ["long",  ["ptr"]],
  22     "OleUIBusyA" => ["long",  ["ptr"]],
  23     "OleUIUpdateLinksA" => ["long",  ["ptr", "long", "str", "long"]],
  24     "OleUIObjectPropertiesA" => ["long",  ["ptr"]],
  25     "OleUIChangeSourceA" => ["long",  ["ptr"]],
  26     "OleUIAddVerbMenuW" => ["long",  ["ptr", "wstr", "long", "long", "long", "long", "long", "long", "ptr"]],
  27     "OleUIBusyW" => ["long",  ["ptr"]],
  28     "OleUIChangeIconW" => ["long",  ["ptr"]],
  29     "OleUIChangeSourceW" => ["long",  ["ptr"]],
  30     "OleUIConvertW" => ["long",  ["ptr"]],
  31     "OleUIEditLinksW" => ["long",  ["ptr"]],
  32     "OleUIInsertObjectW" => ["long",  ["ptr"]],
  33     "OleUIObjectPropertiesW" => ["long",  ["ptr"]],
  34     "OleUIPasteSpecialW" => ["long",  ["ptr"]],
  35     "OleUIUpdateLinksW" => ["long",  ["ptr", "long", "wstr", "long"]]
  36 };
  37
  38 &wine::declare("oledlg",%$module_declarations);
  39 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  40 1;