/* AmigaE ghh 2024 OpenWindowTagList typ2 */
/* tagy pro OpenWindowTagList jsou ve strukture wintags -> tagitem */

MODULE 'intuition/intuition'
MODULE 'utility/tagitem'

PROC main()
  DEF win:PTR TO window
  DEF wintags:PTR TO tagitem
                                      /* taglist je v hranatych zavorkach */
  wintags:= [WA_Left,   10,           /* pozice X */
             WA_Top,    14,           /* pozice Y */
             WA_Width,  320,          /* sirka */
             WA_Height, 160,          /* vyska */

             WA_CloseGadget, TRUE,    /* gadget zavreni okna */
             WA_DragBar,     TRUE,    /* okno se da uchopit a pretahnout */
             WA_DepthGadget, TRUE,    /* gadget prepinani oken vpred-vzad */
             WA_SizeBBottom, TRUE,    /* dolni lista okna */
             WA_SizeGadget,  TRUE,    /* gadget zmeny velikosti */

             WA_IDCMP, IDCMP_CLOSEWINDOW,       /* okno lze zavrit gadgetem (Intuition IDCMP) */
             WA_Title, 'OpenWindowTagListTyp2', /* titulek na liste okna */
             WA_MinWidth, 100,                  /* minimalni sirka okna */
             WA_MinHeight, 50,                  /* minimalni vyska okna */
             WA_MaxWidth,  -1,                  /* maximalni sirka -1 = neomezene */
             WA_MaxHeight, -1,                  /* maximalni vyska -1 = neomezene */
             WA_Activate, TRUE,                 /* okno bude aktivni pri spusteni */
             TAG_DONE, 0]                       /* konec taglistu */

  win:= OpenWindowTagList(NIL,wintags)
  IF(win)
    WaitPort(win.userport)                      /* ceka na zpravu z msg portu okna */
    CloseWindow(win)                            /* zavre okno az prijde zprava */
  ENDIF


ENDPROC