Pushing Actions (Standard Buttons)

Another way for let the users to take an action (besides menus) are buttons.

 #include "hmg.ch"
Function Main
    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 07 - Button Test' ;
        MAIN 
        @ 10,10 BUTTON Button_1 ;
            CAPTION 'Click Here!' ;
            ACTION MsgInfo('Button Clicked!') 
    END WINDOW
    ACTIVATE WINDOW Win_1
Return