vdfsplat / AppSrc / cSplatPanel.pkg
History | View | Annotate | Download (2.12 KB)
1 |
//TH-Header |
---|---|
2 |
//***************************************************************************************** |
3 |
// Copyright (c) 2015 Antwise Solutions |
4 |
// All rights reserved. |
5 |
// |
6 |
// $FileName : .\AppSrc\cSplatPanel.pkg |
7 |
// $ProjectName : VdfSplat DataFlex Debugger |
8 |
// $Authors : Wil van Antwerpen |
9 |
// $Created : 09.19.2015 19:09 |
10 |
// $Type : GPL v2 |
11 |
// |
12 |
// Contents: |
13 |
// |
14 |
//***************************************************************************************** |
15 |
//TH-RevisionStart |
16 |
//TH-RevisionEnd |
17 |
Use DfPanel.pkg |
18 |
Use WinKern.pkg |
19 |
|
20 |
Class cSplatPanel is a Panel |
21 |
|
22 |
Procedure Construct_Object |
23 |
|
24 |
Forward send Construct_Object |
25 |
|
26 |
Property Handle phoDebugger 0 |
27 |
Property Handle phoEditor 0 |
28 |
Property Handle phoCallStack 0 // Object handle for the CallStack control |
29 |
Property Handle phoWatches 0 // Watches |
30 |
Property Handle phoTrace 0 // Trace |
31 |
Property Handle phoLocalVariables 0 // Local Variables |
32 |
Property Handle phoGlobalVariables 0 // Global |
33 |
Property Handle phoTablesWindow 0 // Tables |
34 |
Property Handle phoBreakpointsGrid 0 // Breakpoints grid |
35 |
Property Handle phoDebuggerHost 0 // Parent object/ hosting object for debugger instance |
36 |
Property Handle phoCallStackHost 0 |
37 |
Property Handle phoWatchesHost 0 |
38 |
Property Handle phoTraceHost 0 |
39 |
Property Handle phoLocalVarHost 0 |
40 |
Property handle phoGlobalVarHost 0 |
41 |
Property Handle phoTablesHost 0 |
42 |
Property Integer piDebugfileVersion 0 |
43 |
|
44 |
If (IsDebuggerPresent()) Begin // Using the hammer VdfSplat is being used to debug VdfSplat. |
45 |
// It can be a tad bit confusing so we set a different icon when |
46 |
// running under a debugger. |
47 |
Set Icon To "applications-science-3.ico" |
48 |
End |
49 |
End_Procedure |
50 |
|
51 |
Procedure End_Construct_Object |
52 |
Forward send End_Construct_Object |
53 |
End_Procedure |
54 |
End_Class |
55 |
|