:: handle-app-command ( hWnd uMsg wParam lParam -- )
    lParam hi-word HEX: fff bitand zero?
    {
        [ 1 = ] [ hWnd window left-action send-action ]
        [ 2 = ] [ hWnd window right-action send-action ]
    } cond ;