NAME
OS2::Focus - Perl extension to get and set focus on PM windows.
SYNOPSIS
use OS2::Focus ':short';
$old_focus = QueryFocus;
... # Say, create some Tk windows...
SetFocus($old_focus) or warn "Cannot change focus, the error is $^E.\n".
DESCRIPTION
EXPORT
None by default.
Exportable constants
HWND_DESKTOP
is exported with a tag :win
.
Exportable functions
See PMREF
documentation for the following functions:
BOOL WinFocusChange (HWND hwndDesktop, HWND hwndSetFocus, ULONG flFocusChange)
HWND WinQueryFocus (HWND hwndDesktop)
BOOL WinSetFocus (HWND hwndDesktop, HWND hwndSetFocus)
which are exported with a tag :win
. Use HWND_DESKTOP
(exported with the same tag) as the first argument for these functions.
Prefix Win
can be removed, the resulted functions omit the first argument, and fill $! and $^E on error. These functions are exported with a tag :short
.
AUTHOR
Ilya Zakharevich, ilya@math.ohio-state.edu.
SEE ALSO
perl(1).