Files

60 lines
940 B
Plaintext
Raw Permalink Normal View History

2026-07-06 18:01:36 +01:00
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;
}
}