[Harbour] Re: Question about Harbour debug

[Guillermo Varona Silupú]

[SPA]
Hola Massimo:
Yo sé que es posible, pero no se como lo hacen, lo he visto funcionando 
con QAC (http://www.carozodequilmes.com.ar/) y HMG (los BATs de 
compilación hacen esto), te pego un pantallazo, donde puedes apreciar esto.
El Codigo fuente, proporcionado por CarozoDeQuilmes es:
[ENG]
Hi Massimo:
I know it's possible, but not as they do, I've seen running QAC 
(http://www.carozodequilmes.com.ar/) and HMG (the compilation BATs do 
this), I hit a screenshot, where can appreciate this.
The source code, provided by CarozoDeQuilmes is:

****************************************************
#include "minigui.ch"
REQUEST HB_GT_WIN_DEFAULT

Function Main()
   Local qac := "QAC (Quiero Algo Comodo !!!) Console-Windows Mixed 
Mode Sample"

   DEFINE WINDOW WMain ;
      AT 0, 0 ;
      WIDTH 600 ;
      HEIGHT 480 ;
      TITLE qac ;
      MAIN ;
      NOSHOW
   END WINDOW

   ACTIVATE WINDOW WMain NOWAIT

   ? qac
   ? " "
   ? "Running from "
   ? " "
   ? MiniGuiVersion()
   ? " "
   ? Version()
   ? " "
   ? "1"

   DEFINE WINDOW ExWinMain ;
      AT 0, 0 ;
      WIDTH 600 ;
      HEIGHT 480 ;
      TITLE qac ;
      CHILD ;

      DEFINE LABEL hola
         ROW 0
         COL 0
         VALUE "Running from: "
         AUTOSIZE .T.
      END LABEL

      DEFINE LABEL hola2
         ROW 20
         COL 0
         VALUE MiniGuiVersion()
         AUTOSIZE .T.
      END LABEL

      DEFINE LABEL hola3
         ROW 40
         COL 0
         VALUE Version()
         AUTOSIZE .T.
      END LABEL

   END WINDOW

   CENTER WINDOW ExWinMain

   ACTIVATE WINDOW ExWinMain

   ? Version()
   ? " "
   ? "2"
   inkey(0)

   RELEASE WINDOW WMain

Return .t.

BestRegards
GVS



Massimo Belgrano escribió:
Is there anyway to have the Debug running in one window and the main 
application in other window?


How much is difficult having a gui debug?


from src\debug\  dbgmenu.prg i see same code that seem gui ready

LOCAL oMenu

MENU oMenu

MENUITEM " ~File "

MENU

MENUITEM " ~Open..." ACTION oDebugger:Open()

MENUITEM " ~Resume" ACTION oDebugger:Resume()

MENUITEM " O~S Shell" ACTION oDebugger:OSShell()

SEPARATOR

MENUITEM " e~Xit Alt-X " ACTION oDebugger:Quit()

ENDMENU



--
Massimo Belgrano



<<inline: moz-screenshot-21.jpg>>_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour