/* AmigaE EasyRequestArgs ghh 2024 */
/* Jednoduchy requester s oznamenim */

MODULE 'intuition/intuition'

PROC main()
  DEF vys    /* vysledek  - cislo podle zmacknuteho tlacitka */
  DEF body   /* bodytext - text uvnitr requestru */
  DEF cis
  DEF btex

  cis:= 42     /* cislo jako promenna */
  btex:= 'Ne'  /* text pro tlacitko */
  body:= 'Dobry den!\n' +
         'Na tomto radku je text: %s\n' +
         'Dalsi radek obsahuje cislo: %ld'

  vys:= EasyRequestArgs(NIL,       /* Window zadne nemame takze NIL 0 */
                                   /* - easystruct zacatek */
        [SIZEOF easystruct,        /* structsize */
         NIL,                      /* flags zadne nejsou */
         'Dotaz',                  /* title titulek na liste requestru */
         body,                     /* bodytext text - sdeleni uvnitr requestru */
         'Ano|%s|Nic']:easystruct, /* tlacitka oddelena znakem | */
                                   /* - easystruct konec */
        NIL,                       /* idcmp flags napr. kdyz intuition hlasi vymenu diskety a pod. */
        ['AmigaE', cis, btex])     /* arglist do bodytextu a tlacitek */
                                   /* se da vlozit text nebo promenna %s %ld */
  SELECT vys
    CASE 1
      WriteF('Vybrano "Ano"\n')    /* tlacitko uplne vlevo je vzdy 1 */

    CASE 2
      WriteF('Vybrano "\s"\n', btex)  /* dalsi je 2 a tak dal */

    CASE 0
      WriteF('Vybrano "Nic"\n')    /* pokud je tlacitko jen jedno, nebo je uplne vpravo */
                                   /* vysledek je vzdy 0 (vetsinou je to Cancel a pod.) */
  ENDSELECT
ENDPROC