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