source: trunk/src/user32/oslibmsg.cpp@ 2533

Last change on this file since 2533 was 2533, checked in by sandervl, 26 years ago

fixed fs corruption; send WM_CHILDACTIVATE to child windows
File size: 15.3 KB
Line 
1/* $Id: oslibmsg.cpp,v 1.27 2000-01-27 21:50:01 sandervl Exp $ */
2/*
3 * Window message translation functions for OS/2
4 *
5 *
6 * Copyright 1999 Sander van Leeuwen (sandervl@xs4all.nl)
7 *
8 *
9 * Project Odin Software License can be found in LICENSE.TXT
10 *
11 * TODO: Some messages that are sent to the frame window are directly passed on to the client
12 * -> Get/PeekMessage never gets them as we return a dummy message for non-client windows
13 * (i.e. menu WM_COMMAND messages)
14 *
15 * TODO: Filter translation isn't correct! (for posted messages or messages that don't have
16 * a PM version.
17 *
18 */
19#define INCL_WIN
20#define INCL_PM
21#define INCL_DOSPROCESS
22#include <os2.h>
23#include <os2wrap.h>
24#include <string.h>
25#include <misc.h>
26#include "oslibmsg.h"
27#include <win32wnd.h>
28#include "oslibutil.h"
29#include "timer.h"
30#include <thread.h>
31#include <wprocess.h>
32#include "pmwindow.h"
33#include "oslibwin.h"
34
35typedef BOOL (EXPENTRY FNTRANS)(MSG *, QMSG *);
36typedef FNTRANS *PFNTRANS;
37
38typedef struct
39{
40 ULONG msgOS2;
41 ULONG msgWin32;
42// PFNTRANS toOS2;
43// PFNTRANS toWIN32;
44} MSGTRANSTAB, *PMSGTRANSTAB;
45
46//NOTE: Must be ordered by win32 message id!!
47MSGTRANSTAB MsgTransTab[] = {
48 WM_NULL, WINWM_NULL,
49 WM_CREATE, WINWM_CREATE,
50 WM_DESTROY, WINWM_DESTROY,
51 WM_MOVE, WINWM_MOVE, //TODO: Sent directly
52 WM_SIZE, WINWM_SIZE, //TODO: Sent directly
53 WM_ACTIVATE, WINWM_ACTIVATE,
54 WM_SETFOCUS, WINWM_SETFOCUS,
55 WM_SETFOCUS, WINWM_KILLFOCUS,
56 WM_ENABLE, WINWM_ENABLE,
57 WM_PAINT, WINWM_PAINT,
58 WM_CLOSE, WINWM_CLOSE,
59 WM_QUIT, WINWM_QUIT,
60 WM_SHOW, WINWM_SHOWWINDOW,
61
62 WM_HITTEST, WINWM_NCHITTEST,
63
64 //TODO: Needs better translation!
65 WM_CHAR, WINWM_KEYDOWN,
66 WM_CHAR, WINWM_KEYUP,
67 WM_CHAR, WINWM_CHAR,
68 WM_CHAR, WINWM_DEADCHAR,
69 WM_CHAR, WINWM_SYSKEYDOWN,
70 WM_CHAR, WINWM_SYSKEYUP,
71 WM_CHAR, WINWM_SYSCHAR,
72 WM_CHAR, WINWM_SYSDEADCHAR,
73 WM_CHAR, WINWM_KEYLAST,
74
75 WM_COMMAND, WINWM_COMMAND,
76 WM_SYSCOMMAND, WINWM_SYSCOMMAND,
77 //
78 WM_TIMER, WINWM_TIMER,
79 WM_INITMENU, WINWM_INITMENU,
80 //
81 WM_MOUSEMOVE, WINWM_MOUSEMOVE,
82 WM_BUTTON1DOWN, WINWM_LBUTTONDOWN,
83 WM_BUTTON1UP, WINWM_LBUTTONUP,
84 WM_BUTTON1DBLCLK, WINWM_LBUTTONDBLCLK,
85 WM_BUTTON2DOWN, WINWM_RBUTTONDOWN,
86 WM_BUTTON2UP, WINWM_RBUTTONUP,
87 WM_BUTTON2DBLCLK, WINWM_RBUTTONDBLCLK,
88 WM_BUTTON3DOWN, WINWM_MBUTTONDOWN,
89 WM_BUTTON3UP, WINWM_MBUTTONUP,
90 WM_BUTTON3DBLCLK, WINWM_MBUTTONDBLCLK,
91
92 999999999, 999999999,
93};
94#define MAX_MSGTRANSTAB (sizeof(MsgTransTab)/sizeof(MsgTransTab[0]))
95
96QMSG *MsgThreadPtr = 0;
97
98LRESULT WIN32API SendMessageA(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam);
99
100//******************************************************************************
101//******************************************************************************
102BOOL OSLibInitMsgQueue()
103{
104 if(DosAllocThreadLocalMemory(sizeof(QMSG)/sizeof(ULONG), (PULONG *)&MsgThreadPtr) != 0)
105 {
106 dprintf(("OSLibInitMsgQueue: local thread memory alloc failed!!"));
107 DebugInt3();
108 return FALSE;
109 }
110 return TRUE;
111}
112//******************************************************************************
113//******************************************************************************
114void WinToOS2MsgTranslate(MSG *winMsg, QMSG *os2Msg, BOOL isUnicode)
115{
116// memcpy(os2Msg, winMsg, sizeof(MSG));
117// os2Msg->hwnd = Win32Window::Win32ToOS2Handle(winMsg->hwnd);
118// os2Msg->reserved = 0;
119}
120//******************************************************************************
121//TODO: NOT COMPLETE nor 100% CORRECT!!!
122//If both the minimum & maximum message are unknown, the result can be wrong (max > min)!
123//******************************************************************************
124ULONG TranslateWinMsg(ULONG msg, BOOL fMinFilter)
125{
126 if(msg == 0)
127 return 0;
128
129 if(msg >= WINWM_USER)
130 return WIN32APP_POSTMSG;
131
132 for(int i=0;i<MAX_MSGTRANSTAB;i++)
133 {
134 if(fMinFilter && MsgTransTab[i].msgWin32 >= msg) {
135 return MsgTransTab[i].msgOS2;
136 }
137 else
138 if(!fMinFilter && MsgTransTab[i].msgWin32 >= msg) {
139 if(MsgTransTab[i].msgWin32 == msg)
140 return MsgTransTab[i].msgOS2;
141 else return MsgTransTab[i-1].msgOS2;
142 }
143 }
144
145 return 0;
146}
147//******************************************************************************
148//******************************************************************************
149void OSLibWinPostQuitMessage(ULONG nExitCode)
150{
151 APIRET rc;
152
153 rc = WinPostQueueMsg(NULLHANDLE, WM_QUIT, MPFROMLONG(nExitCode), 0);
154 dprintf(("WinPostQueueMsg %d returned %d", nExitCode, rc));
155}
156//******************************************************************************
157//******************************************************************************
158LONG OSLibWinDispatchMsg(MSG *msg, BOOL isUnicode)
159{
160 THDB *thdb;
161 QMSG os2msg;
162 LONG rc;
163
164 thdb = GetThreadTHDB();
165 if(thdb == NULL) {
166 DebugInt3();
167 return FALSE;
168 }
169
170 //TODO: What to do if app changed msg? (translate)
171 // WinToOS2MsgTranslate(msg, &qmsg, isUnicode);
172
173 if(msg->time == MsgThreadPtr->time || msg->hwnd == 0) {
174 memcpy(&os2msg, MsgThreadPtr, sizeof(QMSG));
175 MsgThreadPtr->time = -1;
176 if(msg->hwnd) {
177 thdb->nrOfMsgs = 1;
178 thdb->msgstate++; //odd -> next call to our PM window handler should dispatch the translated msg
179 memcpy(&thdb->msg, msg, sizeof(MSG));
180 }
181 if(os2msg.hwnd || os2msg.msg == WM_QUIT) {
182 return (LONG)WinDispatchMsg(thdb->hab, &os2msg);
183 }
184 //SvL: Don't dispatch messages sent by PostThreadMessage (correct??)
185 // Or WM_TIMER msgs with no window handle or timer proc
186 return 0;
187
188 }
189 else {//is this allowed?
190// dprintf(("WARNING: OSLibWinDispatchMsg: called with own message!"));
191 return SendMessageA(msg->hwnd, msg->message, msg->wParam, msg->lParam);
192 }
193}
194//******************************************************************************
195//******************************************************************************
196BOOL OSLibWinGetMsg(LPMSG pMsg, HWND hwnd, UINT uMsgFilterMin, UINT uMsgFilterMax,
197 BOOL isUnicode)
198{
199 BOOL rc, eaten;
200 THDB *thdb;
201 QMSG os2msg;
202
203 thdb = GetThreadTHDB();
204 if(thdb == NULL) {
205 DebugInt3();
206 return FALSE;
207 }
208
209 if(thdb->fTranslated && (!hwnd || hwnd == thdb->msgWCHAR.hwnd)) {
210 if(uMsgFilterMin) {
211 if(thdb->msgWCHAR.message < uMsgFilterMin)
212 goto continuegetmsg;
213 }
214 if(uMsgFilterMax) {
215 if(thdb->msgWCHAR.message > uMsgFilterMax)
216 goto continuegetmsg;
217 }
218 thdb->fTranslated = FALSE;
219 memcpy(pMsg, &thdb->msgWCHAR, sizeof(MSG));
220 MsgThreadPtr->msg = 0;
221 MsgThreadPtr->hwnd = 0;
222 return (pMsg->message != WINWM_QUIT);
223 }
224
225continuegetmsg:
226 if(hwnd) {
227 do {
228 WinWaitMsg(thdb->hab, TranslateWinMsg(uMsgFilterMin, TRUE), TranslateWinMsg(uMsgFilterMax, FALSE));
229 rc = OSLibWinPeekMsg(pMsg, hwnd, uMsgFilterMin, uMsgFilterMax, PM_REMOVE_W, isUnicode);
230 }
231 while(rc == FALSE);
232
233 return (pMsg->message != WINWM_QUIT);
234 }
235 else
236 {
237 do {
238 eaten = FALSE;
239 rc = WinGetMsg(thdb->hab, &os2msg, TranslateWinMsg(uMsgFilterMin, TRUE), TranslateWinMsg(uMsgFilterMax, FALSE), 0);
240 if (os2msg.msg == WM_TIMER)
241 eaten = TIMER_HandleTimer(&os2msg);
242 } while (eaten);
243 }
244
245 OS2ToWinMsgTranslate((PVOID)thdb, &os2msg, pMsg, isUnicode, MSG_REMOVE);
246 memcpy(MsgThreadPtr, &os2msg, sizeof(QMSG));
247 return rc;
248}
249//******************************************************************************
250//PeekMessage retrieves only messages associated with the window identified by the
251//hwnd parameter or any of its children as specified by the IsChild function, and within
252//the range of message values given by the uMsgFilterMin and uMsgFilterMax
253//parameters. If hwnd is NULL, PeekMessage retrieves messages for any window that
254//belongs to the current thread making the call. (PeekMessage does not retrieve
255//messages for windows that belong to other threads.) If hwnd is -1, PeekMessage only
256//returns messages with a hwnd value of NULL, as posted by the PostAppMessage
257//function. If uMsgFilterMin and uMsgFilterMax are both zero, PeekMessage returns all
258//available messages (no range filtering is performed).
259//TODO: Not working as specified right now!
260//******************************************************************************
261BOOL OSLibWinPeekMsg(LPMSG pMsg, HWND hwnd, UINT uMsgFilterMin, UINT uMsgFilterMax,
262 DWORD fRemove, BOOL isUnicode)
263{
264 BOOL rc, eaten;
265 THDB *thdb;
266 QMSG os2msg;
267
268 thdb = GetThreadTHDB();
269 if(thdb == NULL) {
270 DebugInt3();
271 return FALSE;
272 }
273
274 if(thdb->fTranslated && (!hwnd || hwnd == thdb->msgWCHAR.hwnd)) {
275 if(uMsgFilterMin) {
276 if(thdb->msgWCHAR.message < uMsgFilterMin)
277 goto continuepeekmsg;
278 }
279 if(uMsgFilterMax) {
280 if(thdb->msgWCHAR.message > uMsgFilterMax)
281 goto continuepeekmsg;
282 }
283
284 if(fRemove & PM_REMOVE_W) {
285 thdb->fTranslated = FALSE;
286 MsgThreadPtr->msg = 0;
287 MsgThreadPtr->hwnd = 0;
288 }
289 memcpy(pMsg, &thdb->msgWCHAR, sizeof(MSG));
290 return TRUE;
291 }
292
293continuepeekmsg:
294 do {
295 eaten = FALSE;
296 rc = WinPeekMsg(thdb->hab, &os2msg, Win32BaseWindow::OS2ToWin32Handle(hwnd), TranslateWinMsg(uMsgFilterMin, TRUE),
297 TranslateWinMsg(uMsgFilterMax, FALSE), (fRemove & PM_REMOVE_W) ? PM_REMOVE : PM_NOREMOVE);
298
299 if (rc && (fRemove & PM_REMOVE_W) && os2msg.msg == WM_TIMER) {
300 eaten = TIMER_HandleTimer(&os2msg);
301 }
302 }
303 while (eaten && rc);
304
305 if(rc == FALSE) {
306 return FALSE;
307 }
308
309 OS2ToWinMsgTranslate((PVOID)thdb, &os2msg, pMsg, isUnicode, (fRemove & PM_REMOVE_W) ? MSG_REMOVE : MSG_NOREMOVE);
310 //TODO: This is not safe! There's no guarantee this message will be dispatched and it might overwrite a previous message
311 if(fRemove & PM_REMOVE_W) {
312 memcpy(MsgThreadPtr, &os2msg, sizeof(QMSG));
313 }
314 return rc;
315}
316//******************************************************************************
317//******************************************************************************
318ULONG OSLibWinQueryMsgTime()
319{
320 return WinQueryMsgTime(GetThreadHAB());
321}
322//******************************************************************************
323//******************************************************************************
324BOOL OSLibWinWaitMessage()
325{
326 return WinWaitMsg(GetThreadHAB(), 0, 0);
327}
328//******************************************************************************
329//TODO: QS_HOTKEY
330//******************************************************************************
331ULONG OSLibWinQueryQueueStatus()
332{
333 ULONG statusOS2, statusWin32 = 0;
334
335 statusOS2 = WinQueryQueueStatus(HWND_DESKTOP);
336
337 if(statusOS2 & QS_KEY)
338 statusWin32 |= QS_KEY_W;
339 if(statusOS2 & QS_MOUSEBUTTON)
340 statusWin32 |= QS_MOUSEBUTTON_W;
341 if(statusOS2 & QS_MOUSEMOVE)
342 statusWin32 |= QS_MOUSEMOVE_W;
343 if(statusOS2 & QS_TIMER)
344 statusWin32 |= QS_TIMER_W;
345 if(statusOS2 & QS_PAINT)
346 statusWin32 |= QS_PAINT_W;
347 if(statusOS2 & QS_POSTMSG)
348 statusWin32 |= QS_POSTMESSAGE_W;
349 if(statusOS2 & QS_SENDMSG)
350 statusWin32 |= QS_SENDMESSAGE_W;
351
352 return statusWin32;
353}
354//******************************************************************************
355//******************************************************************************
356BOOL OSLibWinInSendMessage()
357{
358 return WinInSendMsg(GetThreadHAB());
359}
360//******************************************************************************
361//******************************************************************************
362DWORD OSLibWinGetMessagePos()
363{
364 APIRET rc;
365 POINTL ptl;
366
367 rc = WinQueryMsgPos(GetThreadHAB(), &ptl);
368 if(!rc) {
369 return 0;
370 }
371 //convert to windows coordinates
372 return MAKEULONG(ptl.x,mapScreenY(ptl.y));
373}
374//******************************************************************************
375//******************************************************************************
376LONG OSLibWinGetMessageTime()
377{
378 return (LONG)WinQueryMsgTime(GetThreadHAB());
379}
380//******************************************************************************
381//******************************************************************************
382BOOL OSLibWinReplyMessage(ULONG result)
383{
384 return (BOOL)WinReplyMsg( NULLHANDLE, NULLHANDLE, HMQ_CURRENT, (MRESULT)result);
385}
386//******************************************************************************
387//******************************************************************************
388ULONG OSLibSendMessage(HWND hwnd, ULONG msg, ULONG wParam, ULONG lParam, BOOL fUnicode)
389{
390 POSTMSG_PACKET *packet = (POSTMSG_PACKET *)_smalloc(sizeof(POSTMSG_PACKET));
391
392 packet->Msg = msg;
393 packet->wParam = wParam;
394 packet->lParam = lParam;
395
396 return (ULONG)WinSendMsg(hwnd, WIN32APP_POSTMSG, (MPARAM)((fUnicode) ? WIN32MSG_MAGICW : WIN32MSG_MAGICA), (MPARAM)packet);
397}
398//******************************************************************************
399//******************************************************************************
400ULONG OSLibWinBroadcastMsg(ULONG msg, ULONG wParam, ULONG lParam, BOOL fSend)
401{
402 return WinBroadcastMsg(HWND_DESKTOP, msg, (MPARAM)wParam, (MPARAM)lParam,
403 (fSend) ? BMSG_SEND : BMSG_POST);
404}
405//******************************************************************************
406//******************************************************************************
407BOOL OSLibPostMessage(HWND hwnd, ULONG msg, ULONG wParam, ULONG lParam, BOOL fUnicode)
408{
409 POSTMSG_PACKET *packet = (POSTMSG_PACKET *)_smalloc(sizeof(POSTMSG_PACKET));
410
411 packet->Msg = msg;
412 packet->wParam = wParam;
413 packet->lParam = lParam;
414 return WinPostMsg(hwnd, WIN32APP_POSTMSG, (MPARAM)((fUnicode) ? WIN32MSG_MAGICW : WIN32MSG_MAGICA), (MPARAM)packet);
415}
416//******************************************************************************
417BOOL _System _O32_PostThreadMessage( DWORD, UINT, WPARAM, LPARAM );
418
419inline BOOL O32_PostThreadMessage(DWORD a, UINT b, WPARAM c, LPARAM d)
420{
421 BOOL yyrc;
422 USHORT sel = RestoreOS2FS();
423
424 yyrc = _O32_PostThreadMessage(a, b, c, d);
425 SetFS(sel);
426
427 return yyrc;
428}
429//******************************************************************************
430BOOL OSLibPostThreadMessage(ULONG threadid, UINT msg, WPARAM wParam, LPARAM lParam, BOOL fUnicode)
431{
432// THDB *thdb = GetTHDBFromThreadId(threadid);
433 POSTMSG_PACKET *packet = (POSTMSG_PACKET *)_smalloc(sizeof(POSTMSG_PACKET));
434
435// if(thdb == NULL) {
436// dprintf(("OSLibPostThreadMessage: thread %x not found!", threadid));
437// return FALSE;
438// }
439 dprintf(("PostThreadMessageA %x %x %x %x", threadid, msg, wParam, lParam));
440 packet->Msg = msg;
441 packet->wParam = wParam;
442 packet->lParam = lParam;
443 return O32_PostThreadMessage(threadid, WIN32APP_POSTMSG-OPEN32_MSGDIFF, ((fUnicode) ? WIN32MSG_MAGICW : WIN32MSG_MAGICA), (LPARAM)packet);
444}
445//******************************************************************************
446//******************************************************************************
447
Note: See TracBrowser for help on using the repository browser.