vdfsplat / AppSrc / cSplatPanel.pkg
History | View | Annotate | Download (2.12 KB)
1 | 43 | wil | //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 |