#include "minigui.ch" 
  
 FUNCTION Main() 
  
    DEFINE WINDOW WndMain AT 10,10 WIDTH 400 HEIGHT 200; 
       TITLE "test" MAIN 
  
       DEFINE TIMER t_1 INTERVAL 50 ACTION OnGetboxEnd() 
  
       @ 10,10 GETBOX Gb1 WIDTH 100 VALUE "test" PICTURE 'XXXXXXXX' ON LOSTFOCUS WndMain.t_1.Enabled := .t. 
  
       @ 40,10 GETBOX Gb2 WIDTH 100 VALUE "100" PICTURE '9999' ON LOSTFOCUS WndMain.t_1.Enabled := .t. 
  
       @ 90,10 BUTTONEX Btn1  CAPTION "Ok" WIDTH 60 HEIGHT 28; 
         ACTION msgInfo('Ok') 
  
       @ 90,160 BUTTONEX Btn2 CAPTION "Cancel"  WIDTH 60 HEIGHT 28; 
         ACTION WndMain.Release 
  
    END WINDOW 
  
    CENTER WINDOW WndMain 
    ACTIVATE WINDOW WndMain 
  
 RETURN NIL 
  
  
 FUNCTION OnGetboxEnd 
    LOCAL i := GetControlIndex( WndMain.FocusedControl, 'WndMain' ) 
  
    IF i > 0 .AND. _HMG_aControlType [ i ] == 'GETBOX' 
       _PushKey ( VK_END ) 
       WndMain.t_1.Enabled := .f. 
    ENDIF 
  
 RETURN NIL