<<[H]
##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
##QUERY_BASE_NAME [[BaseName]]
##^BOF
##--BEGIN-- ? \\"//{{[[BaseName]] = [[ClassName]]}}" [[Search]]
##    Search == FALSE
##        :%\\"Class [[ClassName]] derived from [[BaseName]] definition not found in header file.  "
##*
##--END-- ? \\"//{{[[BaseName]] = [[ClassName]]}}"
##0 [[StartLine]]
##0 [[EndLine]]
##--BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
##    :(YPos() + 2) StartLine
##    --BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
##        :YPos() EndLine
##        :^@StartLine
##        :^BOL
##        --BEGIN-- ((StartLine - 1) != EndLine) && (StartLine != EndLine)
##            :--FOR-- VEntries = 1 TO (EndLine - StartLine)
##                :ScanVEntry([[FunctionName]])
##                    :DBVirtual(ClassName, FunctionName)
##                    :^1
##*
##            :--NEXT-- VEntries = 1 TO (EndLine - StartLine)
##        --END-- ((StartLine - 2) != EndLine) && (StartLine != EndLine)
##    --END-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
##--END-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
##--BEGIN-- QUERY_BASE_NAME == "TDialog"
##      :^BOF
##      --BEGIN-- ? \\"[[ClassName]] (TWindow"
##          :^BOL
##          :ScanDialog([[RCDialogID]])
##              :DBDialog(ClassName, RCDialogID)
##*
##      --END-- ? \\"[[ClassName]]::[[ClassName]] "
##--END-- QUERY_BASE_NAME == "TDialog"
##^BOF
##--BEGIN-- ? \\"//{{[[ClassName]]AUTO_TBL_BEGIN}}"
##      :AutomateClass(ClassName)
##          :{HResAuto.SNP}
##*
##--END-- ? \\"//{{[[ClassName]]AUTO_TBL_BEGIN}}"
##--END-- QUERY_CLASS_NAME [[ClassName]]
>>[H]


<<[CPP]
##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
##--BEGIN-- QUERY_BASE_NAME == "TDialog"
##      ^BOF
##      --BEGIN-- ? \\"//{{[[ClassName]]XFER_USE}}"
##          :(YPos() + 1) [[StartLine]]
##          --BEGIN-- ? \\"//{{[[ClassName]]XFER_USE_END}}"
##              :(YPos() - 2) [[EndLine]]
##              :^@StartLine
##              :^BOL
##              :--FOR-- IEntries = 1 TO (EndLine - StartLine)
##                  :ScanIEntry([[ResourceID]], [[MemberName]], [[MemberType]])
##                  :DBInstance(ClassName, ResourceID, MemberName, MemberType)
##                  :^1
##*
##              :--NEXT-- IEntries = 1 TO (EndLine - StartLine)
##          --END-- ? \\"//{{[[ClassName]]XFER_DEF_END}}"
##      --END-- ? \\"//{{[[ClassName]]XFER_DEF}}"
##--END-- QUERY_BASE_NAME == "TDialog"
##--BEGIN-- @OPT_APPL_DOCVIEW
##		  0 [[StartLine]]
##		  1 [[EndLine]]
##      --BEGIN-- QUERY_BASE_NAME == "TApplication"
##          :^BOF
##          --BEGIN-- ? "//{{DOC_VIEW}}"
##              :@QUERY_APPL_OLE != VALUE_NOOLE
##                  :{ResDVOle.snp}
##*
##              --BEGIN-- @QUERY_APPL_OLE == VALUE_NOOLE
##                  :^1
##                  :YPos() StartLine
##                  --BEGIN-- ? "//{{DOC_VIEW_END}}"
##                      :^-1
##                      :YPos() EndLine
##                      :^@StartLine
##                      :^BOL
##                      :0 [[CurrViewLine]]
##                      --FOR-- ViewEntry = 1 TO ((EndLine - StartLine) + 1)
##                          :ScanViewEntry([[Template]], [[TDocument]], [[TView]]) [[viewResult]]
##                          :YPos() CurrViewLine
##                          :? "//{{DOC_MANAGER}}"
##                              :--BEGIN-- ? \\"[[Template]]"
##                                  :^BOL
##                                  :ScanDocEntry([[Style]], [[Descr]], [[Filter]], [[Ext]])
##                                      :DBDocView(Style, Descr, Filter, Ext, TDocument, TView)
##*
##                              :--END-- ? \\"[[Template]]"
##                              :^@CurrViewLine
##*
##                          :^1
##                      --NEXT-- ViewEntry
##                  --END-- ? "//{{DOC_VIEW_END}}"
##              --END-- @QUERY_APPL_OLE == VALUE_NOOLE
##          --END-- ? "//{{DOC_VIEW}}"
##      --END-- QUERY_BASE_NAME == "TApplication"
##--END-- @OPT_APPL_DOCVIEW
##^BOF
##0 [[StartLine]]
##0 [[EndLine]]
##--BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
##      :^1
##      :YPos() StartLine
##      --BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
##          :YPos() EndLine
##          :^@StartLine
##          :^BOL
##          --BEGIN-- 0 != (EndLine - StartLine)
##              :--FOR-- RespEntry = 1 TO (EndLine - StartLine)
##                  :ScanRespEntry([[RspConstant]], [[RspFunctionName]], [[RspEventType]], [[RspMenuType]])
##                      :RspEventType != "OWLVIEW"
##                          :DBResponse(ClassName, RspConstant, RspFunctionName, RspEventType, RspMenuType)
##*
##                  :^1
##              :--NEXT-- RespEntry
##          --END-- 0 != (EndLine - StartLine)
##      --END-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
##--END-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
##^BOF
##--BEGIN-- ? \\"//{{[[ClassName]]SYM_TBL_BEGIN}}"
##      :{CResAuto.SNP}
##*
##--END-- ? \\"//{{[[ClassName]]SYM_TBL_BEGIN}}"
##--END-- QUERY_CLASS_NAME [[ClassName]]
>>[CPP]