Page Comparison

                                                PROGRAM
                                                MAP
                                                END
    include('CML_UI_ListCheckbox.inc'),once
ListCheckbox                                    CML_UI_ListCheckbox
x                                               long
CheckboxQueue                                   queue
Checked                                             bool
CheckedIcon                                         long
CheckedText                                         string(30)
                                                end
WINDOW                                          WINDOW('UITest'),AT(,,205,234),GRAY,FONT('Microsoft Sans Serif',8)
                                                    LIST,AT(21,12,161,185),USE(?List),VSCROLL,FROM(CheckboxQueue), |
                                                        FORMAT('14L(2)|M~X~100L(2)|M~Text~')
                                                    BUTTON('Close'),AT(84,206),USE(?ButtonClose),STD(STD:Close)
                                                END
    CODE
    loop x = 1 to 100
        clear(CheckboxQueue)
        CheckboxQueue.CheckedIcon = random(01,12)
        CheckboxQueue.CheckedText = 'String ' & x
        add(CheckboxQueue)
    end
    open(window)
    ListCheckbox.Initialize(?List)
    accept
    end
    close(window)