windows.c

#include "aralu.h"

/* Handle the windows stuff */

void create_windows()
{
/* smg$create_pasteboard(&pb); */
/* smg$create_virtual_keyboard(&kboard); */
/* smg$set_cursor_mode(&pb,&SMG$M_SCROLL_JUMP); */
/* smg$create_virtual_display(&10,&37,&dsp_status,&SMG$M_BORDER); */
/* smg$create_virtual_display(&10,&37,&dsp_inven,&SMG$M_BORDER); */
/* smg$create_virtual_display(&10,&78,&dsp_command,&SMG$M_BORDER); */
/* smg$create_virtual_display(&21,&78,&dsp_help,&SMG$M_BORDER); */
/* smg$create_virtual_display(&MAXROWS,&MAXCOLS,&dsp_main,&SMG$M_BORDER); */
/* smg$create_viewport(&dsp_main,&1,&1,&10,&40); */
/* smg$set_keypad_mode(&kboard,&SMG$M_KEYPAD_APPLICATION); */
    dsp_status = newwin(11, 37, 1, 43);
    dsp_inven = newwin(11, 37, 1, 43);
    dsp_command = newwin(10, 78, 13, 2);
    dsp_help = newwin(22, 78, 0, 0);
    dsp_main = newwin(MAXROWS, MAXCOLS, 0, 0);
    dsp_viewport = derwin(dsp_main, 10, 40, 1, 1);
}

void put_windows()
{
    wrefresh(dsp_status);
    wrefresh(dsp_viewport);
    wrefresh(dsp_command);
}

void delete_windows()
{
    delwin(dsp_status);
    delwin(dsp_inven);
    delwin(dsp_command);
    delwin(dsp_help);
    delwin(dsp_main);
    delwin(dsp_viewport);
}

void redraw_windows()
{
    redrawwin(dsp_status);
    redrawwin(dsp_viewport);
    redrawwin(dsp_command);
}

void prt_in_disp( display, message, y, x)
WINDOW *display;
int y, x;
char *message;
{
    if (y < 1) y = 1; /* FIXME coordinates start at 1 not 0 on the old system */
    if (x < 1) x = 1;
    mvwprintw(display, y, x - 1, "%s", message);
    touchwin(display);
    wrefresh(display);
}

void prt_msg( message)
char *message;
{
    wprintw(dsp_command, "%s\n", message);
    wrefresh(dsp_command);
}

void prt_char( ch, row, col)
char ch;
int row, col;
{
if ( ch == KEY)
    mvwaddch(dsp_main, row, col, ch | A_BOLD | A_BLINK);
else if ( ch == '*')
    mvwaddch(dsp_main, row, col, ch | A_BOLD);
else
    mvwaddch(dsp_main, row, col, ch);
}

void change_viewport(int rowoff, int coloff)
{
    if (rowoff) {
        if (rowoff - SCRATIOV > 0) {
            if (rowoff + SCRATIOV >= MAXROWS) {
                rowoff = MAXROWS - 10;
            } else {
                rowoff -= SCRATIOV;
            }
        } else {
            rowoff = 0;
        }
    }

    if (coloff) {
        if (coloff - SCRATIOH > 0) {
            if (coloff + SCRATIOH + 5 >= MAXCOLS) {
                coloff = MAXCOLS - 40;
            } else {
                coloff -= SCRATIOH;
            }
        } else {
            coloff = 0;
        }
    }

    if (rowoff && !coloff) {
        mvderwin(dsp_viewport, rowoff, 0);
    } else if (!rowoff && coloff) {
        mvderwin(dsp_viewport, 0, coloff);
    } else {
        mvderwin(dsp_viewport, rowoff, coloff);
    }
}