8 use vars qw(@ISA @EXPORT @EXPORT_OK);
14 my $module_declarations = {
15 "MenuHelp" => ["void", ["long", "long", "long", "long", "long", "long", "ptr"]],
16 "ShowHideMenuCtl" => ["long", ["long", "long", "ptr"]],
17 "GetEffectiveClientRect" => ["void", ["long", "ptr", "ptr"]],
18 "DrawStatusTextA" => ["void", ["long", "ptr", "str", "long"]],
19 "CreateStatusWindowA" => ["long", ["long", "str", "long", "long"]],
20 "CreateToolbar" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "long"]],
21 "CreateMappedBitmap" => ["long", ["long", "long", "long", "ptr", "long"]],
22 "DPA_LoadStream" => ["long", ["ptr", "ptr", "ptr", "long"]],
23 "DPA_SaveStream" => ["long", ["long", "ptr", "ptr", "long"]],
24 "DPA_Merge" => ["long", ["long", "long", "long", "ptr", "ptr", "long"]],
25 "MakeDragList" => ["long", ["long"]],
26 "LBItemFromPt" => ["long", ["long", "long", "long", "long"]],
27 "DrawInsert" => ["void", ["long", "long", "long"]],
28 "CreateUpDownControl" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "long"]],
29 "InitCommonControls" => ["void", []],
30 "CreatePropertySheetPage" => ["long", ["ptr"]],
31 "CreatePropertySheetPageA" => ["long", ["ptr"]],
32 "CreatePropertySheetPageW" => ["long", ["ptr"]],
33 "CreateStatusWindow" => ["long", ["long", "str", "long", "long"]],
34 "CreateStatusWindowW" => ["long", ["long", "wstr", "long", "long"]],
35 "CreateToolbarEx" => ["long", ["long", "long", "long", "long", "long", "long", "ptr", "long", "long", "long", "long", "long", "long"]],
36 "DestroyPropertySheetPage" => ["long", ["long"]],
37 "DllGetVersion" => ["long", ["ptr"]],
38 "DllInstall" => ["long", ["long", "wstr"]],
39 "DrawStatusText" => ["void", ["long", "ptr", "str", "long"]],
40 "DrawStatusTextW" => ["void", ["long", "ptr", "wstr", "long"]],
41 "FlatSB_EnableScrollBar" => ["long", ["long", "long", "long"]],
42 "FlatSB_GetScrollInfo" => ["long", ["long", "long", "ptr"]],
43 "FlatSB_GetScrollPos" => ["long", ["long", "long"]],
44 "FlatSB_GetScrollProp" => ["long", ["long", "long", "ptr"]],
45 "FlatSB_GetScrollRange" => ["long", ["long", "long", "ptr", "ptr"]],
46 "FlatSB_SetScrollInfo" => ["long", ["long", "long", "ptr", "long"]],
47 "FlatSB_SetScrollPos" => ["long", ["long", "long", "long", "long"]],
48 "FlatSB_SetScrollProp" => ["long", ["long", "long", "long", "long"]],
49 "FlatSB_ShowScrollBar" => ["long", ["long", "long", "long"]],
50 "GetMUILanguage" => ["long", []],
51 "ImageList_Add" => ["long", ["long", "long", "long"]],
52 "ImageList_AddIcon" => ["long", ["long", "long"]],
53 "ImageList_AddMasked" => ["long", ["long", "long", "long"]],
54 "ImageList_BeginDrag" => ["long", ["long", "long", "long", "long"]],
55 "ImageList_Copy" => ["long", ["long", "long", "long", "long", "long"]],
56 "ImageList_Create" => ["long", ["long", "long", "long", "long", "long"]],
57 "ImageList_Destroy" => ["long", ["long"]],
58 "ImageList_DragEnter" => ["long", ["long", "long", "long"]],
59 "ImageList_DragLeave" => ["long", ["long"]],
60 "ImageList_DragMove" => ["long", ["long", "long"]],
61 "ImageList_DragShowNolock" => ["long", ["long"]],
62 "ImageList_Draw" => ["long", ["long", "long", "long", "long", "long", "long"]],
63 "ImageList_DrawEx" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long"]],
64 "ImageList_DrawIndirect" => ["long", ["ptr"]],
65 "ImageList_Duplicate" => ["long", ["long"]],
66 "ImageList_EndDrag" => ["long", []],
67 "ImageList_GetBkColor" => ["long", ["long"]],
68 "ImageList_GetDragImage" => ["long", ["ptr", "ptr"]],
69 "ImageList_GetFlags" => ["long", ["long"]],
70 "ImageList_GetIcon" => ["long", ["long", "long", "long"]],
71 "ImageList_GetIconSize" => ["long", ["long", "ptr", "ptr"]],
72 "ImageList_GetImageCount" => ["long", ["long"]],
73 "ImageList_GetImageInfo" => ["long", ["long", "long", "ptr"]],
74 "ImageList_GetImageRect" => ["long", ["long", "long", "ptr"]],
75 "ImageList_LoadImage" => ["long", ["long", "str", "long", "long", "long", "long", "long"]],
76 "ImageList_LoadImageA" => ["long", ["long", "str", "long", "long", "long", "long", "long"]],
77 "ImageList_LoadImageW" => ["long", ["long", "wstr", "long", "long", "long", "long", "long"]],
78 "ImageList_Merge" => ["long", ["long", "long", "long", "long", "long", "long"]],
79 "ImageList_Read" => ["long", ["ptr"]],
80 "ImageList_Remove" => ["long", ["long", "long"]],
81 "ImageList_Replace" => ["long", ["long", "long", "long", "long"]],
82 "Alloc" => ["ptr", ["long"]],
83 "ReAlloc" => ["ptr", ["ptr", "long"]],
84 "Free" => ["long", ["ptr"]],
85 "GetSize" => ["long", ["ptr"]],
86 "ImageList_ReplaceIcon" => ["long", ["long", "long", "long"]],
87 "ImageList_SetBkColor" => ["long", ["long", "long"]],
88 "ImageList_SetDragCursorImage" => ["long", ["long", "long", "long", "long"]],
89 "ImageList_SetFilter" => ["long", ["long", "long", "long"]],
90 "ImageList_SetFlags" => ["long", ["long", "long"]],
91 "ImageList_SetIconSize" => ["long", ["long", "long", "long"]],
92 "ImageList_SetImageCount" => ["long", ["long", "long"]],
93 "ImageList_SetOverlayImage" => ["long", ["long", "long", "long"]],
94 "ImageList_Write" => ["long", ["long", "ptr"]],
95 "InitCommonControlsEx" => ["long", ["ptr"]],
96 "InitMUILanguage" => ["void", ["long"]],
97 "InitializeFlatSB" => ["long", ["long"]],
98 "PropertySheet" => ["long", ["ptr"]],
99 "PropertySheetA" => ["long", ["ptr"]],
100 "PropertySheetW" => ["long", ["ptr"]],
101 "UninitializeFlatSB" => ["long", ["long"]],
102 "_TrackMouseEvent" => ["long", ["ptr"]],
103 "CreateMRUListA" => ["long", ["ptr"]],
104 "FreeMRUList" => ["long", ["long"]],
105 "AddMRUStringA" => ["long", ["long", "str"]],
106 "EnumMRUListA" => ["long", ["long", "long", "ptr", "long"]],
107 "FindMRUStringA" => ["long", ["long", "str", "ptr"]],
108 "DelMRUString" => ["long", ["long", "long"]],
109 "CreateMRUListLazyA" => ["long", ["ptr", "long", "long", "long"]],
110 "AddMRUData" => ["long", ["long", "ptr", "long"]],
111 "FindMRUData" => ["long", ["long", "ptr", "long", "ptr"]],
112 "Str_GetPtrA" => ["long", ["str", "str", "long"]],
113 "Str_SetPtrA" => ["long", ["ptr", "str"]],
114 "Str_GetPtrW" => ["long", ["wstr", "wstr", "long"]],
115 "Str_SetPtrW" => ["long", ["ptr", "wstr"]],
116 "DSA_Create" => ["long", ["long", "long"]],
117 "DSA_Destroy" => ["long", ["long"]],
118 "DSA_GetItem" => ["long", ["long", "long", "ptr"]],
119 "DSA_GetItemPtr" => ["ptr", ["long", "long"]],
120 "DSA_InsertItem" => ["long", ["long", "long", "ptr"]],
121 "DSA_SetItem" => ["long", ["long", "long", "ptr"]],
122 "DSA_DeleteItem" => ["long", ["long", "long"]],
123 "DSA_DeleteAllItems" => ["long", ["long"]],
124 "DPA_Create" => ["long", ["long"]],
125 "DPA_Destroy" => ["long", ["long"]],
126 "DPA_Grow" => ["long", ["long", "long"]],
127 "DPA_Clone" => ["long", ["long", "long"]],
128 "DPA_GetPtr" => ["ptr", ["long", "long"]],
129 "DPA_GetPtrIndex" => ["long", ["long", "ptr"]],
130 "DPA_InsertPtr" => ["long", ["long", "long", "ptr"]],
131 "DPA_SetPtr" => ["long", ["long", "long", "ptr"]],
132 "DPA_DeletePtr" => ["ptr", ["long", "long"]],
133 "DPA_DeleteAllPtrs" => ["long", ["long"]],
134 "DPA_Sort" => ["long", ["long", "ptr", "long"]],
135 "DPA_Search" => ["long", ["long", "ptr", "long", "ptr", "long", "long"]],
136 "DPA_CreateEx" => ["long", ["long", "long"]],
137 "SendNotify" => ["long", ["long", "long", "long", "ptr"]],
138 "SendNotifyEx" => ["long", ["long", "long", "long", "ptr", "long"]],
139 "StrChrA" => ["str", ["str", "long"]],
140 "StrRChrA" => ["str", ["str", "str", "long"]],
141 "StrCmpNA" => ["long", ["str", "str", "long"]],
142 "StrCmpNIA" => ["long", ["str", "str", "long"]],
143 "StrStrA" => ["str", ["str", "str"]],
144 "StrStrIA" => ["str", ["str", "str"]],
145 "StrCSpnA" => ["long", ["str", "str"]],
146 "StrToIntA" => ["long", ["str"]],
147 "StrChrW" => ["wstr", ["wstr", "long"]],
148 "StrRChrW" => ["wstr", ["wstr", "wstr", "long"]],
149 "StrCmpNW" => ["long", ["wstr", "wstr", "long"]],
150 "StrCmpNIW" => ["long", ["wstr", "wstr", "long"]],
151 "StrStrW" => ["wstr", ["wstr", "wstr"]],
152 "StrSpnW" => ["long", ["wstr", "wstr"]],
153 "StrToIntW" => ["long", ["wstr"]],
154 "SmoothScrollWindow" => ["long", ["ptr"]],
155 "DPA_EnumCallback" => ["void", ["long", "ptr", "long"]],
156 "DPA_DestroyCallback" => ["long", ["long", "ptr", "long"]],
157 "DSA_EnumCallback" => ["void", ["long", "ptr", "long"]],
158 "DSA_DestroyCallback" => ["long", ["long", "ptr", "long"]],
159 "CreateMRUListW" => ["long", ["ptr"]],
160 "AddMRUStringW" => ["long", ["long", "wstr"]],
161 "FindMRUStringW" => ["long", ["long", "wstr", "ptr"]],
162 "EnumMRUListW" => ["long", ["long", "long", "ptr", "long"]],
163 "CreateMRUListLazyW" => ["long", ["ptr", "long", "long", "long"]]
166 &wine::declare("comctl32",%$module_declarations);
167 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));