4 * Copyright 1993 David Metcalfe
5 * 1994 Alexandre Julliard
17 static HWND32 hwndFocus
= 0;
19 /*****************************************************************
23 * Explicit colormap management seems to work only with OLVWM.
25 void FOCUS_SetXFocus( HWND32 hwnd
)
27 XWindowAttributes win_attr
;
30 /* Only mess with the X focus if there's */
31 /* no desktop window and no window manager. */
32 if ((rootWindow
!= DefaultRootWindow(display
)) || Options
.managed
) return;
34 if (!hwnd
) /* If setting the focus to 0, uninstall the colormap */
36 if (COLOR_GetSystemPaletteFlags() & COLOR_PRIVATE
)
37 TSXUninstallColormap( display
, COLOR_GetColormap() );
41 /* Set X focus and install colormap */
43 if (!(win
= WIN_GetXWindow( hwnd
))) return;
44 if (!TSXGetWindowAttributes( display
, win
, &win_attr
) ||
45 (win_attr
.map_state
!= IsViewable
))
46 return; /* If window is not viewable, don't change anything */
48 TSXSetInputFocus( display
, win
, RevertToParent
, CurrentTime
);
49 if (COLOR_GetSystemPaletteFlags() & COLOR_PRIVATE
)
50 TSXInstallColormap( display
, COLOR_GetColormap() );
55 /*****************************************************************
58 void FOCUS_SwitchFocus( HWND32 hFocusFrom
, HWND32 hFocusTo
)
63 if (hFocusFrom
) SendMessage32A( hFocusFrom
, WM_KILLFOCUS
, hFocusTo
, 0 );
65 /* FIXME: must be SendMessage16() because 32A doesn't do
66 * intertask at this time */
67 if (hFocusFrom
) SendMessage16( hFocusFrom
, WM_KILLFOCUS
, hFocusTo
, 0 );
69 if( !hFocusTo
|| hFocusTo
!= hwndFocus
)
72 /* According to API docs, the WM_SETFOCUS message is sent AFTER the window
73 has received the keyboard focus. */
74 FOCUS_SetXFocus( hFocusTo
);
77 SendMessage32A( hFocusTo
, WM_SETFOCUS
, hFocusFrom
, 0 );
79 SendMessage16( hFocusTo
, WM_SETFOCUS
, hFocusFrom
, 0 );
84 /*****************************************************************
85 * SetFocus16 (USER.22)
87 HWND16 WINAPI
SetFocus16( HWND16 hwnd
)
89 return (HWND16
)SetFocus32( hwnd
);
93 /*****************************************************************
94 * SetFocus32 (USER32.481)
96 HWND32 WINAPI
SetFocus32( HWND32 hwnd
)
98 HWND32 hWndPrevFocus
, hwndTop
= hwnd
;
99 WND
*wndPtr
= WIN_FindWndPtr( hwnd
);
103 /* Check if we can set the focus to this window */
105 while ( (wndPtr
->dwStyle
& (WS_CHILD
| WS_POPUP
)) == WS_CHILD
)
107 if ( wndPtr
->dwStyle
& ( WS_MINIMIZE
| WS_DISABLED
) )
109 if (!(wndPtr
= wndPtr
->parent
)) return 0;
110 hwndTop
= wndPtr
->hwndSelf
;
113 if( hwnd
== hwndFocus
) return hwnd
;
116 if( HOOK_CallHooks16( WH_CBT
, HCBT_SETFOCUS
, (WPARAM16
)hwnd
,
120 /* activate hwndTop if needed. */
121 if (hwndTop
!= GetActiveWindow32())
123 if (!WINPOS_SetActiveWindow(hwndTop
, 0, 0)) return 0;
125 if (!IsWindow32( hwnd
)) return 0; /* Abort if window destroyed */
128 else if( HOOK_CallHooks16( WH_CBT
, HCBT_SETFOCUS
, 0, (LPARAM
)hwndFocus
) )
131 /* Change focus and send messages */
132 hWndPrevFocus
= hwndFocus
;
134 FOCUS_SwitchFocus( hwndFocus
, hwnd
);
136 return hWndPrevFocus
;
140 /*****************************************************************
141 * GetFocus16 (USER.23)
143 HWND16 WINAPI
GetFocus16(void)
145 return (HWND16
)hwndFocus
;
149 /*****************************************************************
150 * GetFocus32 (USER32.240)
152 HWND32 WINAPI
GetFocus32(void)