IMAGE demo

EXTERNAL olib
EXTERNAL hwim

INCLUDE hwimman.g
INCLUDE dlgbox.g
INCLUDE lprinter.g
INCLUDE time.g
INCLUDE epoc.h

CLASS dewserv wserv
    {
    REPLACE ws_dyn_init
    }

CLASS dedlg dlgbox
    {
    REPLACE dl_key
    TYPES
        {
        typedef struct
            {
            UWORD dayno;
            UWORD ndays;
            UWORD gap;
            } RBUF_LP;
        }
    }
    
CLASS delp lprinter
    {
    REPLACE lpr_init
    REPLACE lpr_sense_text
    CONSTANTS
        {
        DELP_STATE_COL1     0
        DELP_STATE_COL2     1
        DELP_STATE_COL3     2
        }
    PROPERTY 1
        {
        VOID *time;
        UWORD colwid;
        UWORD right;
        UWORD state;
        RBUF_LP rbuf;
        TEXT dname[E_MAX_DAY_NAME];
        TEXT buf[LN_TIME_DATE_STR];
        }
    }