IMAGE gbar

EXTERNAL olib
EXTERNAL hwim

INCLUDE lprinter.g
INCLUDE help.g
INCLUDE dlgbox.g

CLASS hprinter lprinter
    {
    REPLACE lpr_read
    REPLACE lpr_sense_text
    PROPERTY
        {
        INT (*sense)(WDR_PRINT *);
        }
    }

CLASS hhelpdlg helpdlg
    {
    REPLACE destroy
    }

CLASS data_dl dlgbox
    {
    REPLACE dl_dyn_init
    REPLACE dl_key
    TYPES
        {
        typedef struct
            {
            UWORD exit_code;
            UWORD totloops;
            UWORD update;
            UWORD esc;
            UWORD loopsleft;
            UWORD toupdate;
            } RB_GBAR;
        }
    }

CLASS gbar_dl dlgbox
    {
    REPLACE wn_sense_help
    REPLACE dl_dyn_init
    REPLACE dl_key
    ADD gbar_update
    }

CLASS bar_ao active
    {
    REPLACE ao_init
    REPLACE ao_run
    PROPERTY
        {
        RB_GBAR *prb;
        }
    }