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