windows_gui 2.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: a4e7b9bc05401af4e22a70c7291a2f93a842543f
+  data.tar.gz: 78463395031583b1bf39ab74bfdc1ec1ccd4d858
+SHA512:
+  metadata.gz: 6e228db38f722bbf973f2a61d00fb8f63bbeba846103f4d2d21a44e4f97b696286b9d572089651464f2cb720d896fd04d39dd643c267e09942c40375ec20c78e
+  data.tar.gz: 8d5e01c2459b05b14975755fccb9d771343306cc166c9fd65ddefee22835351e31a6dd4119836b6a34c16fbf1915e1e87f5938d8f46a84c2deb95a1b948e11a7

data/LICENSE

@@ -0,0 +1,21 @@
+The MIT License
+
+Copyright (c) 2017 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/README.md

@@ -0,0 +1,13 @@
+# windows_gui
+
+Ruby FFI (x86) bindings to essential GUI related Windows APIs
+
+![Screenshot](./screenshot.png)
+
+## Install
+
+gem install windows_gui
+
+## Use
+
+See examples folder

data/RELNOTES.md

@@ -0,0 +1,9 @@
+# Release Notes
+
+## 2.0.0
+
+Rename library to windows_gui and ensure it works with recent ruby
+
+## 1.0.2
+
+Recover source from gem

data/examples/Command.rbw

@@ -0,0 +1,261 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+WndExtra = Struct.new(
+	:haccel,
+	:hmf
+)
+
+def OnCreate(hwnd,
+	cs
+)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	hsys = GetSystemMenu(hwnd, 0)
+		InsertMenu(hsys, SC_CLOSE, MF_STRING, SYSCMD[:ITEM1], L("Item&1\tAlt+S"))
+		InsertMenu(hsys, SC_CLOSE, MF_SEPARATOR, 0, nil)
+
+	hbar = CreateMenu()
+		hmenu1 = CreatePopupMenu()
+			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 = [
+		[FVIRTKEY | FALT, 'S'.ord, SYSCMD[:ITEM1]],
+		[FVIRTKEY | FALT, 'I'.ord, CMD[:ITEM1]]
+	]
+
+	FFI::MemoryPointer.new(ACCEL, accels.count) { |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.count)
+	}
+
+	NONCLIENTMETRICS.new { |ncm|
+		ncm[:cbSize] = ncm.size
+
+		SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0);
+		xtra[:hmf] = CreateFontIndirect(ncm[:lfMenuFont])
+	}
+
+	hbtn1 = CreateWindowEx(
+		0, L('Button'), L('&Button1'), WS_CHILD | WS_CLIPSIBLINGS |
+			WS_VISIBLE | WS_TABSTOP,
+		*DPIAwareXY(10, 10, 100, 25),
+		hwnd, FFI::Pointer.new(CMD[:BUTTON1]), GetModuleHandle(nil), nil
+	)
+
+	SendMessage(hbtn1, WM_SETFONT, xtra[:hmf].to_i, 1)
+
+	CreateWindowEx(
+		0, L('Static'), L(''), WS_CHILD | WS_CLIPSIBLINGS,
+		0, 0, 0, 0,
+		hwnd, FFI::Pointer.new(CMD[:FOCUS]), GetModuleHandle(nil), nil
+	)
+
+	0
+end
+
+def OnDestroy(hwnd)
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	DestroyAcceleratorTable(xtra[:haccel])
+	DeleteObject(xtra[:hmf])
+
+	PostQuitMessage(0); 0
+end
+
+def OnActivate(hwnd,
+	state, minimized,
+	hother
+)
+	SetFocus(GetDlgItem(hwnd, CMD[:FOCUS])) if state != WA_INACTIVE
+
+	0
+end
+
+def OnSysItem1(lParam,
+	hwnd
+)
+	MessageBox(hwnd,
+		L(__method__.to_s),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	0
+end
+
+def OnItem1(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		L(__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, CMD[:BUTTON1]), 1)
+	EnableMenuItem(GetMenu(hwnd), CMD[:ITEM1], MF_GRAYED)
+
+	0
+end
+
+def OnButton1(verb,
+	hctl, hwnd
+)
+	MessageBox(hwnd,
+		L(__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
+
+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)
+
+		SetWindowLong(hwnd,
+			GWL_USERDATA,
+			CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+		)
+
+		1
+	when WM_CREATE
+		OnCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		OnDestroy(hwnd)
+
+	when WM_ACTIVATE
+		OnActivate(hwnd,
+			LOWORD(wParam), HIWORD(wParam) != 0,
+			FFI::Pointer.new(lParam)
+		)
+
+	when WM_SYSCOMMAND
+		id = wParam & 0xfff0
+
+		case id
+		when SYSCMD[:ITEM1]
+			OnSysItem1(lParam, hwnd)
+		end
+	when WM_COMMAND
+		id, verb = LOWORD(wParam), HIWORD(wParam)
+		hctl = FFI::Pointer.new(lParam)
+
+		case id
+		when CMD[:ITEM1]
+			OnItem1(verb, hctl, hwnd)
+		when CMD[:BUTTON1]
+			OnButton1(verb, hctl, hwnd)
+		end
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	Util.Id2RefTrack(xtra = WndExtra.new)
+
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		wc[:lpfnWndProc] = WindowProc
+		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)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
+		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
+
+	exit(0) if hwnd.null?
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			if TranslateAccelerator(hwnd, xtra[:haccel], msg) == 0 &&
+				IsDialogMessage(hwnd, msg) == 0
+
+				TranslateMessage(msg)
+				DispatchMessage(msg)
+			end
+		end
+
+		exit(msg[:wParam])
+	}
+rescue
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+WinMain()

data/examples/Hello.rbw

@@ -0,0 +1,9 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+MessageBox(nil,
+	L('Hello, world!'),
+	L('Hello'),
+	MB_ICONINFORMATION
+)

data/examples/HelloOptout.rbw

@@ -0,0 +1,12 @@
+WINDOWS_GUI_VISUAL_STYLES = false
+WINDOWS_GUI_DPI_AWARE = false
+
+require 'windows_gui'
+
+include WindowsGUI
+
+MessageBox(nil,
+	L('Hello, world!'),
+	L('Hello'),
+	MB_ICONINFORMATION
+)

data/examples/HelloTimeout.rbw

@@ -0,0 +1,19 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+unless respond_to?(:MessageBoxTimeout)
+	MessageBox(nil,
+		L('MessageBoxTimeout is not supported'),
+		nil,
+		MB_ICONERROR
+	); exit(-1)
+end
+
+MessageBoxTimeout(nil,
+	L("Hello, world!\n\n(Disappearing in 3 seconds...)"),
+	L('Hello'),
+	MB_ICONINFORMATION,
+	0,
+	3000
+)

data/examples/Layered.rbw

@@ -0,0 +1,96 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+def OnCreate(hwnd,
+	cs
+)
+	SetLayeredWindowAttributes(hwnd, 0, 128, LWA_ALPHA)
+
+	0
+end
+
+def OnDestroy(hwnd)
+	PostQuitMessage(0); 0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_CREATE
+		OnCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_DESTROY
+		OnDestroy(hwnd)
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		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)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		WS_EX_LAYERED, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), nil
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	exit(0) if hwnd.null?
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
+
+		exit(msg[:wParam])
+	}
+rescue
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+WinMain()

data/examples/LifeCycle.rbw

@@ -0,0 +1,123 @@
+require 'windows_gui'
+
+include WindowsGUI
+
+def OnCreate(hwnd,
+	cs
+)
+	answer = MessageBox(nil,
+		L('Create?'),
+		cs[:lpszName],
+		MB_YESNO | MB_ICONQUESTION
+	)
+
+	return -1 if answer == IDNO
+
+	0
+end
+
+def OnClose(hwnd)
+	answer = MessageBox(hwnd,
+		L('Close?'),
+		APPNAME,
+		MB_YESNO | MB_ICONQUESTION |
+		MB_DEFBUTTON2
+	)
+
+	DestroyWindow(hwnd) if answer == IDYES
+
+	0
+end
+
+def OnDestroy(hwnd)
+	MessageBox(nil,
+		L(__method__.to_s),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
+
+	PostQuitMessage(0); 0
+end
+
+WindowProc = FFI::Function.new(:long,
+	[:pointer, :uint, :uint, :long],
+	convention: :stdcall
+) { |hwnd, uMsg, wParam, lParam|
+begin
+	result = case uMsg
+	when WM_CREATE
+		OnCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
+	when WM_CLOSE
+		OnClose(hwnd)
+	when WM_DESTROY
+		OnDestroy(hwnd)
+	end
+
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
+rescue
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
+end
+}
+
+def WinMain
+	WNDCLASSEX.new { |wc|
+		wc[:cbSize] = wc.size
+		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)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
+
+	hwnd = CreateWindowEx(
+		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
+		CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+		nil, nil, GetModuleHandle(nil), nil
+	)
+
+	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
+		hwnd.null? && GetLastError() != 0
+
+	exit(0) if hwnd.null?
+
+	ShowWindow(hwnd, SW_SHOWNORMAL)
+	UpdateWindow(hwnd)
+
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
+
+		exit(msg[:wParam])
+	}
+rescue
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
+		APPNAME,
+		MB_ICONERROR
+	); exit(1)
+end
+
+WinMain()