/*//////////////////////////   EZ_01.C    //////////////////////////////*/
#include "EAZY_GEM.H"  
#define W_EZ_FIRST       1  
static CALLBACK WindProcEZ_first(int w_ind, EVNT_O *Evnt);
/*---------------------------- main ------------------------------------*/
void main (void)
{MAX_TTIPS = 2;   
 MAX_WIND  = 2;   
 if (InitEazyGem("EZ_FIRST.PRG") != -1) 
    {CreateWindow(SMALLER|CLOSER |NAME   |MOVER  |FULLER |BORDER |XMOVER |XSIZER , 
                  W_EZ_FIRST, 0L, WindProcEZ_first, 30,30,200,170, "PREMIER EXEMPLE"); 
     BouclePrincipale(0L);  
    }
 ExitEasyGem();   
}
/*------------------------------ WindProcEZ_first ------------------------*/
static CALLBACK WindProcEZ_first(int w_ind, EVNT_O *Evnt)
{if (Evnt->evnt & MU_MOVE)  Xform_mu_move(w_ind, Evnt);
 if (Evnt->evnt & MU_MESAG)
    {switch (Evnt->pipe[MESG])
       {case WM_CONSTRUCT: if (MachineInfo.machine>=0x0003000L) 
                               wind_set(Evnt->pipe[WHND],WF_BEVENT,0x0001,0x0000); 
             break;             
        case WM_REDRAW: Lister_rectangles(Windtab[w_ind].w_h,(GRECT*)&Evnt->pipe[X_G]);                          
             break;                                            
        case WM_PAINT:  vswr_mode(VDIhandle,MD_REPLACE);
                        Defline(1,1,0,0,1);
                        Deffill(0,0,4);
                        GrectPbox((GRECT*)&Evnt->pipe[X_B]);           break;                                           
        case WM_BOTTOM:      wind_set(Windtab[w_ind].w_h, WF_BOTTOM ); break;          
        case WM_TOPPED:      wind_set(Windtab[w_ind].w_h, WF_TOP );    break;
        case WM_CLOSED:      EZGemRun = 0;                             break;
        case WM_ALLICONIFY:  AllIconify(0L);                           break;    
        case WM_ICONIFY:     IconifyWindow(w_ind, 0L);                 break;    
        case WM_UNICONIFY:   UnconifyWindow(w_ind);                    break;
        case WM_SIZED:       OnWm_sized(w_ind, Evnt);                  break;   
        case WM_MOVED:       OnWm_moved(w_ind, Evnt);                  break;   
        case WM_FULLED:      OnWm_fulled( w_ind, Evnt);                break;  
        case AP_TERM:        EZGemRun=-1;                              break;      
       } 
    }     
 return Evnt->evnt;    
}


