8 use vars
qw(@ISA @EXPORT @EXPORT_OK);
14 my $module_declarations = {
15 "AlphaBlend" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "ptr"]],
16 "GradientFill" => ["long", ["long", "ptr", "long", "ptr", "long", "long"]],
17 "TransparentBlt" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "long"]],
18 "vSetDdrawflag" => ["void", []]
21 &wine
::declare
("msimg32",%$module_declarations);
22 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));