home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / VBXDLG.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  2.5 KB  |  92 lines
  1. <<[H]
  2. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  3. ##TRUE [[Search2]]
  4. ##^BOF
  5. ##"#include <owl/vbxctl.h>" [[IncludeFile]]
  6. ##--BEGIN-- ? IncludeFile [[Search1]]
  7. ##Search1 == FALSE
  8. ##:     ? "#include" Search2
  9. ##Search2 == FALSE
  10. ##:         %\\"[[ClassName]] missing #include <owl/vbxctl.h> for VBX control.  "
  11. ##*
  12. ## (Search1 == FALSE) && (Search2 == TRUE) 2
  13. ##:     ^BOL
  14. ##:     ^2
  15.  
  16. [[IncludeFile]]
  17. ##--END-- ? IncludeFile [[Search1]]
  18. ##\\"class [[ClassName]] : public TDialog, public TVbxEventHandler {" [[ClassDef]]
  19. ##? ClassDef [[Search1]]
  20. ##Search1 == FALSE
  21. ##:     {hvbx.snp}
  22. ##*
  23. ##\\"//{{[[ClassName]]RSP_TBL_BEGIN}}" [[ClassT1Marker]]
  24. ##^BOF
  25. ##*
  26. ##"//{{[[ClassName]]RSP_TBL_END}}" [[ClassTMarker]]
  27. ##\\ClassTMarker [[ClassMarker]]
  28. ##^BOF
  29. ##--BEGIN-- ? ClassMarker [[Search]]
  30. ##Search == FALSE
  31. ##:     {HAddRsp.SNP}
  32. ##:     ^BOF
  33. ##:     ? ClassMarker [[Search]]
  34. ##*
  35. ##--END-- ? ClassMarker [[Search]]
  36. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  37. >>[H]
  38.  
  39.  
  40. <<[CPP]
  41. ##QUERY_BASE_NAME [[BaseName]]
  42. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  43. ##^BOF
  44. ##*
  45. ##"//{{[[ClassName]]RSP_TBL_END}}" [[ClassTMarker]]
  46. ##\\ClassTMarker [[ClassMarker]]
  47. ##--BEGIN-- ? ClassMarker [[Search]]
  48. ##--BEGIN-- Search == FALSE
  49. ##"//{{[[ClassName]] Implementation}}" [[ClassMarker]]
  50. ##\\ClassMarker [[LookUp]]
  51. ##QUERY_FILE_CPP [[FileName]]
  52. ##^BOF
  53. ##? LookUp [[Search2]]
  54. ##Search2 == FALSE
  55. ##:     %\\"Unable to add response table marker to [[FileName]].  "
  56. ##*
  57. ##^BOL
  58. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE 3
  59. //
  60. // Build a response table for all messages/commands handled by the application.
  61. //
  62. DEFINE_RESPONSE_TABLE2([[ClassName]], [[BaseName]], TVbxEventHandler)
  63. //{{[[ClassName]]RSP_TBL_BEGIN}}
  64. //{{[[ClassName]]RSP_TBL_END}}
  65. END_RESPONSE_TABLE;
  66.  
  67.  
  68. ##^-3
  69. ##^BOL
  70. ##--END-- Search == FALSE
  71. ##--BEGIN-- Search == TRUE
  72. ##\\ "DEFINE_RESPONSE_TABLE2([[ClassName]], [[BaseName]], TVbxEventHandler)" [[VBXResponseTable]]
  73. ##^BOF
  74. ##--BEGIN-- ? VBXResponseTable [[VBXRspSearch]]
  75. ##VBXRspSearch == FALSE
  76. ##:     \\"DEFINE_RESPONSE_TABLE1([[ClassName]], [[BaseName]])" [[NormalResponseTable]]
  77. ##:     ^BOF
  78. ##:     ? NormalResponseTable Search
  79. ## (VBXRspSearch == FALSE) && (Search == FALSE)
  80. ##:         %\\"[[ClassName]] missing DEFINE_RESPONSE_TABLE1(...).  "
  81. ##*
  82. ## (VBXRspSearch == FALSE) && (Search == TRUE)
  83. ##:     ^BOL
  84. ##:     ^DELL
  85. [[VBXResponseTable]]
  86. ##--END-- ? VBXResponseTable [[VBXRspSearch]]
  87. ##--END-- Search == TRUE
  88. ##--END-- ? ClassMarker [[Search]]
  89. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  90. >>[CPP]
  91.  
  92.