#include "minigui.ch"
#include "hbgtinfo.ch"

REQUEST HB_GT_GUI_DEFAULT
REQUEST HB_GT_WVG

STATIC lIsOpen := .F.

PROCEDURE Main()

   DEFINE WINDOW MainWindow ;
      AT 100, 100 ;
      WIDTH 640 ;
      HEIGHT 480 ;
      TITLE "Teste" ;
      MAIN

      DEFINE MAIN MENU
         POPUP "Menu"
            ITEM "Janela 1" ACTION TelaConsole1()
            ITEM "Janela 2" ACTION TelaConsole2()
         END POPUP
      END MENU

   END WINDOW

   ACTIVATE WINDOW MainWindow

RETURN

STATIC FUNCTION TelaConsole1()

   LOCAL cCampo1 := space(30)

   IF lIsOpen
      RETURN Nil
   ENDIF
   lIsOpen := .T.
   hb_gtReload( "WVG" )
   SetMode(25,80)
   CLS

   @ 10,10 SAY "CAMPO1:" GET cCampo1
   READ

   ? cCampo1

   WAIT
   hb_gtReload( "WVG" )
   lIsOpen := .F.


RETURN NIL

STATIC FUNCTION TelaConsole2()

   LOCAL cCampo1 := space(30)
   LOCAL cCampo2 := space(50)

   IF lIsOpen
      RETURN Nil
   ENDIF
   lIsOpen := .T.
   hb_gtReload( "WVG" )
   SetMode( 25, 80 )
   CLS

   @ 8,10 SAY "CAMPO1:" GET cCampo1
   @ 10,10 SAY "CAMPO2:" GET cCampo2
   READ

   ? cCampo1
   ? cCampo2

   WAIT
   hb_gtReload( "WVG" )
   lIsOpen := .F.

RETURN NIL