Return to dialbox.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / bin / vsh / winlib

Annotation of coherent/g/usr/bin/vsh/winlib/dialbox.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *      Create a dialog box and edit the fields
                      3:  *
                      4:  *      Copyright (c) 1991-93 Udo Munk
                      5:  */
                      6: 
                      7: #ifdef AIX
                      8: #define NLS
                      9: #endif
                     10: 
                     11: #include <curses.h>
                     12: #include <string.h>
                     13: #include "winfun.h"     
                     14: 
                     15: extern WINDOW *open_window();
                     16: extern int close_window();
                     17: extern int tab_active;
                     18: 
                     19: dialog_box(bp)
                     20: struct dial *bp;
                     21: {
                     22:        register WINDOW *w;
                     23:        register int i, j;
                     24:        int bw, bh, ret;
                     25:        int active = 0;
                     26:        int eoj = 1;
                     27: 
                     28:        bh = bp->d_anz * 2 + 3;         /* compute high of box */
                     29:        bw = strlen(bp->d_text) + 2;    /* compute width of box */
                     30:        for (i = 0; i < bp->d_anz; i++) {
                     31:                j = bp->d_ptr[i]->e_len + strlen(bp->d_ptr[i]->e_text) + 3;
                     32:                if (j > bw)
                     33:                        bw = j;
                     34:        }
                     35: 
                     36:        if ((w = open_window(bh, bw, (LINES-bh)/2, (COLS-bw)/2)) == (WINDOW *) 0)
                     37:                nomem();
                     38: 
                     39:        wattron(w, A_REVERSE);          /* output inverted box */
                     40:        for (i = 0; i < bh; i++)
                     41:                for (j = 0; j < bw; j++)
                     42:                        mvwaddch(w, i, j, ' ');
                     43:        mvwaddstr(w, 1, 1, bp->d_text);   /* output title */
                     44:        for (i = 0; i < bp->d_anz; i++) { /* output label and field of element */
                     45:                mvwaddstr(w, i*2+3, 1, bp->d_ptr[i]->e_text);
                     46:                waddch(w, ' ');
                     47:                wattroff(w, A_REVERSE);
                     48:                for (j = 0; j < bp->d_ptr[i]->e_len; j++)
                     49:                        waddch(w, ' ');
                     50:                mvwaddstr(w, i*2+3, strlen(bp->d_ptr[i]->e_text)+2, bp->d_ptr[i]->e_data);
                     51:                wattron(w, A_REVERSE);
                     52:        }
                     53:        wattroff(w, A_REVERSE);
                     54:        wrefresh(w);
                     55: 
                     56:        tab_active = 1; /* activate TAB key to switch between elements */
                     57:        while (eoj) {   /* edit the elements */
                     58:                ret = edit_field(w, active*2+3, strlen(bp->d_ptr[active]->e_text)+2, bp->d_ptr[active]->e_data, bp->d_ptr[active]->e_len, 1, NULL);
                     59:                switch (ret) {
                     60:                case WIN_OK:
                     61:                case WIN_ABORT:
                     62:                        eoj = 0;
                     63:                        break;
                     64:                case WIN_PREVFIE:
                     65:                        if (--active < 0)
                     66:                                active = bp->d_anz - 1;
                     67:                        break;
                     68:                case WIN_NEXTFIE:
                     69:                        if (++active > (bp->d_anz - 1))
                     70:                                active = 0;
                     71:                        break;
                     72:                }
                     73:        }
                     74:        close_window(w);
                     75:        tab_active = 0;
                     76:        return(ret);
                     77: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.