ffi-wingui-core 0.1.0 → 0.2.0

data/LICENSE

@@ -1,6 +1,6 @@
 The MIT License
 
-Copyright (c) 2010 - 2011 Radoslav Peev
+Copyright (c) 2011 Radoslav Peev
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/examples/Command.rbw

@@ -4,7 +4,7 @@ include WinGUI
 
 EnableVisualStyles()
 
-APPNAME = File.basename(__FILE__, '.rbw')
+APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 CMD_ITEM1 = WM_APP + 1
 CTL_BUTTON1 = CMD_ITEM1 + 1
@@ -36,8 +36,8 @@ def onCreate(hwnd,
 
 	hbar = CreateMenu()
 		hmenu1 = CreatePopupMenu()
-			AppendMenu(hmenu1, MF_STRING, CMD_ITEM1, "Item&1\tAlt+I")
-		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, 'Menu&1')
+			AppendMenu(hmenu1, MF_STRING, CMD_ITEM1, L("Item&1\tAlt+I"))
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 	SetMenu(hwnd, hbar)
 
 	accels = [
@@ -59,8 +59,8 @@ def onCreate(hwnd,
 	xtra[:hmf] = CreateFontIndirect(ncm[:lfMenuFont]);
 
 	hbtn1 = CreateWindowEx(
-		0, 'Button', '&Button1', WS_CHILD | WS_VISIBLE,
-		10, 10, 100, 25,
+		0, L('Button'), L('&Button1'), WS_CHILD | WS_VISIBLE,
+		*DPIScale(10, 10, 100, 25),
 		hwnd, FFI::Pointer.new(CTL_BUTTON1), GetModuleHandle(nil), nil
 	)
 	SendMessage(hbtn1, WM_SETFONT, xtra[:hmf].to_i, 1)
@@ -82,7 +82,7 @@ def onItem1(verb,
 	hctl, hwnd
 )
 	MessageBox(hwnd,
-		__method__.to_s,
+		L(__method__.to_s),
 		APPNAME,
 		MB_ICONINFORMATION
 	)
@@ -106,7 +106,7 @@ def onButton1(verb,
 	hctl, hwnd
 )
 	MessageBox(hwnd,
-		__method__.to_s,
+		L(__method__.to_s),
 		APPNAME,
 		MB_ICONINFORMATION
 	)
@@ -125,11 +125,12 @@ def onButton1(verb,
 	0
 end
 
-def windowProc(hwnd,
-	uMsg,
-	wParam, lParam
-)
-	case uMsg
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
 	when WM_NCCREATE
 		DefWindowProc(hwnd, uMsg, wParam, lParam)
 
@@ -138,47 +139,46 @@ def windowProc(hwnd,
 			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
 		)
 
-		return 1
+		1
 	when WM_CREATE
-		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_DESTROY
-		return onDestroy(hwnd)
+		onDestroy(hwnd)
 	when WM_COMMAND
 		id, verb = LOWORD(wParam), HIWORD(wParam)
 		hctl = FFI::Pointer.new(lParam)
 
 		case id
 		when CMD_ITEM1
-			return onItem1(verb, hctl, hwnd)
+			onItem1(verb, hctl, hwnd)
 		when CTL_BUTTON1
-			return onButton1(verb, hctl, hwnd)
+			onButton1(verb, hctl, hwnd)
 		end
 	end
 
-	DefWindowProc(hwnd, uMsg, wParam, lParam)
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); PostQuitMessage(2)
 end
+}
 
 def main
 	wc = WNDCLASSEX.new
 	xtra = WndExtra.new
 
 	wc[:cbSize] = wc.size
-	wc[:lpfnWndProc] = method(:windowProc)
+	wc[:lpfnWndProc] = WindowProc
 	#wc[:cbWndExtra] = FFI::Pointer.size
 	wc[:cbWndExtra] = FFI::Type::Builtin::POINTER.size
 	wc[:hInstance] = GetModuleHandle(nil)
 	wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 	wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
 	wc[:hbrBackground] = FFI::Pointer.new(CTLCOLOR_DLG + 1)
-	wc[:lpszClassName] = className = FFI::MemoryPointer.from_string(
-		APPNAME
-	)
+	wc[:lpszClassName] = className = PWSTR(APPNAME)
 
 	DetonateLastError(0, :RegisterClassEx,
 		wc
@@ -210,7 +210,7 @@ def main
 	exit(msg[:wParam])
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/Hello.rbw

@@ -5,7 +5,7 @@ include WinGUI
 EnableVisualStyles()
 
 MessageBox(nil,
-	'Hello, world!',
-	'Hello',
+	L('Hello, world!'),
+	L('Hello'),
 	MB_ICONINFORMATION
 )

data/examples/LifeCycle.rbw

@@ -4,14 +4,14 @@ include WinGUI
 
 EnableVisualStyles()
 
-APPNAME = File.basename(__FILE__, '.rbw')
+APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 def onCreate(hwnd,
 	cs
 )
 	answer = MessageBox(nil,
-		'Create?',
-		cs[:lpszName].read_string,
+		L('Create?'),
+		cs[:lpszName],
 		MB_YESNO | MB_ICONQUESTION
 	)
 
@@ -22,7 +22,7 @@ end
 
 def onClose(hwnd)
 	answer = MessageBox(hwnd,
-		'Close?',
+		L('Close?'),
 		APPNAME,
 		MB_YESNO | MB_ICONQUESTION |
 		MB_DEFBUTTON2
@@ -35,7 +35,7 @@ end
 
 def onDestroy(hwnd)
 	MessageBox(nil,
-		__method__.to_s,
+		L(__method__.to_s),
 		APPNAME,
 		MB_ICONINFORMATION
 	)
@@ -43,40 +43,40 @@ def onDestroy(hwnd)
 	PostQuitMessage(0); 0
 end
 
-def windowProc(hwnd,
-	uMsg,
-	wParam, lParam
-)
-	case uMsg
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
 	when WM_CREATE
-		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_CLOSE
-		return onClose(hwnd)
+		onClose(hwnd)
 	when WM_DESTROY
-		return onDestroy(hwnd)
+		onDestroy(hwnd)
 	end
 
-	DefWindowProc(hwnd, uMsg, wParam, lParam)
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); PostQuitMessage(2)
 end
+}
 
 def main
 	wc = WNDCLASSEX.new
 
 	wc[:cbSize] = wc.size
-	wc[:lpfnWndProc] = method(:windowProc)
+	wc[:lpfnWndProc] = WindowProc
 	wc[:hInstance] = GetModuleHandle(nil)
 	wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 	wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
 	wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
-	wc[:lpszClassName] = className = FFI::MemoryPointer.from_string(
-		APPNAME
-	)
+	wc[:lpszClassName] = className = PWSTR(APPNAME)
 
 	DetonateLastError(0, :RegisterClassEx,
 		wc
@@ -106,7 +106,7 @@ def main
 	exit(msg[:wParam])
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/LifeCycle1.rbw

@@ -4,14 +4,14 @@ include WinGUI
 
 EnableVisualStyles()
 
-APPNAME = File.basename(__FILE__, '.rbw')
+APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 def onNCCreate(hwnd,
 	cs
 )
 	answer = MessageBox(nil,
-		'NCCreate?',
-		cs[:lpszName].read_string,
+		L('NCCreate?'),
+		cs[:lpszName],
 		MB_YESNO | MB_ICONQUESTION
 	)
 
@@ -24,8 +24,8 @@ def onCreate(hwnd,
 	cs
 )
 	answer = MessageBox(nil,
-		'Create?',
-		cs[:lpszName].read_string,
+		L('Create?'),
+		cs[:lpszName],
 		MB_YESNO | MB_ICONQUESTION
 	)
 
@@ -36,7 +36,7 @@ end
 
 def onClose(hwnd)
 	answer = MessageBox(hwnd,
-		'Close?',
+		L('Close?'),
 		APPNAME,
 		MB_YESNO | MB_ICONQUESTION |
 		MB_DEFBUTTON2
@@ -49,7 +49,7 @@ end
 
 def onDestroy(hwnd)
 	MessageBox(nil,
-		__method__.to_s,
+		L(__method__.to_s),
 		APPNAME,
 		MB_ICONINFORMATION
 	)
@@ -59,7 +59,7 @@ end
 
 def onNCDestroy(hwnd)
 	MessageBox(nil,
-		__method__.to_s,
+		L(__method__.to_s),
 		APPNAME,
 		MB_ICONINFORMATION
 	)
@@ -67,46 +67,46 @@ def onNCDestroy(hwnd)
 	PostQuitMessage(0); 0
 end
 
-def windowProc(hwnd,
-	uMsg,
-	wParam, lParam
-)
-	case uMsg
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
 	when WM_NCCREATE
 		DefWindowProc(hwnd, uMsg, wParam, lParam)
 
-		return onNCCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+		onNCCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_CREATE
-		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_CLOSE
-		return onClose(hwnd)
+		onClose(hwnd)
 	when WM_DESTROY
-		return onDestroy(hwnd)
+		onDestroy(hwnd)
 	when WM_NCDESTROY
-		return onNCDestroy(hwnd)
+		onNCDestroy(hwnd)
 	end
 
-	DefWindowProc(hwnd, uMsg, wParam, lParam)
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); PostQuitMessage(2)
 end
+}
 
 def main
 	wc = WNDCLASSEX.new
 
 	wc[:cbSize] = wc.size
-	wc[:lpfnWndProc] = method(:windowProc)
+	wc[:lpfnWndProc] = WindowProc
 	wc[:hInstance] = GetModuleHandle(nil)
 	wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 	wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
 	wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
-	wc[:lpszClassName] = className = FFI::MemoryPointer.from_string(
-		APPNAME
-	)
+	wc[:lpszClassName] = className = PWSTR(APPNAME)
 
 	DetonateLastError(0, :RegisterClassEx,
 		wc
@@ -136,7 +136,7 @@ def main
 	exit(msg[:wParam])
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/Minimal.rbw

@@ -4,42 +4,42 @@ include WinGUI
 
 EnableVisualStyles()
 
-APPNAME = File.basename(__FILE__, '.rbw')
+APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 def onDestroy(hwnd)
 	PostQuitMessage(0); 0
 end
 
-def windowProc(hwnd,
-	uMsg,
-	wParam, lParam
-)
-	case uMsg
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
 	when WM_DESTROY
-		return onDestroy(hwnd)
+		onDestroy(hwnd)
 	end
 
-	DefWindowProc(hwnd, uMsg, wParam, lParam)
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); PostQuitMessage(2)
 end
+}
 
 def main
 	wc = WNDCLASSEX.new
 
 	wc[:cbSize] = wc.size
-	wc[:lpfnWndProc] = method(:windowProc)
+	wc[:lpfnWndProc] = WindowProc
 	wc[:hInstance] = GetModuleHandle(nil)
 	wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 	wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
 	wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
-	wc[:lpszClassName] = className = FFI::MemoryPointer.from_string(
-		APPNAME
-	)
+	wc[:lpszClassName] = className = PWSTR(APPNAME)
 
 	DetonateLastError(0, :RegisterClassEx,
 		wc
@@ -69,7 +69,7 @@ def main
 	exit(msg[:wParam])
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/WndExtra.rbw

@@ -4,7 +4,7 @@ include WinGUI
 
 EnableVisualStyles()
 
-APPNAME = File.basename(__FILE__, '.rbw')
+APPNAME = L(File.basename(__FILE__, '.rbw'))
 
 WndExtra = Struct.new(
 	:foo
@@ -30,7 +30,7 @@ def onCreate(hwnd,
 	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
 	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
 
-	xtra[:foo] = 'Foo'
+	xtra[:foo] = L('Foo')
 
 	-1
 end
@@ -48,11 +48,12 @@ def onDestroy(hwnd)
 	PostQuitMessage(0); 0
 end
 
-def windowProc(hwnd,
-	uMsg,
-	wParam, lParam
-)
-	case uMsg
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
 	when WM_NCCREATE
 		DefWindowProc(hwnd, uMsg, wParam, lParam)
 
@@ -61,37 +62,36 @@ def windowProc(hwnd,
 			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
 		)
 
-		return 1
+		1
 	when WM_CREATE
-		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_DESTROY
-		return onDestroy(hwnd)
+		onDestroy(hwnd)
 	end
 
-	DefWindowProc(hwnd, uMsg, wParam, lParam)
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); PostQuitMessage(2)
 end
+}
 
 def main
 	wc = WNDCLASSEX.new
 	xtra = WndExtra.new
 
 	wc[:cbSize] = wc.size
-	wc[:lpfnWndProc] = method(:windowProc)
+	wc[:lpfnWndProc] = WindowProc
 	#wc[:cbWndExtra] = FFI::Pointer.size
 	wc[:cbWndExtra] = FFI::Type::Builtin::POINTER.size
 	wc[:hInstance] = GetModuleHandle(nil)
 	wc[:hIcon] = LoadIcon(nil, IDI_APPLICATION)
 	wc[:hCursor] = LoadCursor(nil, IDC_ARROW)
 	wc[:hbrBackground] = FFI::Pointer.new(COLOR_WINDOW + 1)
-	wc[:lpszClassName] = className = FFI::MemoryPointer.from_string(
-		APPNAME
-	)
+	wc[:lpszClassName] = className = PWSTR(APPNAME)
 
 	DetonateLastError(0, :RegisterClassEx,
 		wc
@@ -121,7 +121,7 @@ def main
 	exit(msg[:wParam])
 rescue
 	MessageBox(nil,
-		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/lib/ffi-wingui-core.rb

@@ -33,16 +33,57 @@ module WinGUI
 		:MAKEWORD, :LOBYTE, :HIBYTE,
 		:MAKELONG, :LOWORD, :HIWORD
 
+	def L(s)
+		(s << "\0").encode!('utf-16le')
+	end
+
+	def PWSTR(ws)
+		raise 'Invalid Unicode string' unless
+			ws.encoding == Encoding::UTF_16LE &&
+			ws[-1] == L('')
+
+		p = FFI::MemoryPointer.new(:ushort, ws.length).
+			put_bytes(0, ws)
+
+		return p unless block_given?
+
+		begin yield p ensure p.free end
+
+		nil
+	end
+
+	module_function :L, :PWSTR
+
 	class POINT < FFI::Struct
 		layout \
 			:x, :long,
 			:y, :long
+
+		def self.[](x, y)
+			new.tap { |point|
+				point[:x], point[:y] = x, y
+			}
+		end
+
+		def to_a
+			[self[:x], self[:y]]
+		end
 	end
 
 	class SIZE < FFI::Struct
 		layout \
 			:cx, :long,
 			:cy, :long
+
+		def self.[](cx, cy)
+			new.tap { |size|
+				size[:cx], size[:cy] = cx, cy
+			}
+		end
+
+		def to_a
+			[self[:cx], self[:cy]]
+		end
 	end
 
 	class RECT < FFI::Struct
@@ -51,6 +92,16 @@ module WinGUI
 			:top, :long,
 			:right, :long,
 			:bottom, :long
+
+		def self.[](l, t, r, b)
+			new.tap { |rect|
+				rect[:left], rect[:top], rect[:right], rect[:bottom] = l, t, r, b
+			}
+		end
+
+		def to_a
+			[self[:left], self[:top], self[:right], self[:bottom]]
+		end
 	end
 
 	ffi_lib 'kernel32'
@@ -91,7 +142,7 @@ module WinGUI
 			:dwMinorVersion, :ulong,
 			:dwBuildNumber, :ulong,
 			:dwPlatformId, :ulong,
-			:szCSDVersion, [:char, 128],
+			:szCSDVersion, [:ushort, 128],
 			:wServicePackMajor, :ushort,
 			:wServicePackMinor, :ushort,
 			:wSuiteMask, :ushort,
@@ -99,7 +150,7 @@ module WinGUI
 			:wReserved, :uchar
 	end
 
-	attach_function :GetVersionEx, :GetVersionExA, [
+	attach_function :GetVersionEx, :GetVersionExW, [
 		:pointer
 	], :int
 
@@ -163,12 +214,12 @@ module WinGUI
 
 	WINVER = HIWORD(NTDDI_VERSION)
 
-	attach_function :GetModuleHandle, :GetModuleHandleA, [
-		:string
+	attach_function :GetModuleHandle, :GetModuleHandleW, [
+		:buffer_in
 	], :pointer
 
-	attach_function :LoadLibrary, :LoadLibraryA, [
-		:string
+	attach_function :LoadLibrary, :LoadLibraryW, [
+		:buffer_in
 	], :pointer
 
 	attach_function :FreeLibrary, [
@@ -189,7 +240,7 @@ module WinGUI
 				:hModule, :pointer
 		end
 
-		attach_function :CreateActCtx, :CreateActCtxA, [
+		attach_function :CreateActCtx, :CreateActCtxW, [
 			:pointer
 		], :pointer
 
@@ -255,9 +306,7 @@ module WinGUI
 		ac = ACTCTX.new
 
 		ac[:cbSize] = ac.size
-		ac[:lpSource] = source = FFI::MemoryPointer.from_string(
-			File.expand_path(manifest)
-		)
+		ac[:lpSource] = source = PWSTR(L(manifest))
 
 		COMMON_CONTROLS_ACTCTX[:handle] =
 			DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx,
@@ -278,6 +327,12 @@ module WinGUI
 
 	module_function :EnableVisualStyles
 
+	attach_function :MulDiv, [
+		:int,
+		:int,
+		:int
+	], :int
+
 	ffi_lib 'gdi32'
 	ffi_convention :stdcall
 
@@ -300,6 +355,14 @@ module WinGUI
 	module_function \
 		:RGB, :GetRValue, :GetGValue, :GetBValue
 
+	LOGPIXELSX = 88
+	LOGPIXELSY = 90
+
+	attach_function :GetDeviceCaps, [
+		:pointer,
+		:int
+	], :int
+
 	class LOGFONT < FFI::Struct
 		layout \
 			:lfHeight, :long,
@@ -315,10 +378,10 @@ module WinGUI
 			:lfClipPrecision, :uchar,
 			:lfQuality, :uchar,
 			:lfPitchAndFamily, :uchar,
-			:lfFaceName, [:char, 32]
+			:lfFaceName, [:ushort, 32]
 	end
 
-	attach_function :CreateFontIndirect, :CreateFontIndirectA, [
+	attach_function :CreateFontIndirect, :CreateFontIndirectW, [
 		:pointer
 	], :pointer
 
@@ -365,6 +428,16 @@ module WinGUI
 	ffi_lib 'user32'
 	ffi_convention :stdcall
 
+	if WINVER >= WINVISTA
+		attach_function :SetProcessDPIAware, [
+
+		], :int
+
+		Detonate(0, :SetProcessDPIAware) unless
+			Object.const_defined?(:DPI_AWARE) &&
+			!DPI_AWARE
+	end
+
 	#{ MB_xxx
 	MB_OK = 0x00000000
 	MB_OKCANCEL = 0x00000001
@@ -402,10 +475,10 @@ module WinGUI
 	IDCONTINUE = 11
 	#}
 
-	attach_function :MessageBox, :MessageBoxA, [
+	attach_function :MessageBox, :MessageBoxW, [
 		:pointer,
-		:string,
-		:string,
+		:buffer_in,
+		:buffer_in,
 		:uint
 	], :int
 
@@ -430,7 +503,7 @@ module WinGUI
 		:long
 	], :long
 
-	attach_function :DefWindowProc, :DefWindowProcA, [
+	attach_function :DefWindowProc, :DefWindowProcW, [
 		:pointer,
 		:uint,
 		:uint,
@@ -441,7 +514,7 @@ module WinGUI
 	IDI_APPLICATION = FFI::Pointer.new(32512)
 	#}
 
-	attach_function :LoadIcon, :LoadIconA, [
+	attach_function :LoadIcon, :LoadIconW, [
 		:pointer,
 		:pointer
 	], :pointer
@@ -458,7 +531,7 @@ module WinGUI
 	IDC_SIZENESW = FFI::Pointer.new(32643)
 	#}
 
-	attach_function :LoadCursor, :LoadCursorA, [
+	attach_function :LoadCursor, :LoadCursorW, [
 		:pointer,
 		:pointer
 	], :pointer
@@ -486,16 +559,16 @@ module WinGUI
 			:hIconSm, :pointer
 	end
 
-	attach_function :RegisterClassEx, :RegisterClassExA, [
+	attach_function :RegisterClassEx, :RegisterClassExW, [
 		:pointer
 	], :ushort
 
-	attach_function :UnregisterClass, :UnregisterClassA, [
+	attach_function :UnregisterClass, :UnregisterClassW, [
 		:pointer,
 		:pointer
 	], :int
 
-	attach_function :GetClassInfoEx, :GetClassInfoExA, [
+	attach_function :GetClassInfoEx, :GetClassInfoExW, [
 		:pointer,
 		:pointer,
 		:pointer
@@ -542,10 +615,10 @@ module WinGUI
 	HWND_MESSAGE = FFI::Pointer.new(-3)
 	#}
 
-	attach_function :CreateWindowEx, :CreateWindowExA, [
+	attach_function :CreateWindowEx, :CreateWindowExW, [
 		:ulong,
-		:string,
-		:string,
+		:buffer_in,
+		:buffer_in,
 		:ulong,
 		:int,
 		:int,
@@ -575,18 +648,18 @@ module WinGUI
 	GCW_ATOM = -32
 	#}
 
-	attach_function :SetClassLong, :SetClassLongA, [
+	attach_function :SetClassLong, :SetClassLongW, [
 		:pointer,
 		:int,
 		:long
 	], :ulong
 
-	attach_function :GetClassLong, :GetClassLongA, [
+	attach_function :GetClassLong, :GetClassLongW, [
 		:pointer,
 		:int
 	], :ulong
 
-	attach_function :GetClassName, :GetClassNameA, [
+	attach_function :GetClassName, :GetClassNameW, [
 		:pointer,
 		:pointer,
 		:int
@@ -602,13 +675,13 @@ module WinGUI
 	GWL_WNDPROC = -4
 	#}
 
-	attach_function :SetWindowLong, :SetWindowLongA, [
+	attach_function :SetWindowLong, :SetWindowLongW, [
 		:pointer,
 		:int,
 		:long
 	], :long
 
-	attach_function :GetWindowLong, :GetWindowLongA, [
+	attach_function :GetWindowLong, :GetWindowLongW, [
 		:pointer,
 		:int
 	], :long
@@ -731,6 +804,48 @@ module WinGUI
 		:pointer
 	], :int
 
+	attach_function :GetDC, [
+		:pointer
+	], :pointer
+
+	attach_function :ReleaseDC, [
+		:pointer,
+		:pointer
+	], :int
+
+	Detonate(FFI::Pointer::NULL, :GetDC,
+		nil
+	).tap { |hdc|
+		DPIX = GetDeviceCaps(hdc, LOGPIXELSX)
+		DPIY = GetDeviceCaps(hdc, LOGPIXELSY)
+
+		ReleaseDC(nil, hdc)
+	}
+
+	def DPIScaleX(x)
+		MulDiv(x, DPIX, 96)
+	end
+
+	def DPIScaleY(y)
+		MulDiv(y, DPIY, 96)
+	end
+
+	def DPIScale(*args)
+		case args.length
+		when 2 # POINT, SIZE
+			[DPIScaleX(args[0]), DPIScaleY(args[1])]
+		when 4 # RECT
+			[
+				DPIScaleX(args[0]), DPIScaleY(args[1]),
+				DPIScaleX(args[2]), DPIScaleY(args[3])
+			]
+		else
+			raise ArgumentError
+		end
+	end
+
+	module_function :DPIScaleX, :DPIScaleY, :DPIScale
+
 	class PAINTSTRUCT < FFI::Struct
 		layout \
 			:hdc, :pointer,
@@ -828,14 +943,14 @@ module WinGUI
 	WM_APP = 0x8000
 	#}
 
-	attach_function :SendMessage, :SendMessageA, [
+	attach_function :SendMessage, :SendMessageW, [
 		:pointer,
 		:uint,
 		:uint,
 		:long
 	], :long
 
-	attach_function :PostMessage, :PostMessageA, [
+	attach_function :PostMessage, :PostMessageW, [
 		:pointer,
 		:uint,
 		:uint,
@@ -852,7 +967,7 @@ module WinGUI
 			:pt, POINT
 	end
 
-	attach_function :GetMessage, :GetMessageA, [
+	attach_function :GetMessage, :GetMessageW, [
 		:pointer,
 		:pointer,
 		:uint,
@@ -864,7 +979,7 @@ module WinGUI
 		:pointer
 	], :int
 
-	attach_function :TranslateAccelerator, :TranslateAcceleratorA, [
+	attach_function :TranslateAccelerator, :TranslateAcceleratorW, [
 		:pointer,
 		:pointer,
 		:pointer
@@ -874,7 +989,7 @@ module WinGUI
 		:pointer
 	], :int
 
-	attach_function :DispatchMessage, :DispatchMessageA, [
+	attach_function :DispatchMessage, :DispatchMessageW, [
 		:pointer
 	], :long
 
@@ -913,11 +1028,11 @@ module WinGUI
 	MF_UNHILITE = 0x00000000
 	#}
 
-	attach_function :AppendMenu, :AppendMenuA, [
+	attach_function :AppendMenu, :AppendMenuW, [
 		:pointer,
 		:uint,
 		:uint,
-		:string
+		:buffer_in
 	], :int
 
 	#{ MF_xxx
@@ -972,7 +1087,7 @@ module WinGUI
 			:cmd, :ushort
 	end
 
-	attach_function :CreateAcceleratorTable, :CreateAcceleratorTableA, [
+	attach_function :CreateAcceleratorTable, :CreateAcceleratorTableW, [
 		:pointer,
 		:int
 	], :pointer
@@ -1010,7 +1125,7 @@ module WinGUI
 	SPI_GETNONCLIENTMETRICS = 0x0029
 	#}
 
-	attach_function :SystemParametersInfo, :SystemParametersInfoA, [
+	attach_function :SystemParametersInfo, :SystemParametersInfoW, [
 		:uint,
 		:uint,
 		:pointer,

metadata

@@ -1,46 +1,34 @@
---- !ruby/object:Gem::Specification 
+--- !ruby/object:Gem::Specification
 name: ffi-wingui-core
-version: !ruby/object:Gem::Version 
-  prerelease: false
-  segments: 
-  - 0
-  - 1
-  - 0
-  version: 0.1.0
+version: !ruby/object:Gem::Version
+  version: 0.2.0
+  prerelease: !!null 
 platform: ruby
-authors: 
+authors:
 - Radoslav Peev
-autorequire: 
+autorequire: !!null 
 bindir: bin
 cert_chain: []
-
-date: 2011-01-26 00:00:00 +02:00
-default_executable: 
-dependencies: 
-- !ruby/object:Gem::Dependency 
+date: 2011-02-01 00:00:00.000000000 +02:00
+default_executable: !!null 
+dependencies:
+- !ruby/object:Gem::Dependency
   name: ffi
-  prerelease: false
-  requirement: &id001 !ruby/object:Gem::Requirement 
+  requirement: &22547748 !ruby/object:Gem::Requirement
     none: false
-    requirements: 
+    requirements:
     - - ~>
-      - !ruby/object:Gem::Version 
-        segments: 
-        - 1
-        - 0
-        - 5
+      - !ruby/object:Gem::Version
         version: 1.0.5
   type: :runtime
-  version_requirements: *id001
-description: 
-email: 
+  prerelease: false
+  version_requirements: *22547748
+description: !!null 
+email: !!null 
 executables: []
-
 extensions: []
-
 extra_rdoc_files: []
-
-files: 
+files:
 - lib/ffi-wingui-core.rb
 - examples/Command.rbw
 - examples/Hello.rbw
@@ -52,34 +40,26 @@ files:
 has_rdoc: true
 homepage: http://github.com/rpeev/ffi-wingui-core
 licenses: []
-
-post_install_message: 
+post_install_message: !!null 
 rdoc_options: []
-
-require_paths: 
+require_paths:
 - lib
-required_ruby_version: !ruby/object:Gem::Requirement 
+required_ruby_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      segments: 
-      - 0
-      version: "0"
-required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      segments: 
-      - 0
-      version: "0"
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
 requirements: []
-
-rubyforge_project: 
-rubygems_version: 1.3.7
-signing_key: 
+rubyforge_project: !!null 
+rubygems_version: 1.5.0
+signing_key: !!null 
 specification_version: 3
 summary: Ruby-FFI bindings to essential GUI-related Windows APIs
 test_files: []
-