1
1
using System ;
2
- using System . Diagnostics ;
3
2
using System . Linq ;
4
3
using System . Runtime . InteropServices ;
5
- using Rubberduck . VBEditor . Native ;
6
4
using Rubberduck . VBEditor . SafeComWrappers . Abstract ;
7
5
using Rubberduck . VBEditor . SafeComWrappers . Office . Core ;
8
6
using Rubberduck . VBEditor . SafeComWrappers . Office . Core . Abstract ;
9
- using IAddIns = Rubberduck . VBEditor . SafeComWrappers . Abstract . IAddIns ;
10
- using IWindow = Rubberduck . VBEditor . SafeComWrappers . Abstract . IWindow ;
11
- using IWindows = Rubberduck . VBEditor . SafeComWrappers . Abstract . IWindows ;
12
7
using VB = Microsoft . Vbe . Interop ;
13
8
14
9
namespace Rubberduck . VBEditor . SafeComWrappers . VBA
15
10
{
16
11
public class VBE : SafeComWrapper < VB . VBE > , IVBE
17
12
{
18
- // ReSharper disable once PrivateFieldCanBeConvertedToLocalVariable
19
- //private readonly WinEvents.WinEventDelegate _events;
20
- //private static IntPtr _hook;
21
-
22
13
public VBE ( VB . VBE target )
23
- : base ( target )
14
+ : base ( target )
24
15
{
25
- //_events = WinEventProc;
26
- //uint proc;
27
- //WinEvents.GetWindowThreadProcessId(new IntPtr(target.MainWindow.HWnd), out proc);
28
- //_hook = WinEvents.SetWinEventHook((uint) WinEvents.EventConstant.EVENT_MIN,
29
- // (uint) WinEvents.EventConstant.EVENT_MAX, IntPtr.Zero, Marshal.GetFunctionPointerForDelegate(_events), proc, 0,
30
- // (uint) WinEvents.WinEventFlags.WINEVENT_OUTOFCONTEXT);
31
16
}
32
17
33
18
public string Version
@@ -44,7 +29,7 @@ public ICodePane ActiveCodePane
44
29
public IVBProject ActiveVBProject
45
30
{
46
31
get { return new VBProject ( IsWrappingNullReference ? null : Target . ActiveVBProject ) ; }
47
- set { Target . ActiveVBProject = ( VB . VBProject ) value . Target ; }
32
+ set { Target . ActiveVBProject = ( VB . VBProject ) value . Target ; }
48
33
}
49
34
50
35
public IWindow ActiveWindow
@@ -101,7 +86,6 @@ public IWindows Windows
101
86
102
87
public override void Release ( bool final = false )
103
88
{
104
- //WinEvents.UnhookWinEvent(_hook);
105
89
if ( ! IsWrappingNullReference )
106
90
{
107
91
VBProjects . Release ( ) ;
@@ -146,18 +130,5 @@ public static void SetSelection(IVBProject vbProject, Selection selection, strin
146
130
var pane = module . CodePane ;
147
131
pane . Selection = selection ;
148
132
}
149
-
150
- //private void WinEventProc(IntPtr hWinEventHook, uint eventType, IntPtr hwnd, uint idObject, uint idChild, uint dwEventThread, uint dwmsEventTime)
151
- //{
152
- ////I don't care about the mouse pointer right now.
153
- //if (idObject == (uint)WinEvents.ObjId.OBJID_CURSOR) return;
154
-
155
- //Debug.WriteLine("Intercepted event {0} for hwnd {1:X8} ({4}), object {2}, child {3}.",
156
- // eventType.ToEventIdString(),
157
- // hwnd.ToInt32(),
158
- // idObject.ToObjectIdString(),
159
- // idChild,
160
- // hwnd.ToClassName());
161
- //}
162
133
}
163
134
}
0 commit comments