home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 99.img / PDOX3-09.ZIP / TOOLKIT2 / TKDEBUG.SC < prev    next >
Text File  |  1989-09-15  |  2KB  |  49 lines
  1. ; Copyright (c) 1987-1989 Borland International.  All Rights Reserved.
  2. ; Revs.:  MJP 3/8/88, DCY 12/13/88, DCY 1/27/89
  3. ;
  4. ; If DoWait is calling your procedures at the improper time (or is not calling
  5. ; them at all), include a call to TKDebug at the beginning of each erroneously
  6. ; activated procedure.  TKDebug will attempt to determine the cause of the
  7. ; problem.
  8. ;
  9. ; Erroneous activation of a procedure most often occurs because a custom
  10. ; procedure fails to alert DoWait of explicit movement out of the current
  11. ; field.  (Inform DoWait by calling either NewField, ArriveField,
  12. ; ArriveRecord, NewTable, or ArriveTable.)
  13. ;
  14. ; Once you have completed and tested your application, remember to remove
  15. ; calls to TKDebug from your procedures.  The PrepareFinal/Extract subsystem
  16. ; of TKMenu will do this for you automatically.
  17. ;
  18. ; NOTE:  InitWait DOES NOT load TKDebug from the Toolkit library (in a
  19. ;        completed application, you should have no need for it), you need
  20. ;        to do so yourself.
  21. ;
  22. Proc TKDebug()
  23.    Private TKErrMsg,
  24.            CTable,
  25.            CForm,
  26.            X
  27.  
  28.    TKErrMsg = ""
  29.    X = Match(TKDPASet[ImageNo()],"TK.._",CTable)
  30.  
  31.    If Search(CTable,Table()) = 0
  32.       Then TKErrMsg = "ArriveTable() not called upon arrival into "+Table()+
  33.                       " table from "+CTable+" table"
  34.    Endif
  35.  
  36.    If NFields(Table())+1 <> ArraySize(TKAction) and TKErrMsg = ""
  37.       Then TKErrMsg = "DPA set for "+CTable+" table is out of date"
  38.    Endif
  39.  
  40.    If ColNo() <> TKFieldNum and TKErrMsg = ""
  41.       Then TKErrMsg = "Unexpected departure form field # "+Strval(TKFieldNum-1)
  42.    Endif
  43.  
  44.    If TKErrMsg <> ""
  45.       Then Message "DoWait Error: ",TKErrMsg
  46.            Debug
  47.    Endif
  48. Endproc
  49.