4 * Copyright 1995, 1996, 2001 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26 #include "wine/winuser16.h"
27 #include "wine/server.h"
30 /* size of buffer needed to store an atom string */
31 #define ATOM_BUFFER_SIZE 256
33 /* ### start build ### */
34 extern WORD CALLBACK PROP_CallTo16_word_wlw(PROPENUMPROC16,WORD,LONG,WORD);
35 /* ### stop build ### */
37 /***********************************************************************
40 * Retrieve the list of properties of a given window.
41 * Returned buffer must be freed by caller.
43 static property_data_t *get_properties( HWND hwnd, int *count )
45 property_data_t *data;
51 if (!(data = HeapAlloc( GetProcessHeap(), 0, total * sizeof(*data) ))) break;
53 SERVER_START_REQ( get_window_properties )
56 wine_server_add_data( req, data, total * sizeof(*data) );
57 if (!wine_server_call( req )) res = reply->total;
60 if (res && res <= total)
65 HeapFree( GetProcessHeap(), 0, data );
66 total = res; /* restart with larger buffer */
72 /***********************************************************************
75 * relay to call the EnumProps callback function from EnumPropsEx
77 static BOOL CALLBACK EnumPropsA_relay( HWND hwnd, LPCSTR str, HANDLE handle, ULONG_PTR lparam )
79 PROPENUMPROCA func = (PROPENUMPROCA)lparam;
80 return func( hwnd, str, handle );
84 /***********************************************************************
87 * relay to call the EnumProps callback function from EnumPropsEx
89 static BOOL CALLBACK EnumPropsW_relay( HWND hwnd, LPCWSTR str, HANDLE handle, ULONG_PTR lparam )
91 PROPENUMPROCW func = (PROPENUMPROCW)lparam;
92 return func( hwnd, str, handle );
96 /***********************************************************************
97 * EnumPropsA (USER32.@)
99 INT WINAPI EnumPropsA( HWND hwnd, PROPENUMPROCA func )
101 return EnumPropsExA( hwnd, EnumPropsA_relay, (LPARAM)func );
105 /***********************************************************************
106 * EnumPropsW (USER32.@)
108 INT WINAPI EnumPropsW( HWND hwnd, PROPENUMPROCW func )
110 return EnumPropsExW( hwnd, EnumPropsW_relay, (LPARAM)func );
114 /***********************************************************************
115 * GetPropA (USER32.@)
117 HANDLE WINAPI GetPropA( HWND hwnd, LPCSTR str )
122 if (!HIWORD(str)) atom = LOWORD(str);
123 else if (!(atom = GlobalFindAtomA( str ))) return 0;
125 SERVER_START_REQ( get_window_property )
129 if (!wine_server_call_err( req )) ret = reply->handle;
136 /***********************************************************************
137 * GetPropW (USER32.@)
139 HANDLE WINAPI GetPropW( HWND hwnd, LPCWSTR str )
144 if (!HIWORD(str)) atom = LOWORD(str);
145 else if (!(atom = GlobalFindAtomW( str ))) return 0;
147 SERVER_START_REQ( get_window_property )
151 if (!wine_server_call_err( req )) ret = reply->handle;
158 /***********************************************************************
159 * SetPropA (USER32.@)
161 BOOL WINAPI SetPropA( HWND hwnd, LPCSTR str, HANDLE handle )
166 if (!HIWORD(str)) atom = LOWORD(str);
167 else if (!(atom = GlobalAddAtomA( str ))) return FALSE;
169 SERVER_START_REQ( set_window_property )
173 req->string = (HIWORD(str) != 0);
174 req->handle = handle;
175 ret = !wine_server_call_err( req );
179 if (HIWORD(str)) GlobalDeleteAtom( atom );
184 /***********************************************************************
185 * SetPropW (USER32.@)
187 BOOL WINAPI SetPropW( HWND hwnd, LPCWSTR str, HANDLE handle )
192 if (!HIWORD(str)) atom = LOWORD(str);
193 else if (!(atom = GlobalAddAtomW( str ))) return FALSE;
195 SERVER_START_REQ( set_window_property )
199 req->string = (HIWORD(str) != 0);
200 req->handle = handle;
201 ret = !wine_server_call_err( req );
205 if (HIWORD(str)) GlobalDeleteAtom( atom );
210 /***********************************************************************
211 * RemovePropA (USER32.@)
213 HANDLE WINAPI RemovePropA( HWND hwnd, LPCSTR str )
218 if (!HIWORD(str)) return RemovePropW( hwnd, MAKEINTATOMW(LOWORD(str)) );
220 if ((atom = GlobalAddAtomA( str )))
222 ret = RemovePropW( hwnd, MAKEINTATOMW(atom) );
223 GlobalDeleteAtom( atom );
229 /***********************************************************************
230 * RemovePropW (USER32.@)
232 HANDLE WINAPI RemovePropW( HWND hwnd, LPCWSTR str )
237 if (!HIWORD(str)) atom = LOWORD(str);
238 else if (!(atom = GlobalAddAtomW( str ))) return 0;
240 SERVER_START_REQ( remove_window_property )
244 if (!wine_server_call_err( req )) ret = reply->handle;
248 if (HIWORD(str)) GlobalDeleteAtom( atom );
253 /***********************************************************************
254 * EnumPropsExA (USER32.@)
256 INT WINAPI EnumPropsExA(HWND hwnd, PROPENUMPROCEXA func, LPARAM lParam)
258 int ret = -1, i, count;
259 property_data_t *list = get_properties( hwnd, &count );
263 for (i = 0; i < count; i++)
265 char string[ATOM_BUFFER_SIZE];
266 if (!GlobalGetAtomNameA( list[i].atom, string, ATOM_BUFFER_SIZE )) continue;
267 if (!(ret = func( hwnd, string, list[i].handle, lParam ))) break;
269 HeapFree( GetProcessHeap(), 0, list );
275 /***********************************************************************
276 * EnumPropsExW (USER32.@)
278 INT WINAPI EnumPropsExW(HWND hwnd, PROPENUMPROCEXW func, LPARAM lParam)
280 int ret = -1, i, count;
281 property_data_t *list = get_properties( hwnd, &count );
285 for (i = 0; i < count; i++)
287 WCHAR string[ATOM_BUFFER_SIZE];
288 if (!GlobalGetAtomNameW( list[i].atom, string, ATOM_BUFFER_SIZE )) continue;
289 if (!(ret = func( hwnd, string, list[i].handle, lParam ))) break;
291 HeapFree( GetProcessHeap(), 0, list );
297 /***********************************************************************
298 * EnumProps (USER.27)
300 INT16 WINAPI EnumProps16( HWND16 hwnd, PROPENUMPROC16 func )
302 int ret = -1, i, count;
303 property_data_t *list = get_properties( HWND_32(hwnd), &count );
307 char string[ATOM_BUFFER_SIZE];
308 SEGPTR segptr = MapLS( string );
309 for (i = 0; i < count; i++)
311 if (list[i].string) /* it was a string originally */
313 if (!GlobalGetAtomNameA( list[i].atom, string, ATOM_BUFFER_SIZE )) continue;
314 ret = PROP_CallTo16_word_wlw( func, hwnd, segptr, LOWORD(list[i].handle) );
317 ret = PROP_CallTo16_word_wlw( func, hwnd, list[i].atom, LOWORD(list[i].handle) );
321 HeapFree( GetProcessHeap(), 0, list );