ffi-wingui-core 0.2.0 → 0.3.0

data/examples/Command.rbw

@@ -12,26 +12,11 @@ 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
+).send(:include, Util::Id2RefTracking)
 
 def onCreate(hwnd,
 	cs
 )
-	#xtra = ObjectSpace._id2ref(GetWindowLong(hwnd, GWL_USERDATA))
 	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
 
 	hbar = CreateMenu()
@@ -44,32 +29,35 @@ def onCreate(hwnd,
 		[FVIRTKEY | FALT, 'I'.ord, CMD_ITEM1]
 	]
 
-	FFI::MemoryPointer.new(ACCEL, accels.size) { |paccels|
+	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.size)
+		xtra[:haccel] = CreateAcceleratorTable(paccels, accels.count)
 	}
 
-	ncm = NONCLIENTMETRICS.new; ncm[:cbSize] = ncm.size
-	SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0);
-	xtra[:hmf] = CreateFontIndirect(ncm[:lfMenuFont]);
+	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_VISIBLE,
-		*DPIScale(10, 10, 100, 25),
+		*DPIAwareXY(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])
@@ -144,6 +132,7 @@ begin
 		onCreate(hwnd, CREATESTRUCT.new(FFI::Pointer.new(lParam)))
 	when WM_DESTROY
 		onDestroy(hwnd)
+
 	when WM_COMMAND
 		id, verb = LOWORD(wParam), HIWORD(wParam)
 		hctl = FFI::Pointer.new(lParam)
@@ -158,31 +147,39 @@ begin
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
-		MB_ICONERROR
-	); PostQuitMessage(2)
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
 end
 }
 
 def main
-	wc = WNDCLASSEX.new
 	xtra = WndExtra.new
 
-	wc[:cbSize] = wc.size
-	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 = PWSTR(APPNAME)
-
-	DetonateLastError(0, :RegisterClassEx,
-		wc
-	) { className.free }
+	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(CTLCOLOR_DLG + 1)
+
+		PWSTR(APPNAME) { |className|
+			wc[:lpszClassName] = className
+
+			DetonateLastError(0, :RegisterClassEx,
+				wc
+			)
+		}
+	}
 
 	hwnd = CreateWindowEx(
 		0, APPNAME, APPNAME, WS_OVERLAPPEDWINDOW,
@@ -193,24 +190,26 @@ def main
 	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
 		hwnd.null? && GetLastError() != 0
 
+	exit(0) if hwnd.null?
+
 	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)
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			if TranslateAccelerator(hwnd, xtra[:haccel], msg) == 0
+				TranslateMessage(msg)
+				DispatchMessage(msg)
+			end
 		end
-	end
 
-	exit(msg[:wParam])
+		exit(msg[:wParam])
+	}
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/Hello1.rbw

@@ -0,0 +1,21 @@
+require 'ffi-wingui-core'
+
+include WinGUI
+
+EnableVisualStyles()
+
+if respond_to?(:MessageBoxTimeout)
+	MessageBoxTimeout(nil,
+		L("Hello, world!\n\n(Disappearing in 3 seconds...)"),
+		L('Hello'),
+		MB_ICONINFORMATION,
+		0,
+		3000
+	)
+else
+	MessageBox(nil,
+		L('MessageBoxTimeout is not supported'),
+		nil,
+		MB_ICONERROR
+	)
+end

data/examples/LifeCycle.rbw

@@ -59,28 +59,36 @@ begin
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
-		MB_ICONERROR
-	); PostQuitMessage(2)
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
 end
 }
 
 def main
-	wc = WNDCLASSEX.new
-
-	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)
-	wc[:lpszClassName] = className = PWSTR(APPNAME)
-
-	DetonateLastError(0, :RegisterClassEx,
-		wc
-	) { className.free }
+	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,
@@ -91,22 +99,24 @@ def main
 	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
 		hwnd.null? && GetLastError() != 0
 
+	exit(0) if hwnd.null?
+
 	ShowWindow(hwnd, SW_SHOWNORMAL)
 	UpdateWindow(hwnd)
 
-	msg = MSG.new
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
 
-	until DetonateLastError(-1, :GetMessage,
-		msg, nil, 0, 0
-	) == 0
-		TranslateMessage(msg)
-		DispatchMessage(msg)
-	end
-
-	exit(msg[:wParam])
+		exit(msg[:wParam])
+	}
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/LifeCycle1.rbw

@@ -89,28 +89,36 @@ begin
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
-		MB_ICONERROR
-	); PostQuitMessage(2)
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
 end
 }
 
 def main
-	wc = WNDCLASSEX.new
-
-	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)
-	wc[:lpszClassName] = className = PWSTR(APPNAME)
-
-	DetonateLastError(0, :RegisterClassEx,
-		wc
-	) { className.free }
+	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,
@@ -121,22 +129,24 @@ def main
 	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
 		hwnd.null? && GetLastError() != 0
 
+	exit(0) if hwnd.null?
+
 	ShowWindow(hwnd, SW_SHOWNORMAL)
 	UpdateWindow(hwnd)
 
-	msg = MSG.new
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
 
-	until DetonateLastError(-1, :GetMessage,
-		msg, nil, 0, 0
-	) == 0
-		TranslateMessage(msg)
-		DispatchMessage(msg)
-	end
-
-	exit(msg[:wParam])
+		exit(msg[:wParam])
+	}
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)

data/examples/Minimal.rbw

@@ -22,28 +22,36 @@ begin
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	case MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
-		MB_ICONERROR
-	); PostQuitMessage(2)
+		MB_ABORTRETRYIGNORE | MB_ICONERROR
+	)
+	when IDABORT
+		PostQuitMessage(2)
+	when IDRETRY
+		retry
+	end
 end
 }
 
 def main
-	wc = WNDCLASSEX.new
-
-	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)
-	wc[:lpszClassName] = className = PWSTR(APPNAME)
-
-	DetonateLastError(0, :RegisterClassEx,
-		wc
-	) { className.free }
+	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,
@@ -54,22 +62,24 @@ def main
 	raise "CreateWindowEx failed (last error: #{GetLastError()})" if
 		hwnd.null? && GetLastError() != 0
 
+	exit(0) if hwnd.null?
+
 	ShowWindow(hwnd, SW_SHOWNORMAL)
 	UpdateWindow(hwnd)
 
-	msg = MSG.new
-
-	until DetonateLastError(-1, :GetMessage,
-		msg, nil, 0, 0
-	) == 0
-		TranslateMessage(msg)
-		DispatchMessage(msg)
-	end
+	MSG.new { |msg|
+		until DetonateLastError(-1, :GetMessage,
+			msg, nil, 0, 0
+		) == 0
+			TranslateMessage(msg)
+			DispatchMessage(msg)
+		end
 
-	exit(msg[:wParam])
+		exit(msg[:wParam])
+	}
 rescue
-	MessageBox(nil,
-		L(%'#{$!.to_s}\n\n#{$!.backtrace.join("\n")}'),
+	MessageBox(hwnd,
+		L(Util.FormatException($!)),
 		APPNAME,
 		MB_ICONERROR
 	); exit(1)