Function Dia_Handler

outdated/win/gem/wingem1.c:3025–3056

(xev)

#define Dia_Init K_Init

int
Dia_Handler(xev)
XEVENT *xev;
{
    int ev = xev->ev_mwich;
    char ch = (char) (xev->ev_mkreturn & 0x00FF);

    if (ev & MU_KEYBD) {
        WIN *w;
        DIAINFO *dinf;

        switch (ch) {
        case 's':
            send_key((int) (mar_iflags_numpad() ? '5' : '.'));
            break;
        case '.':
            send_key('5'); /* MAR -- '.' is a button if numpad isn't set */
            break;
        case '\033': /*ESC*/
            if ((w = get_top_window()) && (dinf = (DIAINFO *) w->dialog)
                && dinf->di_tree == zz_oblist[DIRECTION]) {
                my_close_dialog(dinf, FALSE);
                break;
            }
        /* Fall thru */
        default:
            ev &= ~MU_KEYBD; /* let the dialog handle it */
            break;
        }
    }
    return (ev);
}

int
mar_ask_direction()