/* AmigaE OpenWindowTagList typ1 ghh 2024 */
/* tagy pro OpenWindowTagList jsou v hranatych zavorkach primo ve funkci */

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

PROC main()
  DEF win:PTR TO window

  win:= OpenWindowTagList(NIL,  /* taglist je v hranatych zavorkach */
       [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, 'OpenWindowTagListTyp1', /* 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 */

  IF(win)
    WaitPort(win.userport)                 /* ceka na zpravu z msg portu okna */
    CloseWindow(win)                       /* zavre okno az prijde zprava */
  ENDIF

ENDPROC