iczelion tut10[5]

            .elseif ax==idm_exit
                invoke enddialog, hwnd,null
            .endif
        .else
            mov edx,wparam
            shr edx,16
            .if dx==bn_clicked
                .if ax==idc_button
                    invoke setdlgitemtext,hwnd,idc_edit,addr teststring
                .elseif ax==idc_exit
                    invoke sendmessage,hwnd,wm_command,idm_exit,0
                .endif
            .endif
        .endif
    .else
        mov eax,false
        ret
    .endif
    mov eax,true
    ret
dlgproc endp
end start

#define idc_edit                                       3000
#define idc_button                                3001
#define idc_exit                                       3002

#define idr_menu1                                  3003

#define idm_gettext                              32000
#define idm_clear                                   32001
#define idm_exit                                       32003
 

mydialog dialog 10, 10, 205, 60
style 0x0004 | ds_center | ws_caption | ws_minimizebox |
ws_sysmenu | ws_visible | ws_overlapped | ds_modalframe | ds_3dlook
caption "our second dialog box"
menu idr_menu1
begin
    edittext         idc_edit,   15,17,111,13, es_autohscroll | es_left
    defpushbutton   "say hello", idc_button,    141,10,52,13
    pushbutton      "e&xit", idc_exit,  141,26,52,13
end
 

idr_menu1  menu
begin
    popup "test controls"
    begin
        menuitem "get text", idm_gettext
        menuitem "clear text", idm_clear
        menuitem "", , 0x0800 /*mft_separator*/
        menuitem "e&xit", idm_exit
    end
end