Added regedit unit test, a couple minor changes to regedit.
[wine] / programs / winetest / include / comctl32.pm
1 package comctl32;
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     "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"]]
164 };
165
166 &wine::declare("comctl32",%$module_declarations);
167 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
168 1;