IMAGE demo

EXTERNAL olib
EXTERNAL hwim
EXTERNAL xadd

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

CLASS dewserv wserv
    {
    REPLACE ws_dyn_init
    }

CLASS decomman comman
    {
    REPLACE com_init
    REPLACE com_exit
    ADD dec_psetup
    ADD dec_preview
    ADD dec_print=decomman_dec_preview
    ADD dec_print_direct
    TYPES
        {
        typedef struct
            {
            UWORD dayno;
            UWORD ndays;
            UWORD gap;
            } DE_PRINT_DETAILS;
        }
    PROPERTY
        {
        DE_PRINT_DETAILS dets;
        }
    }
    
CLASS dedlg dlgbox
    {
    REPLACE dl_dyn_init
    REPLACE dl_key
    }
    
CLASS delp xprinter
    {
    REPLACE lpr_sense_text
    CONSTANTS
        {
        DELP_STATE_COL1     0
        DELP_STATE_COL2     1
        DELP_STATE_COL3     2
        }
    PROPERTY 1
        {
        VOID *time;
        VOID *wtab;
        UWORD colwid;
        UWORD right;
        UWORD state;
        UWORD ndays;
        TEXT dname[E_MAX_DAY_NAME];
        TEXT buf[LN_TIME_DATE_STR];
        }
    }