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
);