home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / IDE / SOURCE / DEBUG.PRG < prev    next >
Text File  |  1994-05-21  |  2KB  |  66 lines
  1. // IDE Debug - FiveWin Debug Support
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. static oWndDbg
  6.  
  7. //----------------------------------------------------------------------------//
  8.  
  9. function Debug()
  10.  
  11.    local oIcon, oBar
  12.  
  13.    if oWndDbg != nil
  14.       return nil
  15.    endif
  16.  
  17.    DEFINE ICON oIcon RESOURCE "Debug"
  18.  
  19.    DEFINE WINDOW oWndDbg FROM 1, 1 TO 23, 33 ;
  20.       ICON oIcon TITLE "Debug Window" ;
  21.       MDICHILD COLOR "W+/N*"              // By defaults gets the MdiFrame
  22.  
  23.    DEFINE BUTTONBAR oBar OF oWndDbg
  24.  
  25.    DEFINE BUTTON OF oBar RESOURCE "AddWatch" ;
  26.       MESSAGE "Inspect a new variable"
  27.  
  28.    DEFINE BUTTON OF oBar RESOURCE "DelWatch" ;
  29.       MESSAGE "End inspecting this variable"
  30.  
  31.    DEFINE BUTTON GROUP OF oBar RESOURCE "Local" ;
  32.       MESSAGE "Watch local variables"
  33.  
  34.    DEFINE BUTTON OF oBar RESOURCE "_Static" ;
  35.       MESSAGE "Watch static variables"
  36.  
  37.    DEFINE BUTTON OF oBar RESOURCE "Private" ;
  38.       MESSAGE "Watch private variables"
  39.  
  40.    DEFINE BUTTON OF oBar RESOURCE "Public" ;
  41.       MESSAGE "Watch public variables"
  42.  
  43.    DEFINE BUTTON GROUP OF oBar RESOURCE "AllVars" ;
  44.       MESSAGE "Watch all of them"
  45.  
  46.    ACTIVATE WINDOW oWndDbg ;
  47.       VALID ( oWndDbg := nil, .t. )       // Destroy the Object
  48.  
  49. return nil
  50.  
  51. //----------------------------------------------------------------------------//
  52.  
  53. function FwWatch( cProc, nLine )
  54.  
  55.    local n := 0
  56.  
  57.    if oWndDbg != nil
  58.       while ! Empty( ProcName( n ) )
  59.          oWndDbg:Say( 2 + n, 2, ProcName( n++ ) )
  60.       end
  61.    endif
  62.  
  63. return nil
  64.  
  65. //----------------------------------------------------------------------------//
  66.