2.2 How do I recognise WDIALOG?

Sub-function 7 of appl_getinfo() returns in the lowest 5 bits of ap_gout1 whether the wdlg/lbox/fnts/fslx/pdlg_xx() functions are present.

Declaration:
WORD appl_getinfo( WORD ap_gtype, WORD *ap_gout1, WORD *ap_gout2,
                                  WORD *ap_gout3, WORD *ap_gout4 );

Call:
ap_greturn = appl_getinfo( 7, &ap_gout1, &ap_gout2,
                              &ap_gout3, &ap_gout4 );

Variable         Argument            Meaning
Inputs:

contrl[0]        130                 appl_getinfo
contrl[1]        1                   Entries in intin
contrl[3]        0                   Entries in addrin

intin[0]         ap_gtype            Number of the sub-function (7)

Outputs:

contrl[2]        5                   Entries in intout
contrl[4]        0                   Entries in addrout

intout[0]        ap_greturn          0: Error   1: All OK
intout[1]        ap_gout1            See description
intout[2]        ap_gout2
intout[3]        ap_gout3
intout[4]        ap_gout4

Bits in ap_gout1:
Bit 0:           wdlg_xx()-functions are present (1)
Bit 1:           lbox_xx()-functions are present (1)
Bit 2:           fnts_xx()-functions are present (1)
Bit 3:           fslx_xx()-functions are present (1) *
Bit 4:           pdlg_xx()-functions are present (1)

*: fslx_xx()-functions are only made available by MagiC.
   With TOS + WDIALOG the bit is not set. For a description of the
   file selector see fslx.txt (part of the MagiC docs).

Note: The function appl_getinfo() is not present in all AES versions. To check that it is present you should call appl_find("?AGI"). If appl_find() does not return an error then appl_getinfo() is present. This procedure also works with old TOS versions, as WDIALOG makes a rudimentary appl_getinfo()-function available and intercepts appl_find().

From V1.06 onwards WDIALOG also supplies the form_popup()-function of MagiC in old TOS versions.