** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
** Exemple  :   MENU
**
**

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x ,itemTabCtl; 
char    : ModifyTxtButton:20 := "Example Modify" ;
 
 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1 

 begin_dialog
  		
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  &  :WS_THICKFRAME  
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				&   CENTERDIALOG

   		   300,100,550,600, " EndUser 4 GL :MENU",UserDialog
     
	 Begin_Menu :  TOTO 
               Begin_PopMenu  : PopMenu1  "O&ption 1.."
                     	MenuItem "Open"   , ID : 10
                	MenuItem "Print"  , ID :11 
                	MenuItem return_carriage    
                	MenuItem "Save"   , ID :12 
                	MenuItem "S&Ave All" , ID :13 ,DISABLE 
              END_PopMenu 
  		 Begin_PopMenu : PopMenu2  "Op&tion 2.."
                     	MenuItem "execute"   , ID: 20
                	MenuItem "Stop"  , ID :21 
                	MenuItem return_carriage    
                	MenuItem "cancel"   , ID: 22 
                	MenuItem "etc..." ,   ID: 23 ,DISABLE 
             	 END_PopMenu 

	 END_Menu
 
	 Begin_Rebar
   	TOP Rebar1   80,50
   	          ButtonIconDraw    1,1, 32,32, "c:\EndUser4gl\4gl\hlp\pgmicon\cancel.ico", BoutonCancel 
 		 create :	info "Exit    Transaction"  ,
 			use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" 
	 End_Rebar
  
 end_dialog 
  Begin_Initialize
  IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
    
 End_Initialize
    OpenDialog  (UserDialog )  ;
  
 	 require  GetPush(BoutonCancel) returning (x);  
         if(  x   Not_Void ) 
          then  
                   MsgBox  : TITLE "My First Rebar "  
                   Message :      " Push is ok : Cancel Transaction" 
                    button  :       MB_OK
                   icon    :        MB_ICONEXCLAMATION           returning (x) ; 
             exit_trans1  :=  1     ;
         end_if; 

 
 end_transaction ;