#include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 200 HEIGHT 200 TITLE "Modal" MODAL 
  
 _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 2"  
 //	CAPTION "Child"  
 	ICON NIL  
 	ACTION MODAL2() 
 //	ACTION CHILD()  
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL  
  
 *************************  
 static function MODAL2() 
 *************************  
 DEFINE WINDOW wModal2 AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Modal 2" MODAL 
  
 END window  
   
 wModal2.center  
 wModal2.activate 
   
 return NIL  
  
 *************************  
 static function CHILD() 
 *************************  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD 
  
 END window  
   
 wChild.center  
 wChild.activate 
   
 return NIL  
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
 SET OOP ON 
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 //	CAPTION "&Quit"  
 	CAPTION "Child"  
 	ICON NIL  
 	ACTION CHILD2( This.Name )  
 //	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 200 HEIGHT 200 TITLE "Modal" MODAL 
  
 // _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 //	CAPTION "Modal 2"  
 	CAPTION "Child"  
 	ICON NIL  
 //	ACTION MODAL2() 
 	ACTION CHILD2( This.Name )  
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL  
  
 *************************  
 static function MODAL2() 
 *************************  
 DEFINE WINDOW wModal2 AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Modal 2" MODAL 
  
 END window  
   
 wModal2.center  
 wModal2.activate 
   
 return NIL  
  
      
 *************************    
 static function CHILD()   
 *************************   
  
 if IsWindowDefined(wChild)  
    doMethod("wChild", "HIDE")  
    doMethod("wChild", "SHOW")  
    doMethod("wChild", "SETFOCUS")  
    return NIL  
 endif  
  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD ;  
  NOMAXIMIZE NOMINIMIZE  
    
 define timer t_1 interval 50 action doMethod("wChild", "SETFOCUS") once  
  
 END window  
     
 wChild.center    
 activate window wChild NOWAIT  
  
 DO MESSAGELOOP  
   
 return NIL  
  
 *************************    
 static function CHILD2( cFocusName )   
 *************************   
 LOCAL oParent := ThisWindow.Object 
 LOCAL lM 
 LOCAL hM 
  
 If oParent:Type == 'M' 
    lM := _HMG_IsModalActive     
    hM := _HMG_ActiveModalHandle 
    _HMG_IsModalActive     := .F. 
    _HMG_ActiveModalHandle := 0 
 Endif 
  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD ;  
  NOMAXIMIZE NOMINIMIZE  
  
 END window  
     
 wChild.center    
 wChild.activate 
  
 If oParent:Type == 'M' 
    _HMG_IsModalActive     := lM 
    _HMG_ActiveModalHandle := hM 
 Endif 
  
 oParent:SetFocus(cFocusName) 
  
 return NIL