RubyGems - fzeet - Versions diffs - 0.6.5 → 0.6.6 - Mend

fzeet 0.6.5 → 0.6.6

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (140) hide show

data/LICENSE_CEF +29 -0
data/checks/Bstr.rb +14 -0
data/checks/Decimal.rb +27 -0
data/checks/OSVERSIONINFOEX.rb +14 -0
data/checks/Point.rb +65 -0
data/checks/Rect.rb +104 -0
data/checks/RunAll.rb +2 -0
data/checks/SafeArray.rb +27 -0
data/checks/Size.rb +45 -0
data/checks/SystemTime.rb +43 -0
data/checks/Variant.rb +160 -0
data/examples/Control/DateTimePicker.rbw +1 -1
data/examples/Control/MonthCalendar.rbw +1 -1
data/examples/Control/{WebBrowser.rbw → WebBrowser/WebBrowser.rbw} +2 -2
data/examples/Control/{WebBrowser1.rbw → WebBrowser/WebBrowser1.rbw} +0 -0
data/examples/Control/WebBrowser/WebBrowser2.rbw +24 -0
data/examples/Control/{WebBrowser3.rbw → WebBrowser/WebBrowser3.rbw} +0 -0
data/examples/Control/{WebBrowser4.rbw → WebBrowser/WebBrowser4.rbw} +8 -3
data/examples/Control/{WebBrowser4Sinatra.rb → WebBrowser/WebBrowser4Sinatra.rb} +0 -0
data/examples/Control/{WebBrowser5.rbw → WebBrowser/WebBrowser5.rbw} +4 -2
data/examples/Control/WebBrowser/jQueryUI.html +53 -0
data/examples/Control/WebBrowser/jQueryUI.rbw +26 -0
data/examples/MDI.rbw +2 -2
data/examples/Raw/UIRibbon/Command.rbw +3 -3
data/examples/Raw/UIRibbon/Minimal.rbw +3 -3
data/examples/Version.rbw +1 -1
data/lib/fzeet.rb +22 -7
data/lib/fzeet/windows.rb +82 -5
data/lib/fzeet/windows/com.rb +1 -318
data/lib/fzeet/windows/com/Common.rb +318 -0
data/lib/fzeet/windows/comctl.rb +1 -1
data/lib/fzeet/windows/comctl/ComboBoxEx.rb +32 -0
data/lib/fzeet/windows/comctl/DateTimePicker.rb +35 -0
data/lib/fzeet/windows/comctl/Header.rb +61 -1
data/lib/fzeet/windows/comctl/ListView.rb +133 -3
data/lib/fzeet/windows/comctl/MonthCalendar.rb +35 -0
data/lib/fzeet/windows/comctl/ProgressBar.rb +37 -0
data/lib/fzeet/windows/comctl/PropertySheet.rb +50 -2
data/lib/fzeet/windows/comctl/SysLink.rb +37 -0
data/lib/fzeet/windows/comctl/Tab.rb +56 -0
data/lib/fzeet/windows/comctl/TreeView.rb +81 -2
data/lib/fzeet/windows/comctl/UpDown.rb +33 -0
data/lib/fzeet/windows/comdlg.rb +1 -0
data/lib/fzeet/windows/comdlg/ColorDialog.rb +41 -0
data/lib/fzeet/windows/comdlg/Common.rb +87 -0
data/lib/fzeet/windows/comdlg/FileDialog.rb +133 -0
data/lib/fzeet/windows/comdlg/FindReplaceDialog.rb +102 -0
data/lib/fzeet/windows/comdlg/FontDialog.rb +36 -0
data/lib/fzeet/windows/comdlg/PrintDialog.rb +72 -0
data/lib/fzeet/{Dialog → windows/comdlg}/ShellFileDialog.rb +0 -0
data/lib/fzeet/windows/core.rb +5 -0
data/lib/fzeet/windows/core/Common.rb +324 -0
data/lib/fzeet/windows/core/Point.rb +42 -0
data/lib/fzeet/windows/core/Rect.rb +114 -0
data/lib/fzeet/windows/core/Size.rb +34 -0
data/lib/fzeet/windows/core/SystemTime.rb +46 -0
data/lib/fzeet/windows/core/Version.rb +57 -0
data/lib/fzeet/windows/gdi.rb +1 -62
data/lib/fzeet/windows/gdi/Common.rb +40 -0
data/lib/fzeet/windows/gdi/Font.rb +64 -0
data/lib/fzeet/windows/kernel.rb +1 -92
data/lib/fzeet/windows/kernel/Common.rb +92 -0
data/lib/fzeet/windows/libc.rb +1 -1
data/lib/fzeet/windows/libcef.rb +1 -0
data/lib/fzeet/windows/mshtml.rb +1 -1135
data/lib/fzeet/windows/mshtml/Common.rb +1135 -0
data/lib/fzeet/windows/ole.rb +1 -561
data/lib/fzeet/windows/ole/Common.rb +112 -0
data/lib/fzeet/windows/ole/PropVariant.rb +141 -0
data/lib/fzeet/windows/oleaut.rb +3 -0
data/lib/fzeet/windows/oleaut/Bstr.rb +39 -0
data/lib/fzeet/windows/oleaut/Common.rb +187 -0
data/lib/fzeet/windows/oleaut/SafeArray.rb +104 -0
data/lib/fzeet/windows/oleaut/Variant.rb +269 -0
data/lib/fzeet/windows/scintilla.rb +115 -1
data/lib/fzeet/windows/{SciLexer.dll → scintilla/SciLexer.dll} +0 -0
data/lib/fzeet/windows/shdocvw.rb +150 -0
data/lib/fzeet/windows/shell.rb +1 -1
data/lib/fzeet/windows/shell/Common.rb +94 -2
data/lib/fzeet/windows/shlwapi.rb +1 -1
data/lib/fzeet/windows/uiribbon.rb +416 -0
data/lib/fzeet/windows/urlmon.rb +2 -2
data/lib/fzeet/windows/user.rb +20 -0
data/lib/fzeet/windows/user/Accelerator.rb +45 -0
data/lib/fzeet/windows/user/Common.rb +3 -2
data/lib/fzeet/windows/user/Control/Button.rb +54 -0
data/lib/fzeet/windows/user/Control/ComboBox.rb +44 -1
data/lib/fzeet/windows/user/Control/Common.rb +88 -1
data/lib/fzeet/windows/user/Control/Edit.rb +50 -0
data/lib/fzeet/windows/user/Control/ListBox.rb +69 -0
data/lib/fzeet/windows/user/Control/Static.rb +31 -0
data/lib/fzeet/windows/user/Menu.rb +130 -0
data/lib/fzeet/windows/user/Message.rb +9 -0
data/lib/fzeet/windows/user/MessageBox.rb +47 -0
data/lib/fzeet/windows/user/SystemParametersInfo.rb +1 -1
data/lib/fzeet/windows/user/Window.rb +5 -463
data/lib/fzeet/{Window → windows/user/Window}/Common.rb +460 -0
data/lib/fzeet/{Window → windows/user/Window}/Container.rb +0 -0
data/lib/fzeet/{Window → windows/user/Window}/Dialog.rb +0 -0
data/lib/fzeet/{Window → windows/user/Window}/MDI.rb +0 -0
data/lib/fzeet/{Window → windows/user/Window}/View.rb +0 -0
data/lib/fzeet/{Window → windows/user/Window}/Window.rb +0 -0
data/lib/fzeet/{Window → windows/user/Window}/WindowMethods.rb +1 -1
metadata +55 -61
data/examples/Control/WebBrowser2.rbw +0 -39
data/lib/fzeet/Accelerator.rb +0 -48
data/lib/fzeet/Application.rb +0 -71
data/lib/fzeet/Common.rb +0 -350
data/lib/fzeet/Control.rb +0 -19
data/lib/fzeet/Control/Button.rb +0 -57
data/lib/fzeet/Control/ComboBox.rb +0 -46
data/lib/fzeet/Control/ComboBoxEx.rb +0 -35
data/lib/fzeet/Control/Common.rb +0 -89
data/lib/fzeet/Control/DateTimePicker.rb +0 -38
data/lib/fzeet/Control/Edit.rb +0 -53
data/lib/fzeet/Control/ExplorerBrowser.rb +0 -66
data/lib/fzeet/Control/Header.rb +0 -63
data/lib/fzeet/Control/ListBox.rb +0 -72
data/lib/fzeet/Control/ListView.rb +0 -133
data/lib/fzeet/Control/MonthCalendar.rb +0 -38
data/lib/fzeet/Control/ProgressBar.rb +0 -40
data/lib/fzeet/Control/PropertySheet.rb +0 -51
data/lib/fzeet/Control/Scintilla.rb +0 -117
data/lib/fzeet/Control/Static.rb +0 -34
data/lib/fzeet/Control/SysLink.rb +0 -40
data/lib/fzeet/Control/Tab.rb +0 -59
data/lib/fzeet/Control/TreeView.rb +0 -82
data/lib/fzeet/Control/UpDown.rb +0 -36
data/lib/fzeet/Control/WebBrowser.rb +0 -153
data/lib/fzeet/Dialog.rb +0 -6
data/lib/fzeet/Dialog/ColorDialog.rb +0 -44
data/lib/fzeet/Dialog/Common.rb +0 -89
data/lib/fzeet/Dialog/FileDialog.rb +0 -136
data/lib/fzeet/Dialog/FindReplaceDialog.rb +0 -105
data/lib/fzeet/Dialog/FontDialog.rb +0 -39
data/lib/fzeet/Dialog/PrintDialog.rb +0 -75
data/lib/fzeet/Menu.rb +0 -133
data/lib/fzeet/UIRibbon.rb +0 -417
data/lib/fzeet/Window.rb +0 -5
data/lib/fzeet/windows/common.rb +0 -244

data/examples/Control/DateTimePicker.rbw CHANGED Viewed

@@ -5,5 +5,5 @@ include Fzeet
 Application.run { |window| window.dialog = true
 	DateTimePicker.new(window, :datetime1, position: [10, 10, 150, 24])
-	window[:datetime1].on(:datetimechange) { |args| message args[:st].to_local }
+	window[:datetime1].on(:datetimechange) { |args| message args[:st].get }
 }

data/examples/Control/MonthCalendar.rbw CHANGED Viewed

@@ -5,5 +5,5 @@ include Fzeet
 Application.run { |window| window.dialog = true
 	MonthCalendar.new(window, :monthcal1, position: [10, 10, 240, 170])
-	window[:monthcal1].on(:selchange) { |args| message args[:st1].to_local }
+	window[:monthcal1].on(:selchange) { |args| message args[:st1].get }
 }

data/examples/Control/{WebBrowser.rbw → WebBrowser/WebBrowser.rbw} RENAMED Viewed

@@ -17,9 +17,9 @@ Application.run { |window|
 	(browser = WebBrowser.new(window)).
 		on(:NavigateComplete) { |dispParams|
-			next if dispParams[:cArgs] < 1 || (arg1 = Windows::VARIANT.new(dispParams[:rgvarg]))[:vt] != Windows::VT_BSTR
+			next if dispParams[:cArgs] < 1 || (arg1 = Variant.new(dispParams[:rgvarg]))[:vt] != Windows::VT_BSTR
-			message Windows.WCSTOMBS(arg1[:bstrVal])
+			message arg1.string
 			browser.document.
 				on(:click) { message 'on(:click)' }.

data/examples/Control/{WebBrowser1.rbw → WebBrowser/WebBrowser1.rbw} RENAMED Viewed

File without changes

data/examples/Control/WebBrowser/WebBrowser2.rbw ADDED Viewed

@@ -0,0 +1,24 @@
+require 'fzeet'
+include Fzeet
+Application.run { |window|
+	(browser = WebBrowser.new(window)).
+		on(:NavigateComplete) {
+			SafeArray.vector(1) { |sa|
+				browser.document.write(sa.put(0, Variant[:bstr, %{
+<!doctype html>
+<html>
+	<head>
+		<title>Hello</title>
+	</head>
+	<body>
+<h1>Hello, world!</h1>
+	</body>
+</html>
+				}]))
+			}
+		}.
+		goto('about:blank')
+}

data/examples/Control/{WebBrowser3.rbw → WebBrowser/WebBrowser3.rbw} RENAMED Viewed

File without changes

data/examples/Control/{WebBrowser4.rbw → WebBrowser/WebBrowser4.rbw} RENAMED Viewed

@@ -15,7 +15,9 @@ Application.run { |window|
 				(body = all.get('body').get(0)).
 					css(overflow: 'auto').
 					innerHTML = <<-HTML
-<button id='button1'>Button1</button> <span id='span1'></span>
+<div>
+	<button id='button1'>Button1</button> <span id='span1'></span>
+</div>
 					HTML
 				button1 = nil
@@ -24,7 +26,10 @@ Application.run { |window|
 					on(:readystatechange) {
 						next unless request.readyState == 4
-						all.get('#span1').innerText = request.responseText if request.status == 200
+						all.get('#span1').innerText = case status = request.status
+						when 200; request.responseText
+						else "Error: status = #{status}"
+						end
 						button1.attr(:disabled, false)
 					}
@@ -33,7 +38,7 @@ Application.run { |window|
 					on(:click) {
 						request.
 							open('http://localhost:4567/hello').
-							send(Windows::VARIANT.new)
+							send(Variant.new)
 						button1.attr(:disabled, true)
 					}

data/examples/Control/{WebBrowser4Sinatra.rb → WebBrowser/WebBrowser4Sinatra.rb} RENAMED Viewed

File without changes

data/examples/Control/{WebBrowser5.rbw → WebBrowser/WebBrowser5.rbw} RENAMED Viewed

@@ -15,7 +15,9 @@ Application.run { |window|
 				(body = all.get('body').get(0)).
 					css(overflow: 'auto').
 					innerHTML = <<-HTML
-<button id='button1'>Button1</button> <span id='span1'></span>
+<div>
+	<button id='button1'>Button1</button> <span id='span1'></span>
+</div>
 					HTML
 				button1 = nil
@@ -43,7 +45,7 @@ Application.run { |window|
 					on(:click) {
 						xrequest.
 							open('http://localhost:4567/hello').
-							send(Windows::VARIANT.new)
+							send(Variant.new)
 						button1.attr(:disabled, true)
 					}

data/examples/Control/WebBrowser/jQueryUI.html ADDED Viewed

@@ -0,0 +1,53 @@
+<!doctype html>
+<html>
+	<head>
+		<title>jQueryUI</title>
+		<link rel='stylesheet' href='http://ajax.googleapis.com/ajax/libs/jqueryui/1.8/themes/smoothness/jquery-ui.css' />
+		<style>
+* {
+	font-size: small;
+}
+#themeswitcher {
+	float: right;
+}
+#tabs {
+	clear: both;
+}
+		</style>
+		<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.4/jquery.min.js'></script>
+		<script src='http://ajax.googleapis.com/ajax/libs/jqueryui/1.8/jquery-ui.min.js'></script>
+		<script src='http://jqueryui.com/themeroller/themeswitchertool/'></script>
+		<script>
+jQuery(function (j) {
+	j('#themeswitcher').themeswitcher({width: 250, height: 600, closeOnSelect: false});
+	j('#tabs').tabs();
+});
+		</script>
+	</head>
+	<body>
+<div id='themeswitcher'></div>
+<div id='tabs'>
+	<ul>
+		<li><a id='tab1' href='#page1'>tab1</a></li>
+		<li><a id='tab2' href='#page2'>tab2</a></li>
+	</ul>
+	<div id='page1'>
+Page1...
+	</div>
+	<div id='page2'>
+Page2...
+	</div>
+</div>
+	</body>
+</html>

data/examples/Control/WebBrowser/jQueryUI.rbw ADDED Viewed

@@ -0,0 +1,26 @@
+require 'fzeet'
+include Fzeet
+Application.run { |window|
+	(browser = WebBrowser.new(window)).
+		on(:NavigateComplete) {
+			browser.document.on(:ready) {
+				all = browser.document.all
+				all.get('html').get(0).
+					css(overflow: 'auto')
+				all.get('body').get(0).
+					css(overflow: 'auto', margin: '0', padding: '0', background: '#cedefa')
+				(tab1 = all.get('#tab1')).
+					on(:click) { message tab1.attr('href').split('#').last }
+				(tab2 = all.get('#tab2')).
+					on(:click) { message tab2.attr('href').split('#').last }
+			}
+		}.
+		goto("file:///#{File.expand_path('jQueryUI.html')}")
+}

data/examples/MDI.rbw CHANGED Viewed

@@ -52,7 +52,7 @@ Press Cancel to leave the window open
 		}.
 		on(:command, :open) {
-			((Windows::WINVER.AtLeastWindowsVista?) ? ShellFileOpenDialog : FileOpenDialog).new { |dialog|
+			((Windows::Version >= :vista) ? ShellFileOpenDialog : FileOpenDialog).new { |dialog|
 				dialog.multiselect = true
 				next unless dialog.show.ok?
@@ -70,7 +70,7 @@ Press Cancel to leave the window open
 		}.
 		on(:command, :saveAs) {
-			((Windows::WINVER.AtLeastWindowsVista?) ? ShellFileSaveDialog : FileSaveDialog).new { |dialog|
+			((Windows::Version >= :vista) ? ShellFileSaveDialog : FileSaveDialog).new { |dialog|
 				next unless dialog.show.ok?
 				child = window.activeChild

data/examples/Raw/UIRibbon/Command.rbw CHANGED Viewed

@@ -44,8 +44,8 @@ Fzeet::Application.run { |window|
 	UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
 	window.on(:destroy) {
-		UICH.Release
-		UIA.Release
-		UIF.Destroy; UIF.Release
+		raise unless UIF.Destroy == S_OK; raise unless UIF.Release == 0
+		raise unless UIA.Release == 0
+		raise unless UICH.Release == 0
 	}
 }

data/examples/Raw/UIRibbon/Minimal.rbw CHANGED Viewed

@@ -32,8 +32,8 @@ Fzeet::Application.run { |window|
 	UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
 	window.on(:destroy) {
-		UICH.Release
-		UIA.Release
-		UIF.Destroy; UIF.Release
+		raise unless UIF.Destroy == S_OK; raise unless UIF.Release == 0
+		raise unless UIA.Release == 0
+		raise unless UICH.Release == 0
 	}
 }

data/examples/Version.rbw CHANGED Viewed

@@ -5,5 +5,5 @@ include Fzeet
 message <<-MSG
 Ruby #{RUBY_VERSION}-p#{RUBY_PATCHLEVEL}
-Windows #{Windows::WINVER}
+Windows #{Windows::Version}
 MSG

data/lib/fzeet.rb CHANGED Viewed

@@ -1,7 +1,22 @@
-require_relative 'fzeet/Window'
-require_relative 'fzeet/Application'
-require_relative 'fzeet/Menu'
-require_relative 'fzeet/Accelerator'
-require_relative 'fzeet/Control'
-require_relative 'fzeet/Dialog'
-require_relative 'fzeet/UIRibbon' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
+require_relative 'fzeet/windows'
+module Fzeet::Windows
+	DetonateLastError(0, :InitCommonControlsEx,
+		INITCOMMONCONTROLSEX.new.tap { |icc|
+			icc[:dwSize] = icc.size
+			icc[:dwICC] = \
+				ICC_WIN95_CLASSES |
+				ICC_DATE_CLASSES |
+				ICC_USEREX_CLASSES |
+				ICC_COOL_CLASSES |
+				ICC_INTERNET_CLASSES |
+				ICC_PAGESCROLLER_CLASS
+		}
+	)
+	EnableVisualStyles()
+	DetonateLastError(0, :SetProcessDPIAware) if Version >= :vista
+	InitializeOle()
+end

data/lib/fzeet/windows.rb CHANGED Viewed

@@ -5,23 +5,100 @@ require_relative 'windows/user'
 require_relative 'windows/gdi'
 require_relative 'windows/comctl'
-require_relative 'windows/scintilla' if Fzeet::Windows::WINVER.AtLeastWindowsXP?
+require_relative 'windows/scintilla' if Fzeet::Windows::Version >= :xp
+#require_relative 'windows/libcef' if Fzeet::Windows::Version >= :xp
 require_relative 'windows/comdlg'
 require_relative 'windows/com'
 require_relative 'windows/ole'
+require_relative 'windows/oleaut'
 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?
+require_relative 'windows/propsys' if Fzeet::Windows::Version >= :vista
-require_relative 'windows/uiribbon' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
+require_relative 'windows/uiribbon' if Fzeet::Windows::Version >= :vista
 Fzeet::Windows.DetonateLastError(FFI::Pointer::NULL,
 	:LoadLibrary,
-	"#{File.dirname(File.expand_path(__FILE__))}/windows/SciLexer.dll"
-).tap { |hdll| at_exit { Fzeet::Windows.FreeLibrary(hdll) } } if Fzeet::Windows::WINVER.AtLeastWindowsXP?
+	"#{File.dirname(File.expand_path(__FILE__))}/windows/scintilla/SciLexer.dll"
+).tap { |hdll| at_exit { Fzeet::Windows.FreeLibrary(hdll) } } if Fzeet::Windows::Version >= :xp
+#Fzeet::Windows.DetonateLastError(FFI::Pointer::NULL,
+#	:LoadLibrary,
+#	"#{File.dirname(File.expand_path(__FILE__))}/windows/libcef/libcef.dll"
+#).tap { |hdll| at_exit { Fzeet::Windows.FreeLibrary(hdll) } } if Fzeet::Windows::Version >= :xp
+module Fzeet
+	class Application
+		@name = File.basename($0, '.rbw')
+		@version = '0.1.0'
+		@authors = []
+		@quitWhenMainWindowCloses = true
+		@window = nil
+		@accelerators = []
+		@dialogs = []
+		@images = {}
+		Fzeet.using(ScreenDC.new) { |dc|
+			@devcaps = {
+				logpixelsy: Windows.GetDeviceCaps(dc.handle, Windows::LOGPIXELSY)
+			}
+		}
+		class << self
+			attr_accessor :name, :version, :authors, :quitWhenMainWindowCloses
+			attr_reader :window, :accelerators, :dialogs, :images, :devcaps
+		end
+		def self.window=(window)
+			raise 'Application.window already set.' if @window
+			@window = window
+		end
+		def self.run(windowOrOpts = {}, &block)
+			@window = case windowOrOpts
+			when BasicWindow; windowOrOpts.tap { |window| block.call(window) if block }
+			when Hash
+				if windowOrOpts[:deferCreateWindow].tap { windowOrOpts.delete_if { |k, v| k == :deferCreateWindow } }
+					Window.new(windowOrOpts, &block)
+				else
+					Window.new(windowOrOpts).tap { |window| block.call(window) if block }
+				end
+			else raise ArgumentError
+			end
+			return 0 if window.handle.null?
+			@window.on(:destroy) { quit } if @quitWhenMainWindowCloses
+			@window.show.update
+			msg = Message.new
+			while msg.get!
+				msg.translate.dispatch unless
+					(window.client && Windows.TranslateMDISysAccel(window.client.handle, msg) != 0) ||
+					accelerators.any? { |table| table.translate?(msg, @window) } ||
+					dialogs.any? { |dialog| dialog.dlgmsg?(msg) }
+			end
+			msg[:wParam]
+		rescue
+			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+		end
+		def self.quit(code = 0)
+			accelerators.each(&:dispose)
+			images.values.each(&:dispose)
+			Windows.PostQuitMessage(code)
+		end
+	end
+end

data/lib/fzeet/windows/com.rb CHANGED Viewed

@@ -1,318 +1 @@
-require_relative 'common'
-module Fzeet
-	module Windows
-		ffi_lib 'ole32'
-		ffi_convention :stdcall
-		S_OK = 0
-		S_FALSE = 1
-		E_UNEXPECTED = 0x8000FFFF - 0x1_0000_0000
-		E_NOTIMPL = 0x80004001 - 0x1_0000_0000
-		E_OUTOFMEMORY = 0x8007000E - 0x1_0000_0000
-		E_INVALIDARG = 0x80070057 - 0x1_0000_0000
-		E_NOINTERFACE = 0x80004002 - 0x1_0000_0000
-		E_POINTER = 0x80004003 - 0x1_0000_0000
-		E_HANDLE = 0x80070006 - 0x1_0000_0000
-		E_ABORT = 0x80004004 - 0x1_0000_0000
-		E_FAIL = 0x80004005 - 0x1_0000_0000
-		E_ACCESSDENIED = 0x80070005 - 0x1_0000_0000
-		E_PENDING = 0x8000000A - 0x1_0000_0000
-		FACILITY_WIN32 = 7
-		ERROR_CANCELLED = 1223
-		def SUCCEEDED(hr) hr >= 0 end
-		def FAILED(hr) hr < 0 end
-		def HRESULT_FROM_WIN32(x) (x <= 0) ? x : (x & 0x0000FFFF) | (FACILITY_WIN32 << 16) | 0x80000000 end
-		module_function \
-			:SUCCEEDED,
-			:FAILED,
-			:HRESULT_FROM_WIN32
-		def DetonateHresult(name, *args)
-			failed = FAILED(result = send(name, *args)) and raise "#{name} failed (hresult #{format('%#08x', result)})."
-			result
-		ensure
-			yield failed if block_given?
-		end
-		module_function :DetonateHresult
-		class GUID < FFI::Struct
-			layout \
-				:Data1, :ulong,
-				:Data2, :ushort,
-				:Data3, :ushort,
-				:Data4, [:uchar, 8]
-			def self.[](s)
-				raise 'Bad GUID format.' unless s =~ /^[0-9a-f]{8}-([0-9a-f]{4}-){3}[0-9a-f]{12}$/i
-				new.tap { |guid|
-					guid[:Data1] = s[0, 8].to_i(16)
-					guid[:Data2] = s[9, 4].to_i(16)
-					guid[:Data3] = s[14, 4].to_i(16)
-					guid[:Data4][0] = s[19, 2].to_i(16)
-					guid[:Data4][1] = s[21, 2].to_i(16)
-					s[24, 12].split('').each_slice(2).with_index { |a, i|
-						guid[:Data4][i + 2] = a.join('').to_i(16)
-					}
-				}
-			end
-			def ==(other) Windows.memcmp(other, self, size) == 0 end
-		end
-		CLSCTX_INPROC_SERVER = 0x1
-		CLSCTX_INPROC_HANDLER = 0x2
-		CLSCTX_LOCAL_SERVER = 0x4
-		CLSCTX_INPROC_SERVER16 = 0x8
-		CLSCTX_REMOTE_SERVER = 0x10
-		CLSCTX_INPROC_HANDLER16 = 0x20
-		CLSCTX_RESERVED1 = 0x40
-		CLSCTX_RESERVED2 = 0x80
-		CLSCTX_RESERVED3 = 0x100
-		CLSCTX_RESERVED4 = 0x200
-		CLSCTX_NO_CODE_DOWNLOAD = 0x400
-		CLSCTX_RESERVED5 = 0x800
-		CLSCTX_NO_CUSTOM_MARSHAL = 0x1000
-		CLSCTX_ENABLE_CODE_DOWNLOAD = 0x2000
-		CLSCTX_NO_FAILURE_LOG = 0x4000
-		CLSCTX_DISABLE_AAA = 0x8000
-		CLSCTX_ENABLE_AAA = 0x10000
-		CLSCTX_FROM_DEFAULT_CONTEXT = 0x20000
-		CLSCTX_ACTIVATE_32_BIT_SERVER = 0x40000
-		CLSCTX_ACTIVATE_64_BIT_SERVER = 0x80000
-		CLSCTX_ENABLE_CLOAKING = 0x100000
-		CLSCTX_PS_DLL = -0x80000000
-		CLSCTX_INPROC = CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER
-		CLSCTX_ALL = CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER | CLSCTX_LOCAL_SERVER | CLSCTX_REMOTE_SERVER
-		CLSCTX_SERVER = CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER | CLSCTX_REMOTE_SERVER
-		attach_function :CoCreateInstance, [:pointer, :pointer, :ulong, :pointer, :pointer], :long
-		module COM
-			module Interface
-				def self.[](*args)
-					spec, iid, *ifaces = args.reverse
-					spec.each { |name, signature| signature[0].unshift(:pointer) }
-					Class.new(FFI::Struct) {
-						const_set(:IID, iid)
-						const_set(:VTBL, Class.new(FFI::Struct) {
-							const_set(:SPEC, Hash[(ifaces.map { |iface| iface::VTBL::SPEC.to_a } << spec.to_a).flatten(1)])
-							layout \
-								*self::SPEC.map { |name, signature| [name, callback(*signature)] }.flatten
-						})
-						layout \
-							:lpVtbl, :pointer
-					}
-				end
-			end
-			module Helpers
-				def QueryInstance(klass)
-					instance = nil
-					FFI::MemoryPointer.new(:pointer) { |ppv|
-						QueryInterface(klass::IID, ppv)
-						instance = klass.new(ppv.read_pointer)
-					}
-					begin
-						yield instance; return self
-					ensure
-						instance.Release
-					end if block_given?
-					instance
-				end
-				def UseInstance(klass, name, *args)
-					instance = nil
-					FFI::MemoryPointer.new(:pointer) { |ppv|
-						send(name, *args, klass::IID, ppv)
-						yield instance = klass.new(ppv.read_pointer)
-					}
-					self
-				ensure
-					instance.Release if instance
-				end
-			end
-			module Instance
-				def self.[](iface)
-					Class.new(iface) {
-						send(:include, Helpers)
-						def initialize(pointer)
-							self.pointer = pointer
-							@vtbl = self.class::VTBL.new(self[:lpVtbl])
-						end
-						attr_reader :vtbl
-						self::VTBL.members.each { |name|
-							define_method(name) { |*args|
-								raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
-							}
-						}
-					}
-				end
-			end
-			module Factory
-				def self.[](iface, clsid)
-					Class.new(iface) {
-						send(:include, Helpers)
-						const_set(:CLSID, clsid)
-						def initialize(opts = {})
-							@opts = opts
-							@opts[:clsctx] ||= CLSCTX_INPROC_SERVER
-							FFI::MemoryPointer.new(:pointer) { |ppv|
-								raise "CoCreateInstance failed (#{self.class})." if
-									Windows.FAILED(Windows.CoCreateInstance(self.class::CLSID, nil, @opts[:clsctx], self.class::IID, ppv))
-								self.pointer = ppv.read_pointer
-							}
-							@vtbl = self.class::VTBL.new(self[:lpVtbl])
-						end
-						attr_reader :vtbl
-						self::VTBL.members.each { |name|
-							define_method(name) { |*args|
-								raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
-							}
-						}
-					}
-				end
-			end
-			module Callback
-				def self.[](iface)
-					Class.new(iface) {
-						send(:include, Helpers)
-						def initialize(opts = {})
-							@vtbl, @refc = self.class::VTBL.new, 1
-							@vtbl.members.each { |name|
-								@vtbl[name] = instance_variable_set("@fn#{name}",
-									FFI::Function.new(*@vtbl.class::SPEC[name].reverse, convention: :stdcall) { |*args|
-										send(name, *args[1..-1])
-									}
-								)
-							}
-							self[:lpVtbl] = @vtbl
-							begin
-								yield self
-							ensure
-								Release()
-							end if block_given?
-						end
-						attr_reader :vtbl, :refc
-						def QueryInterface(riid, ppv)
-							if [IUnknown::IID, self.class::IID].any? { |iid| Windows.memcmp(riid, iid, iid.size) == 0 }
-								ppv.write_pointer(self)
-							else
-								ppv.write_pointer(0); return E_NOINTERFACE
-							end
-							AddRef(); S_OK
-						end
-						def AddRef
-							@refc += 1
-						end
-						def Release
-							@refc -= 1
-						end
-						(self::VTBL.members - IUnknown::VTBL.members).each { |name|
-							define_method(name) { |*args|
-								E_NOTIMPL
-							}
-						}
-					}
-				end
-			end
-		end
-		IUnknown = COM::Interface[
-			GUID['00000000-0000-0000-C000-000000000046'],
-			QueryInterface: [[:pointer, :pointer], :long],
-			AddRef: [[], :ulong],
-			Release: [[], :ulong]
-		]
-		Unknown = COM::Instance[IUnknown]
-		IDispatch = COM::Interface[IUnknown,
-			GUID['00020400-0000-0000-C000-000000000046'],
-			GetTypeInfoCount: [[:pointer], :long],
-			GetTypeInfo: [[:uint, :ulong, :pointer], :long],
-			GetIDsOfNames: [[:pointer, :pointer, :uint, :ulong, :pointer], :long],
-			Invoke: [[:long, :pointer, :ulong, :ushort, :pointer, :pointer, :pointer, :pointer], :long]
-		]
-		Dispatch = COM::Instance[IDispatch]
-		DCallback = COM::Callback[IDispatch]
-		IConnectionPointContainer = COM::Interface[IUnknown,
-			GUID['B196B284-BAB4-101A-B69C-00AA00341D07'],
-			EnumConnectionPoints: [[:pointer], :long],
-			FindConnectionPoint: [[:pointer, :pointer], :long]
-		]
-		ConnectionPointContainer = COM::Instance[IConnectionPointContainer]
-		IConnectionPoint = COM::Interface[IUnknown,
-			GUID['B196B286-BAB4-101A-B69C-00AA00341D07'],
-			GetConnectionInterface: [[:pointer], :long],
-			GetConnectionPointContainer: [[:pointer], :long],
-			Advise: [[:pointer, :pointer], :long],
-			Unadvise: [[:ulong], :long],
-			EnumConnections: [[:pointer], :long]
-		]
-		ConnectionPoint = COM::Instance[IConnectionPoint]
-		IObjectWithSite = COM::Interface[IUnknown,
-			GUID['FC4801A3-2BA9-11CF-A229-00AA003D7352'],
-			SetSite: [[:pointer], :long],
-			GetSite: [[:pointer, :pointer], :long]
-		]
-		ObjectWithSite = COM::Callback[IObjectWithSite]
-	end
-end
+require_relative 'com/Common'