REM Example dialog program for BB4W
      
      INSTALL @lib$ + "WINLIB2"
      
      ON ERROR IF !dlg% <> 0 THEN PROC_closedialog(dlg%) : END
      ON CLOSE IF !dlg% <> 0 THEN PROC_closedialog(dlg%) : QUIT
      ON SYS SysClick% = @wparam% : RETURN
      
      dlg% = FN_newdialog("Example dialog", 100, 100, 100, 50, 8, 200)
      PROC_pushbutton(dlg%, "Close", 2, 30, 30, 45, 15, 0)
      PROC_static(dlg%, "Example dialog", 100, 5, 5, 70, 10, 0)
      
      PROC_showdialog(dlg%)
      
      SysClick% = 0
      
      REPEAT
        REPEAT
          Click% = 0
          WAIT 1
          SWAP SysClick%, Click%
        UNTIL Click% <> 0
        
        REM Click controls
        
      UNTIL Click% = 2 OR !dlg% = 0
      
      IF !dlg% <> 0 THEN PROC_closedialog(dlg%)
      
      QUIT
 

REM Example dialog program for Liberty BASIC

  STATICTEXT #dialog.static, "Example dialog", 8, 8, 120, 15
  BUTTON #dialog.button, "Close", [close], UL, 40, 45, 70, 25

  UpperLeftX = 30
  UpperLeftY = 50
  WindowWidth = 160
  WindowHeight = 110

  OPEN "Example dialog" FOR dialog_modal AS #dialog
  PRINT #dialog, "trapclose [close]"

  WAIT

[close]
  CLOSE #dialog
  END
 

      REM Example dialog program that might use new GUILIB
      
      INSTALL @lib$ + "GUILIB"
      
      ON ERROR IF !dlg% <> 0 THEN PROC_closedialog(dlg{}) : END
      ON CLOSE IF !dlg% <> 0 THEN PROC_closedialog(dlg{}) : QUIT
      
      PROC_static(dlg.static1{}, "Example dialog", 5, 5, 70, 10, 0)
      REM PROC_static(struc.sub{}, text$, x%, y%, cx%, cy%, style)

      PROC_pushbutton(dlg.button1{}, "Close", 30, 30, 45, 15, 0)
      REM PROC_pushbutton(struc.sub{}, text$, x%, y%, cx%, cy%, style)
      
      PROC_showdialog(dlg{}, "Example dialog", 100, 100, 100, 50, 8)
      REM PROC_showdialog(struc{}, text$, x%, y%, cx%, cy%, font%)
      
      REPEAT
        Click% = FN_whichctrlclicked(dlg{})
      UNTIL click% <> 0
      
      PROC_closedialog(dlg{})
      
      QUIT
 

      Dlg%=FNGUI_dialog("Dialogue box") : REM REM_out this line to place items in main window
      Ed%=FNGUI_editbox("")
      Ednum%=FNGUI_editbox_numeric(""): PROCGUI_crlf
      Co%=FNGUI_combobox("")
      Li%=FNGUI_listbox("")           : PROCGUI_crlf
      PROCGUI_vtabline(-24)
      R1%=FNGUI_radio("Radiobutton 1"): PROCGUI_crlf
      R2%=FNGUI_radio("Radiobutton 2")
      Ch%=FNGUI_checkbox("Checkbox")  : PROCGUI_crlf
      PROCGUI_tab(44)
      Ok%=FNGUI_button("Ok")
      Cl%=FNGUI_button("Cancel")
      IF Dlg%=0 THEN END : REM the following code will not run in main window yet !
      Gr%=FNGUI_group("Group box",Ed%,Ch%)
      PROCGUI_write(Ed%,"Text box")
      FOR I%=1 TO 4 : PROCGUI_write(Co%,"Combobox "+STR$(I%)): NEXT I%
      FOR I%=0 TO 3 : PROCGUI_write(Li%,"Listbox item "+STR$(I%)): NEXT I%
      PROCGUI_set(R1%,0) : REM dummy data for radio
      PROCGUI_set(Co%,0)
      
      REPEAT
        Sel%=FNGUI_waitfor(Dlg%)
      UNTIL Sel%=Ok% OR Sel%=Cl% OR Sel%<100
      IF Sel%=Dlg% THEN PRINT "Dialog closed" : END
      IF Sel%=Cl% THEN PRINT "Cancel pressed" : PROCGUI_close(Dlg%) : END
      PRINT "OK pressed, settings were:"'
      PRINT "Text box contained ";FNGUI_read(Ed%)
      PRINT "Number box contained ";FNGUI_read(Ednum%)
      PRINT "Combobox selection was ";FNGUI_read(Co%)
      PRINT "Listbox selection index was ";FNGUI_get(Li%)
      IF FNGUI_get(R1%) THEN PRINT "Radiobutton 1 was checked" ELSE PRINT "Radiobutton 2 was checked"
      IF FNGUI_get(Ch%) THEN PRINT "Checkbox was checked" ELSE PRINT "Checkbox was not checked"
      PROCGUI_close(Dlg%)
      END
  

      PROCGUI_slowdown
      Dlg%=FNGUI_dialog("")
      FOR I%=1 TO 100
        a=FNGUI_button(STR$(I%))
      NEXT I%
      END
 

      WHILE E%!72 E% = E%!72 : ENDWHILE 

      REM TEST AREA
      INSTALL @lib$+"WINLIB5A"
      ON CLOSE PROC_closewindow(H%) : QUIT
      DIM hdr$(5), wid%(5), jst%(5)
      FOR I% = 0 TO 5
        hdr$(I%) = "Header " + STR$(I%)
        wid%(I%) = 120
        jst%(I%) = I% MOD 3
      NEXT
      H% = FN_lv_setup(@hwnd%, 0, 40, 800, 300, hdr$(), wid%(), jst%(), -1, &2000001)
      END
      REM /TEST AREA

      REM Create a standard List View. Returns the handle of the List View
      REM Perameters: h%         = parent window handle%,
      REM             x%, y%     = coordinates of the top left corner;
      REM             cx%, cy%   = width & height of the LV;
      REM             header$()  = header text array;
      REM             width%()   = column width array;
      REM             justify%() = column justification array;
      REM             lastcol%   = last column set (zero-based)
      REM             style%     = style of the LV
      REM LOCAL vars: LVCOLUMN{} = listview column structure
      REM             D%         = LV handle
      REM             C%         = column count
      REM             H$         = header string
      DEF FN_lv_setup(H%, X%, Y%, W%, V%, H$(), W%(), J%(), L%, S%)
      LOCAL LVCOLUMN{}, D%, C%, H$
      LVCF_FMT         = &1
      LVCF_WIDTH       = &2
      LVCF_TEXT        = &4
      LVCF_SUBITEM     = &8
      LVM_INSERTCOLUMN = &101B
      DIM LVCOLUMN{ mask%, fmt%, cx%, pszText%, cchTextMax%, iSubItem% }
      LVCOLUMN.mask%   = LVCF_FMT OR LVCF_SUBITEM OR LVCF_TEXT OR LVCF_WIDTH
      IF L% > DIM(H$(), 1) OR L% < 0 THEN L% = DIM(H$(), 1)
      SYS "InitCommonControls"
      D% = FN_createwindow(H%, "SysListView32", "", X%, Y%, W%, V%, 0, S%, 0)
      FOR C% = 0 TO L%
        H$                   = H$(C%) + CHR$(0)
        LVCOLUMN.fmt%        = J%(C%) MOD 3
        LVCOLUMN.cx%         = W%(C%)
        LVCOLUMN.pszText%    = !^H$
        LVCOLUMN.cchTextMax% = LEN(H$)
        LVCOLUMN.iSubItem%   = C%
        SYS "SendMessage", D%, LVM_INSERTCOLUMN, C%, LVCOLUMN{}
      NEXT
      = D%