fzeet 0.6.4 → 0.6.5

data/lib/fzeet/windows/ole.rb

@@ -149,6 +149,74 @@ module Fzeet
 				:Lo64, :ulong_long
 		end
 
+		class VARIANT < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:vt, :ushort,
+						:wReserved1, :ushort,
+						:wReserved2, :ushort,
+						:wReserved3, :ushort,
+						:_, Class.new(FFI::Union) {
+							layout \
+								:llVal, :long_long,
+								:lVal, :long,
+								:bVal, :uchar,
+								:iVal, :short,
+								:fltVal, :float,
+								:dblVal, :double,
+								:boolVal, :short,
+								:bool, :short,
+								:scode, :long,
+								:cyVal, :ulong_long,
+								:date, :double,
+								:bstrVal, :pointer,
+								:punkVal, :pointer,
+								:pdispVal, :pointer,
+								:parray, :pointer,
+								:pbVal, :pointer,
+								:piVal, :pointer,
+								:plVal, :pointer,
+								:pllVal, :pointer,
+								:pfltVal, :pointer,
+								:pdblVal, :pointer,
+								:pboolVal, :pointer,
+								:pbool, :pointer,
+								:pscode, :pointer,
+								:pcyVal, :pointer,
+								:pdate, :pointer,
+								:pbstrVal, :pointer,
+								:ppunkVal, :pointer,
+								:ppdispVal, :pointer,
+								:pparrayv, :pointer,
+								:pvarVal, :pointer,
+								:byref, :pointer,
+								:cVal, :char,
+								:uiVal, :ushort,
+								:ulVal, :ulong,
+								:ullVal, :ulong_long,
+								:intVal, :int,
+								:uintVal, :uint,
+								:pdecVal, :pointer,
+								:pcVal, :pointer,
+								:puiVal, :pointer,
+								:pulVal, :pointer,
+								:pullVal, :pointer,
+								:pintVal, :pointer,
+								:puintVal, :pointer,
+								:BRECORD, Class.new(FFI::Struct) {
+									layout \
+										:pvRecord, :pointer,
+										:pRecInfo, :pointer
+								}
+ 						}
+				},
+
+				:decVal, DECIMAL
+		end
+
 		class PROPVARIANT < FFI::Union
 			include AnonymousSupport
 
@@ -283,6 +351,22 @@ module Fzeet
 
 		attach_function :PropVariantClear, [:pointer], :long
 
+		class SAFEARRAYBOUND < FFI::Struct
+			layout \
+				:cElements, :ulong,
+				:lLbound, :long
+		end
+
+		class SAFEARRAY < FFI::Struct
+			layout \
+				:cDims, :ushort,
+				:fFeatures, :ushort,
+				:cbElements, :ulong,
+				:cLocks, :ulong,
+				:pvData, :pointer,
+				:rgsabound, [SAFEARRAYBOUND, 1]
+		end
+
 		ffi_lib 'oleaut32'
 		ffi_convention :stdcall
 
@@ -290,6 +374,11 @@ module Fzeet
 		attach_function :SysFreeString, [:pointer], :void
 		attach_function :SysStringLen, [:pointer], :uint
 
+		attach_function :SafeArrayCreateVector, [:ushort, :long, :uint], :pointer
+		attach_function :SafeArrayDestroy, [:pointer], :long
+		attach_function :SafeArrayAccessData, [:pointer, :pointer], :long
+		attach_function :SafeArrayUnaccessData, [:pointer], :long
+
 		OLEIVERB_PRIMARY = 0
 		OLEIVERB_SHOW = -1
 		OLEIVERB_OPEN = -2

data/lib/fzeet/windows/shdocvw.rb

@@ -45,6 +45,22 @@ module Fzeet
 
 		WebBrowserEvents = COM::Callback[DWebBrowserEvents]
 
+		class WebBrowserEvents
+			def Invoke(dispid, *rest)
+				method = (self.class::VTBL.members - IDispatch::VTBL.members).find { |name|
+					dispidName = "DISPID_#{name.upcase}"
+
+					Windows.const_defined?(dispidName) && Windows.const_get(dispidName) == dispid
+				}
+
+				return E_NOTIMPL unless method
+
+				send(method, DISPPARAMS.new(rest[3]))
+
+				S_OK
+			end
+		end
+
 		NavOpenInNewWindow = 0x0001
 		NavNoHistory = 0x0002
 		NavNoReadFromCache = 0x0004

data/lib/fzeet/windows/urlmon.rb

@@ -0,0 +1,61 @@
+require_relative 'common'
+
+module Fzeet
+	module Windows
+		ffi_lib 'urlmon'
+		ffi_convention :stdcall
+
+		FEATURE_OBJECT_CACHING = 0
+		FEATURE_ZONE_ELEVATION = FEATURE_OBJECT_CACHING + 1
+		FEATURE_MIME_HANDLING = FEATURE_ZONE_ELEVATION + 1
+		FEATURE_MIME_SNIFFING = FEATURE_MIME_HANDLING + 1
+		FEATURE_WINDOW_RESTRICTIONS = FEATURE_MIME_SNIFFING + 1
+		FEATURE_WEBOC_POPUPMANAGEMENT = FEATURE_WINDOW_RESTRICTIONS + 1
+		FEATURE_BEHAVIORS = FEATURE_WEBOC_POPUPMANAGEMENT + 1
+		FEATURE_DISABLE_MK_PROTOCOL = FEATURE_BEHAVIORS + 1
+		FEATURE_LOCALMACHINE_LOCKDOWN = FEATURE_DISABLE_MK_PROTOCOL + 1
+		FEATURE_SECURITYBAND = FEATURE_LOCALMACHINE_LOCKDOWN + 1
+		FEATURE_RESTRICT_ACTIVEXINSTALL = FEATURE_SECURITYBAND + 1
+		FEATURE_VALIDATE_NAVIGATE_URL = FEATURE_RESTRICT_ACTIVEXINSTALL + 1
+		FEATURE_RESTRICT_FILEDOWNLOAD = FEATURE_VALIDATE_NAVIGATE_URL + 1
+		FEATURE_ADDON_MANAGEMENT = FEATURE_RESTRICT_FILEDOWNLOAD + 1
+		FEATURE_PROTOCOL_LOCKDOWN = FEATURE_ADDON_MANAGEMENT + 1
+		FEATURE_HTTP_USERNAME_PASSWORD_DISABLE = FEATURE_PROTOCOL_LOCKDOWN + 1
+		FEATURE_SAFE_BINDTOOBJECT = FEATURE_HTTP_USERNAME_PASSWORD_DISABLE + 1
+		FEATURE_UNC_SAVEDFILECHECK = FEATURE_SAFE_BINDTOOBJECT + 1
+		FEATURE_GET_URL_DOM_FILEPATH_UNENCODED = FEATURE_UNC_SAVEDFILECHECK + 1
+		FEATURE_TABBED_BROWSING = FEATURE_GET_URL_DOM_FILEPATH_UNENCODED + 1
+		FEATURE_SSLUX = FEATURE_TABBED_BROWSING + 1
+		FEATURE_DISABLE_NAVIGATION_SOUNDS = FEATURE_SSLUX + 1
+		FEATURE_DISABLE_LEGACY_COMPRESSION = FEATURE_DISABLE_NAVIGATION_SOUNDS + 1
+		FEATURE_FORCE_ADDR_AND_STATUS = FEATURE_DISABLE_LEGACY_COMPRESSION + 1
+		FEATURE_XMLHTTP = FEATURE_FORCE_ADDR_AND_STATUS + 1
+		FEATURE_DISABLE_TELNET_PROTOCOL = FEATURE_XMLHTTP + 1
+		FEATURE_FEEDS = FEATURE_DISABLE_TELNET_PROTOCOL + 1
+		FEATURE_BLOCK_INPUT_PROMPTS = FEATURE_FEEDS + 1
+		FEATURE_ENTRY_COUNT = FEATURE_BLOCK_INPUT_PROMPTS + 1
+
+		SET_FEATURE_ON_THREAD = 0x00000001
+		SET_FEATURE_ON_PROCESS = 0x00000002
+		SET_FEATURE_IN_REGISTRY = 0x00000004
+		SET_FEATURE_ON_THREAD_LOCALMACHINE = 0x00000008
+		SET_FEATURE_ON_THREAD_INTRANET = 0x00000010
+		SET_FEATURE_ON_THREAD_TRUSTED = 0x00000020
+		SET_FEATURE_ON_THREAD_INTERNET = 0x00000040
+		SET_FEATURE_ON_THREAD_RESTRICTED = 0x00000080
+
+		GET_FEATURE_FROM_THREAD = 0x00000001
+		GET_FEATURE_FROM_PROCESS = 0x00000002
+		GET_FEATURE_FROM_REGISTRY = 0x00000004
+		GET_FEATURE_FROM_THREAD_LOCALMACHINE = 0x00000008
+		GET_FEATURE_FROM_THREAD_INTRANET = 0x00000010
+		GET_FEATURE_FROM_THREAD_TRUSTED = 0x00000020
+		GET_FEATURE_FROM_THREAD_INTERNET = 0x00000040
+		GET_FEATURE_FROM_THREAD_RESTRICTED = 0x00000080
+
+		if WINVER.AtLeastWindowsXP?
+			attach_function :CoInternetSetFeatureEnabled, [:int, :ulong, :int], :long
+			attach_function :CoInternetIsFeatureEnabled, [:int, :ulong], :long
+		end
+	end
+end

data/lib/fzeet/windows.rb

@@ -14,6 +14,8 @@ require_relative 'windows/ole'
 require_relative 'windows/shell'
 require_relative 'windows/shlwapi'
 require_relative 'windows/shdocvw'
+require_relative 'windows/mshtml'
+require_relative 'windows/urlmon'
 
 require_relative 'windows/propsys' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
 

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: fzeet
 version: !ruby/object:Gem::Version 
-  hash: 15
+  hash: 13
   prerelease: false
   segments: 
   - 0
   - 6
-  - 4
-  version: 0.6.4
+  - 5
+  version: 0.6.5
 platform: ruby
 authors: 
 - Radoslav Peev
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-10-01 00:00:00 +03:00
+date: 2010-10-08 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -50,15 +50,15 @@ files:
 - lib/fzeet/windows/gdi.rb
 - lib/fzeet/windows/kernel.rb
 - lib/fzeet/windows/libc.rb
-- lib/fzeet/windows/ole - Copy.rb
+- lib/fzeet/windows/mshtml.rb
 - lib/fzeet/windows/ole.rb
 - lib/fzeet/windows/propsys.rb
 - lib/fzeet/windows/scintilla.rb
-- lib/fzeet/windows/shdocvw - Copy.rb
 - lib/fzeet/windows/shdocvw.rb
 - lib/fzeet/windows/shell.rb
 - lib/fzeet/windows/shlwapi.rb
 - lib/fzeet/windows/uiribbon.rb
+- lib/fzeet/windows/urlmon.rb
 - lib/fzeet/windows/user.rb
 - lib/fzeet/windows/SciLexer.dll
 - lib/fzeet/windows/user/Accelerator.rb
@@ -234,6 +234,12 @@ files:
 - examples/Control/TreeView.rbw
 - examples/Control/UpDown.rbw
 - examples/Control/WebBrowser.rbw
+- examples/Control/WebBrowser1.rbw
+- examples/Control/WebBrowser2.rbw
+- examples/Control/WebBrowser3.rbw
+- examples/Control/WebBrowser4.rbw
+- examples/Control/WebBrowser5.rbw
+- examples/Control/WebBrowser4Sinatra.rb
 - examples/Dialog/ColorDialog.rbw
 - examples/Dialog/Dialog.rbw
 - examples/Dialog/DialogApplication.rbw

data/lib/fzeet/windows/ole - Copy.rb

@@ -1,446 +0,0 @@
-require_relative 'com'
-
-module Fzeet
-	module Windows
-		ffi_lib 'ole32'
-		ffi_convention :stdcall
-
-		attach_function :OleInitialize, [:pointer], :long
-		attach_function :OleUninitialize, [], :void
-
-		def InitializeOle
-			DetonateHresult(:OleInitialize, nil)
-
-			at_exit { OleUninitialize() }
-		end
-
-		module_function :InitializeOle
-
-		attach_function :CoTaskMemAlloc, [:ulong], :pointer
-		attach_function :CoTaskMemFree, [:pointer], :void
-
-		VT_EMPTY = 0
-		VT_NULL = 1
-		VT_I2 = 2
-		VT_I4 = 3
-		VT_R4 = 4
-		VT_R8 = 5
-		VT_CY = 6
-		VT_DATE = 7
-		VT_BSTR = 8
-		VT_DISPATCH = 9
-		VT_ERROR = 10
-		VT_BOOL = 11
-		VT_VARIANT = 12
-		VT_UNKNOWN = 13
-		VT_DECIMAL = 14
-		VT_I1 = 16
-		VT_UI1 = 17
-		VT_UI2 = 18
-		VT_UI4 = 19
-		VT_I8 = 20
-		VT_UI8 = 21
-		VT_INT = 22
-		VT_UINT = 23
-		VT_VOID = 24
-		VT_HRESULT = 25
-		VT_PTR = 26
-		VT_SAFEARRAY = 27
-		VT_CARRAY = 28
-		VT_USERDEFINED = 29
-		VT_LPSTR = 30
-		VT_LPWSTR = 31
-		VT_FILETIME = 64
-		VT_BLOB = 65
-		VT_STREAM = 66
-		VT_STORAGE = 67
-		VT_STREAMED_OBJECT = 68
-		VT_STORED_OBJECT = 69
-		VT_BLOB_OBJECT = 70
-		VT_CF = 71
-		VT_CLSID = 72
-		VT_VECTOR = 0x1000
-		VT_ARRAY = 0x2000
-		VT_BYREF = 0x4000
-		VT_RESERVED = 0x8000
-		VT_ILLEGAL = 0xffff
-		VT_ILLEGALMASKED = 0xfff
-		VT_TYPEMASK = 0xff
-
-		class PROPERTYKEY < FFI::Struct
-			layout \
-				:fmtid, GUID,
-				:pid, :ulong
-
-			def self.[](type, index)
-				new.tap { |key|
-					key[:fmtid].tap { |guid|
-						guid[:Data1] = 0x00000000 + index
-						guid[:Data2] = 0x7363
-						guid[:Data3] = 0x696e
-						[0x84, 0x41, 0x79, 0x8a, 0xcf, 0x5a, 0xeb, 0xb7].each_with_index { |part, i|
-							guid[:Data4][i] = part
-						}
-					}
-
-					key[:pid] = type
-				}
-			end
-
-			def ==(other) Windows.memcmp(other, self, size) == 0 end
-		end
-
-		class LARGE_INTEGER < FFI::Union
-			include AnonymousSupport
-
-			layout \
-				:_, Class.new(FFI::Struct) {
-					layout \
-						:LowPart, :ulong,
-						:HighPart, :long
-				},
-
-				:QuadPart, :long_long
-		end
-
-		class ULARGE_INTEGER < FFI::Union
-			include AnonymousSupport
-
-			layout \
-				:_, Class.new(FFI::Struct) {
-					layout \
-						:LowPart, :ulong,
-						:HighPart, :ulong
-				},
-
-				:QuadPart, :ulong_long
-		end
-
-		class FILETIME < FFI::Struct
-			layout \
-				:dwLowDateTime, :ulong,
-				:dwHighDateTime, :ulong
-		end
-
-		class BSTRBLOB < FFI::Struct
-			layout \
-				:cbSize, :ulong,
-				:pData, :pointer
-		end
-
-		class BLOB < FFI::Struct
-			layout \
-				:cbSize, :ulong,
-				:pBlobData, :pointer
-		end
-
-		class CA < FFI::Struct
-			layout \
-				:cElems, :ulong,
-				:pElems, :pointer
-		end
-
-		class DECIMAL < FFI::Struct
-			layout \
-				:wReserved, :ushort,
-				:scale, :uchar,
-				:sign, :uchar,
-				:Hi32, :ulong,
-				:Lo64, :ulong_long
-		end
-
-		class PROPVARIANT < FFI::Union
-			include AnonymousSupport
-
-			layout \
-				:_, Class.new(FFI::Struct) {
-					layout \
-						:vt, :ushort,
-						:wReserved1, :ushort,
-						:wReserved2, :ushort,
-						:wReserved3, :ushort,
-						:_, Class.new(FFI::Union) {
-							layout \
-								:cVal, :char,
-								:bVal, :uchar,
-								:iVal, :short,
-								:uiVal, :ushort,
-								:lVal, :long,
-								:ulVal, :ulong,
-								:intVal, :int,
-								:uintVal, :uint,
-								:hVal, LARGE_INTEGER,
-								:uhVal, ULARGE_INTEGER,
-								:fltVal, :float,
-								:dblVal, :double,
-								:boolVal, :short,
-								:bool, :short,
-								:scode, :long,
-								:cyVal, :long_long,
-								:date, :double,
-								:filetime, FILETIME,
-								:puuid, :pointer,
-								:pclipdata, :pointer,
-								:bstrVal, :pointer,
-								:bstrblobVal, BSTRBLOB,
-								:blob, BLOB,
-								:pszVal, :pointer,
-								:pwszVal, :pointer,
-								:punkVal, :pointer,
-								:pdispVal, :pointer,
-								:pStream, :pointer,
-								:pStorage, :pointer,
-								:pVersionedStream, :pointer,
-								:parray, :pointer,
-								:cac, CA,
-								:caub, CA,
-								:cai, CA,
-								:caui, CA,
-								:cal, CA,
-								:caul, CA,
-								:cah, CA,
-								:cauh, CA,
-								:caflt, CA,
-								:cadbl, CA,
-								:cabool, CA,
-								:cascode, CA,
-								:cacy, CA,
-								:cadate, CA,
-								:cafiletime, CA,
-								:cauuid, CA,
-								:caclipdata, CA,
-								:cabstr, CA,
-								:cabstrblob, CA,
-								:calpstr, CA,
-								:calpwstr, CA,
-								:capropvar, CA,
-								:pcVal, :pointer,
-								:pbVal, :pointer,
-								:piVal, :pointer,
-								:puiVal, :pointer,
-								:plVal, :pointer,
-								:pulVal, :pointer,
-								:pintVal, :pointer,
-								:puintVal, :pointer,
-								:pfltVal, :pointer,
-								:pdblVal, :pointer,
-								:pboolVal, :pointer,
-								:pdecVal, :pointer,
-								:pscode, :pointer,
-								:pcyVal, :pointer,
-								:pdate, :pointer,
-								:pbstrVal, :pointer,
-								:ppunkVal, :pointer,
-								:ppdispVal, :pointer,
-								:pparray, :pointer,
-								:pvarVal, :pointer
-						}
-				},
-
-				:decVal, DECIMAL
-
-			def self.[](t, *v) new.tap { |var| var.send("#{t}=", *v) } end
-
-			def bool; raise 'Wrong type tag.' unless self[:vt] == VT_BOOL; self[:boolVal] != 0 end
-			def bool=(bool) self[:vt] = VT_BOOL; self[:boolVal] = (bool) ? -1 : 0 end
-
-			def int; raise 'Wrong type tag.' unless self[:vt] == VT_I4; self[:intVal] end
-			def int=(int) self[:vt] = VT_I4; self[:intVal] = int end
-
-			def uint; raise 'Wrong type tag.' unless self[:vt] == VT_UI4; self[:uintVal] end
-			def uint=(uint) self[:vt] = VT_UI4; self[:uintVal] = uint end
-
-			def unknown
-				raise 'Wrong type tag.' unless self[:vt] == VT_UNKNOWN
-
-				yield Unknown.new(self[:punkVal])
-			ensure
-				Windows.PropVariantClear(self)
-			end
-
-			def unknown=(unknown) self[:vt] = VT_UNKNOWN; self[:punkVal] = unknown.pointer; unknown.AddRef end
-
-			def wstring; raise 'Wrong type tag.' unless self[:vt] == VT_LPWSTR; Windows.WCSTOMBS(self[:pwszVal]) end
-
-			def wstring=(string)
-				self[:vt] = VT_LPWSTR
-
-				FFI::MemoryPointer.new(:pointer) { |p|
-					Windows.DetonateHresult(:SHStrDup, string, p)
-
-					self[:pwszVal] = p.read_pointer
-				}
-			end
-
-			def decimal
-				raise 'Wrong type tag.' unless self[:vt] == VT_DECIMAL
-
-				Rational(self[:decVal][:Lo64], 10 ** self[:decVal][:scale]) + self[:decVal][:Hi32]
-			end
-
-			def decimal=(decimal) self[:vt] = VT_DECIMAL; self[:decVal][:Lo64] = decimal end
-		end
-
-		attach_function :PropVariantClear, [:pointer], :long
-
-		ffi_lib 'oleaut32'
-		ffi_convention :stdcall
-
-		attach_function :SysAllocString, [:buffer_in], :pointer
-		attach_function :SysFreeString, [:pointer], :void
-		attach_function :SysStringLen, [:pointer], :uint
-
-		OLEIVERB_PRIMARY = 0
-		OLEIVERB_SHOW = -1
-		OLEIVERB_OPEN = -2
-		OLEIVERB_HIDE = -3
-		OLEIVERB_UIACTIVATE = -4
-		OLEIVERB_INPLACEACTIVATE = -5
-		OLEIVERB_DISCARDUNDOSTATE = -6
-
-		IOleWindow = COM::Interface[IUnknown,
-			GUID['00000114-0000-0000-C000-000000000046'],
-
-			GetWindow: [[:pointer], :long],
-			ContextSensitiveHelp: [[:int], :long]
-		]
-
-		OleWindow = COM::Instance[IOleWindow]
-
-		IOleInPlaceSite = COM::Interface[IOleWindow,
-			GUID['00000119-0000-0000-C000-000000000046'],
-
-			CanInPlaceActivate: [[], :long],
-			OnInPlaceActivate: [[], :long],
-			OnUIActivate: [[], :long],
-			GetWindowContext: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
-			Scroll: [[:long_long], :long],
-			OnUIDeactivate: [[:int], :long],
-			OnInPlaceDeactivate: [[], :long],
-			DiscardUndoState: [[], :long],
-			DeactivateAndUndo: [[], :long],
-			OnPosRectChange: [[:pointer], :long]
-		]
-
-		OleInPlaceSite = COM::Callback[IOleInPlaceSite]
-
-		IOleInPlaceUIWindow = COM::Interface[IOleWindow,
-			GUID['00000115-0000-0000-C000-000000000046'],
-
-			GetBorder: [[:pointer], :long],
-			RequestBorderSpace: [[:pointer], :long],
-			SetBorderSpace: [[:pointer], :long],
-			SetActiveObject: [[:pointer], :long]
-		]
-
-		OleInPlaceUIWindow = COM::Callback[IOleInPlaceUIWindow]
-
-		class OLEINPLACEFRAMEINFO < FFI::Struct
-			layout \
-				:cb, :uint,
-				:fMDIApp, :int,
-				:hwndFrame, :pointer,
-				:haccel, :pointer,
-				:cAccelEntries, :uint
-		end
-
-		class OLEMENUGROUPWIDTHS < FFI::Struct
-			layout \
-				:width, [:long, 6]
-		end
-
-		IOleInPlaceFrame = COM::Interface[IOleInPlaceUIWindow,
-			GUID['00000116-0000-0000-C000-000000000046'],
-
-			InsertMenus: [[:pointer, :pointer], :long],
-			SetMenu: [[:pointer, :pointer, :pointer], :long],
-			RemoveMenus: [[:pointer], :long],
-			SetStatusText: [[:pointer], :long],
-			EnableModeless: [[:int], :long],
-			TranslateAccelerator: [[:pointer, :ushort], :long]
-		]
-
-		OleInPlaceFrame = COM::Callback[IOleInPlaceFrame]
-
-		IOleClientSite = COM::Interface[IUnknown,
-			GUID['00000118-0000-0000-C000-000000000046'],
-
-			SaveObject: [[], :long],
-			GetMoniker: [[:ulong, :ulong, :pointer], :long],
-			GetContainer: [[:pointer], :long],
-			ShowObject: [[], :long],
-			OnShowWindow: [[:int], :long],
-			RequestNewObjectLayout: [[], :long]
-		]
-
-		OleClientSite = COM::Callback[IOleClientSite]
-
-		OLEGETMONIKER_ONLYIFTHERE = 1
-		OLEGETMONIKER_FORCEASSIGN = 2
-		OLEGETMONIKER_UNASSIGN = 3
-		OLEGETMONIKER_TEMPFORUSER = 4
-
-		OLEWHICHMK_CONTAINER = 1
-		OLEWHICHMK_OBJREL = 2
-		OLEWHICHMK_OBJFULL = 3
-
-		USERCLASSTYPE_FULL = 1
-		USERCLASSTYPE_SHORT = 2
-		USERCLASSTYPE_APPNAME = 3
-
-		OLEMISC_RECOMPOSEONRESIZE = 0x00000001
-		OLEMISC_ONLYICONIC = 0x00000002
-		OLEMISC_INSERTNOTREPLACE = 0x00000004
-		OLEMISC_STATIC = 0x00000008
-		OLEMISC_CANTLINKINSIDE = 0x00000010
-		OLEMISC_CANLINKBYOLE1 = 0x00000020
-		OLEMISC_ISLINKOBJECT = 0x00000040
-		OLEMISC_INSIDEOUT = 0x00000080
-		OLEMISC_ACTIVATEWHENVISIBLE = 0x00000100
-		OLEMISC_RENDERINGISDEVICEINDEPENDENT = 0x00000200
-		OLEMISC_INVISIBLEATRUNTIME = 0x00000400
-		OLEMISC_ALWAYSRUN = 0x00000800
-		OLEMISC_ACTSLIKEBUTTON = 0x00001000
-		OLEMISC_ACTSLIKELABEL = 0x00002000
-		OLEMISC_NOUIACTIVATE = 0x00004000
-		OLEMISC_ALIGNABLE = 0x00008000
-		OLEMISC_SIMPLEFRAME = 0x00010000
-		OLEMISC_SETCLIENTSITEFIRST = 0x00020000
-		OLEMISC_IMEMODE = 0x00040000
-		OLEMISC_IGNOREACTIVATEWHENVISIBLE = 0x00080000
-		OLEMISC_WANTSTOMENUMERGE = 0x00100000
-		OLEMISC_SUPPORTSMULTILEVELUNDO = 0x00200000
-
-		OLECLOSE_SAVEIFDIRTY = 0
-		OLECLOSE_NOSAVE = 1
-		OLECLOSE_PROMPTSAVE = 2
-
-		IOleObject = COM::Interface[IUnknown,
-			GUID['00000112-0000-0000-C000-000000000046'],
-
-			SetClientSite: [[:pointer], :long],
-			GetClientSite: [[:pointer], :long],
-			SetHostNames: [[:pointer, :pointer], :long],
-			Close: [[:ulong], :long],
-			SetMoniker: [[:ulong, :pointer], :long],
-			GetMoniker: [[:ulong, :ulong, :pointer], :long],
-			InitFromData: [[:pointer, :int, :ulong], :long],
-			GetClipboardData: [[:ulong, :pointer], :long],
-			DoVerb: [[:long, :pointer, :pointer, :long, :pointer, :pointer], :long],
-			EnumVerbs: [[:pointer], :long],
-			Update: [[], :long],
-			IsUpToDate: [[], :long],
-			GetUserClassID: [[:pointer], :long],
-			GetUserType: [[:ulong, :pointer], :long],
-			SetExtent: [[:ulong, :pointer], :long],
-			GetExtent: [[:ulong, :pointer], :long],
-			Advise: [[:pointer, :pointer], :long],
-			Unadvise: [[:ulong], :long],
-			EnumAdvise: [[:pointer], :long],
-			GetMiscStatus: [[:ulong, :pointer], :long],
-			SetColorScheme: [[:pointer], :long]
-		]
-
-		OleObject = COM::Instance[IOleObject]
-	end
-end