:OBJECT ComboList <SUPER WINDOW

 ComboListControl CbList_1   \ a combo list box
 
:M ClassInit:   ( -- )
                ClassInit: super
                ;M

:M ExWindowStyle: ( -- style )
                ExWindowStyle: SUPER
                ;M

:M WindowStyle: ( -- style )
                WindowStyle: SUPER
                WS_BORDER OR
                WS_OVERLAPPED OR
                ;M

:M WindowTitle: ( -- title )
                z" " ;M

:M StartSize:   ( -- width height )
                300 350 ;M

:M StartPos:    ( -- x y )
                30 30 ;M

:M Close:       ( -- )
\
                Close: SUPER
                ;M

:M On_Init:     ( -- )
                self                Start: CbList_1
                4 220 100 90         Move: CbList_1
                0 0 CB_RESETCONTENT GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola4 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola5 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola6 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola7 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola8 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" Ola9 " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
                0 0 CB_SETCURSEL    GetID: CbList_1 SendDlgItemMessage: self drop

                ;M

:M On_Paint:    ( -- )          \ screen redraw procedure
                0 0 StartSize: self LTGRAY FillArea: dc
                ;M

:M WM_COMMAND   ( hwnd msg wparam lparam -- res )
        over LOWORD ( ID )
\        
        0 ;M

;OBJECT

: DEMO          ( -- )
	Start: ComboList
        
         ;

.( Type DEMO to run the dialog demo. )

demo