ffi-wingui-core 0.1.0

data/LICENSE

@@ -0,0 +1,21 @@
+The MIT License
+
+Copyright (c) 2010 - 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
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/examples/Command.rbw

@@ -0,0 +1,219 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+APPNAME = File.basename(__FILE__, '.rbw')
+
+CMD_ITEM1 = WM_APP + 1
+CTL_BUTTON1 = CMD_ITEM1 + 1
+
+WndExtra = Struct.new(
+	:haccel,
+	:hmf
+)
+
+class WndExtra
+	REFS = {}
+
+	def initialize(*args)
+		super
+
+		REFS[object_id] = self
+
+		ObjectSpace.define_finalizer(self, -> id {
+			REFS.delete(id)
+		})
+	end
+end
+
+def onCreate(hwnd,
+	cs
+)
+	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	hbar = CreateMenu()
+		hmenu1 = CreatePopupMenu()
+			AppendMenu(hmenu1, MF_STRING, CMD_ITEM1, "Item&1\tAlt+I")
+		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, 'Menu&1')
+	SetMenu(hwnd, hbar)
+
+	accels = [
+		[FVIRTKEY | FALT, 'I'.ord, CMD_ITEM1]
+	]
+
+	FFI::MemoryPointer.new(ACCEL, accels.size) { |paccels|
+		accels.each.with_index { |data, i|
+			accel = ACCEL.new(paccels + i * ACCEL.size)
+
+			accel[:fVirt], accel[:key], accel[:cmd] = data
+		}
+
+		xtra[:haccel] = CreateAcceleratorTable(paccels, accels.size)
+	}
+
+	ncm = NONCLIENTMETRICS.new; ncm[:cbSize] = ncm.size
+	SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0);
+	xtra[:hmf] = CreateFontIndirect(ncm[:lfMenuFont]);
+
+	hbtn1 = CreateWindowEx(
+		0, 'Button', '&Button1', WS_CHILD | WS_VISIBLE,
+		10, 10, 100, 25,
+		hwnd, FFI::Pointer.new(CTL_BUTTON1), GetModuleHandle(nil), nil
+	)
+	SendMessage(hbtn1, WM_SETFONT, xtra[:hmf].to_i, 1)
+
+	0
+end
+
+def onDestroy(hwnd)
+	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DestroyAcceleratorTable(xtra[:haccel])
+	DeleteObject(xtra[:hmf])
+
+	PostQuitMessage(0); 0
+end
+
+def onItem1(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		__method__.to_s,
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+=begin
+		verb:
+			0 - menu
+			1 - accelerator
+=end
+
+	raise 'WM_COMMAND hctl must be NULL for menu/accelerator' unless
+		hctl.null?
+
+	EnableWindow(GetDlgItem(hwnd, CTL_BUTTON1), 1)
+	EnableMenuItem(GetMenu(hwnd), CMD_ITEM1, MF_GRAYED)
+
+	0
+end
+
+def onButton1(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		__method__.to_s,
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+=begin
+		verb:
+			BN_xxx
+=end
+
+	raise 'WM_COMMAND hctl must NOT be NULL for control' if
+		hctl.null?
+
+	EnableMenuItem(GetMenu(hwnd), CMD_ITEM1, MF_ENABLED)
+	EnableWindow(hctl, 0)
+
+	0
+end
+
+def windowProc(hwnd,
+	uMsg,
+	wParam, lParam
+)
+	case uMsg
+	when WM_NCCREATE
+		DefWindowProc(hwnd, uMsg, wParam, lParam)
+
+		SetWindowLong(hwnd,
+			GWL_USERDATA,
+			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+		)
+
+		return 1
+	when WM_CREATE
+		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		return 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)
+		when CTL_BUTTON1
+			return onButton1(verb, hctl, hwnd)
+		end
+	end
+
+	DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	MessageBox(nil,
+		%'#{$!.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[: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
+	)
+
+	DetonateLastError(0, :RegisterClassEx,
+		wc
+	) { className.free }
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), FFI::Pointer.new(xtra.object_id)
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	msg = MSG.new
+
+	until DetonateLastError(-1, :GetMessage,
+		msg, nil, 0, 0
+	) == 0
+		if TranslateAccelerator(hwnd, xtra[:haccel], msg) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
+	end
+
+	exit(msg[:wParam])
+rescue
+	MessageBox(nil,
+		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main

data/examples/Hello.rbw

@@ -0,0 +1,11 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+MessageBox(nil,
+	'Hello, world!',
+	'Hello',
+	MB_ICONINFORMATION
+)

data/examples/LifeCycle.rbw

@@ -0,0 +1,115 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+APPNAME = File.basename(__FILE__, '.rbw')
+
+def onCreate(hwnd,
+	cs
+)
+	answer = MessageBox(nil,
+		'Create?',
+		cs[:lpszName].read_string,
+		MB_YESNO | MB_ICONQUESTION
+	)
+
+	return -1 if answer == IDNO
+
+	0
+end
+
+def onClose(hwnd)
+	answer = MessageBox(hwnd,
+		'Close?',
+		APPNAME,
+		MB_YESNO | MB_ICONQUESTION |
+		MB_DEFBUTTON2
+	)
+
+	DestroyWindow(hwnd) if answer == IDYES
+
+	0
+end
+
+def onDestroy(hwnd)
+	MessageBox(nil,
+		__method__.to_s,
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	PostQuitMessage(0); 0
+end
+
+def windowProc(hwnd,
+	uMsg,
+	wParam, lParam
+)
+	case uMsg
+	when WM_CREATE
+		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_CLOSE
+		return onClose(hwnd)
+	when WM_DESTROY
+		return onDestroy(hwnd)
+	end
+
+	DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	MessageBox(nil,
+		%'#{$!.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[: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
+	)
+
+	DetonateLastError(0, :RegisterClassEx,
+		wc
+	) { className.free }
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), nil
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	msg = MSG.new
+
+	until DetonateLastError(-1, :GetMessage,
+		msg, nil, 0, 0
+	) == 0
+		TranslateMessage(msg)
+		DispatchMessage(msg)
+	end
+
+	exit(msg[:wParam])
+rescue
+	MessageBox(nil,
+		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main

data/examples/LifeCycle1.rbw

@@ -0,0 +1,145 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+APPNAME = File.basename(__FILE__, '.rbw')
+
+def onNCCreate(hwnd,
+	cs
+)
+	answer = MessageBox(nil,
+		'NCCreate?',
+		cs[:lpszName].read_string,
+		MB_YESNO | MB_ICONQUESTION
+	)
+
+	return 0 if answer == IDNO
+
+	1
+end
+
+def onCreate(hwnd,
+	cs
+)
+	answer = MessageBox(nil,
+		'Create?',
+		cs[:lpszName].read_string,
+		MB_YESNO | MB_ICONQUESTION
+	)
+
+	return -1 if answer == IDNO
+
+	0
+end
+
+def onClose(hwnd)
+	answer = MessageBox(hwnd,
+		'Close?',
+		APPNAME,
+		MB_YESNO | MB_ICONQUESTION |
+		MB_DEFBUTTON2
+	)
+
+	DestroyWindow(hwnd) if answer == IDYES
+
+	0
+end
+
+def onDestroy(hwnd)
+	MessageBox(nil,
+		__method__.to_s,
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	0
+end
+
+def onNCDestroy(hwnd)
+	MessageBox(nil,
+		__method__.to_s,
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	PostQuitMessage(0); 0
+end
+
+def windowProc(hwnd,
+	uMsg,
+	wParam, lParam
+)
+	case uMsg
+	when WM_NCCREATE
+		DefWindowProc(hwnd, uMsg, wParam, lParam)
+
+		return onNCCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_CREATE
+		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_CLOSE
+		return onClose(hwnd)
+	when WM_DESTROY
+		return onDestroy(hwnd)
+	when WM_NCDESTROY
+		return onNCDestroy(hwnd)
+	end
+
+	DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	MessageBox(nil,
+		%'#{$!.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[: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
+	)
+
+	DetonateLastError(0, :RegisterClassEx,
+		wc
+	) { className.free }
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), nil
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	msg = MSG.new
+
+	until DetonateLastError(-1, :GetMessage,
+		msg, nil, 0, 0
+	) == 0
+		TranslateMessage(msg)
+		DispatchMessage(msg)
+	end
+
+	exit(msg[:wParam])
+rescue
+	MessageBox(nil,
+		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main

data/examples/Minimal.rbw

@@ -0,0 +1,78 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+APPNAME = File.basename(__FILE__, '.rbw')
+
+def onDestroy(hwnd)
+	PostQuitMessage(0); 0
+end
+
+def windowProc(hwnd,
+	uMsg,
+	wParam, lParam
+)
+	case uMsg
+	when WM_DESTROY
+		return onDestroy(hwnd)
+	end
+
+	DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	MessageBox(nil,
+		%'#{$!.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[: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
+	)
+
+	DetonateLastError(0, :RegisterClassEx,
+		wc
+	) { className.free }
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), nil
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	msg = MSG.new
+
+	until DetonateLastError(-1, :GetMessage,
+		msg, nil, 0, 0
+	) == 0
+		TranslateMessage(msg)
+		DispatchMessage(msg)
+	end
+
+	exit(msg[:wParam])
+rescue
+	MessageBox(nil,
+		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main

data/examples/WndExtra.rbw

@@ -0,0 +1,130 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+APPNAME = File.basename(__FILE__, '.rbw')
+
+WndExtra = Struct.new(
+	:foo
+)
+
+class WndExtra
+	REFS = {}
+
+	def initialize(*args)
+		super
+
+		REFS[object_id] = self
+
+		ObjectSpace.define_finalizer(self, -> id {
+			REFS.delete(id)
+		})
+	end
+end
+
+def onCreate(hwnd,
+	cs
+)
+	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	xtra[:foo] = 'Foo'
+
+	-1
+end
+
+def onDestroy(hwnd)
+	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
+	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	MessageBox(nil,
+		xtra[:foo],
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	PostQuitMessage(0); 0
+end
+
+def windowProc(hwnd,
+	uMsg,
+	wParam, lParam
+)
+	case uMsg
+	when WM_NCCREATE
+		DefWindowProc(hwnd, uMsg, wParam, lParam)
+
+		SetWindowLong(hwnd,
+			GWL_USERDATA,
+			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+		)
+
+		return 1
+	when WM_CREATE
+		return onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		return onDestroy(hwnd)
+	end
+
+	DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue
+	MessageBox(nil,
+		%'#{$!.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[: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
+	)
+
+	DetonateLastError(0, :RegisterClassEx,
+		wc
+	) { className.free }
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), FFI::Pointer.new(xtra.object_id)
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	msg = MSG.new
+
+	until DetonateLastError(-1, :GetMessage,
+		msg, nil, 0, 0
+	) == 0
+		TranslateMessage(msg)
+		DispatchMessage(msg)
+	end
+
+	exit(msg[:wParam])
+rescue
+	MessageBox(nil,
+		%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}',
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+main