ffi-wingui-core 0.4.0 → 0.5.0

data/examples/Command.rbw

@@ -1,33 +1,31 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
-APPNAME = L(File.basename(__FILE__, '.rbw'))
-
-CMD_ITEM1 = WM_APP + 1
-CTL_FOCUS = CMD_ITEM1 + 1
-CTL_BUTTON1 = CTL_FOCUS + 1
-
 WndExtra = Struct.new(
 	:haccel,
 	:hmf
-).send(:include, Util::Id2RefTracking)
+)
 
 def onCreate(hwnd,
 	cs
 )
-	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
+
+	hsys = GetSystemMenu(hwnd, 0)
+		InsertMenu(hsys, SC_CLOSE, MF_STRING, SYSID[: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'))
+			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM1], L("Item&1\tAlt+I"))
+		InsertMenu(hbar, -1, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 	SetMenu(hwnd, hbar)
 
 	accels = [
-		[FVIRTKEY | FALT, 'I'.ord, CMD_ITEM1]
+		[FVIRTKEY | FALT, 'S'.ord, SYSID[:ITEM1]],
+		[FVIRTKEY | FALT, 'I'.ord, ID[:ITEM1]]
 	]
 
 	FFI::MemoryPointer.new(ACCEL, accels.count) { |paccels|
@@ -51,7 +49,7 @@ def onCreate(hwnd,
 		0, L('Button'), L('&Button1'), WS_CHILD | WS_CLIPSIBLINGS |
 			WS_VISIBLE | WS_TABSTOP,
 		*DPIAwareXY(10, 10, 100, 25),
-		hwnd, FFI::Pointer.new(CTL_BUTTON1), GetModuleHandle(nil), nil
+		hwnd, FFI::Pointer.new(ID[:BUTTON1]), GetModuleHandle(nil), nil
 	)
 
 	SendMessage(hbtn1, WM_SETFONT, xtra[:hmf].to_i, 1)
@@ -59,14 +57,14 @@ def onCreate(hwnd,
 	CreateWindowEx(
 		0, L('Static'), L(''), WS_CHILD | WS_CLIPSIBLINGS,
 		0, 0, 0, 0,
-		hwnd, FFI::Pointer.new(CTL_FOCUS), GetModuleHandle(nil), nil
+		hwnd, FFI::Pointer.new(ID[:FOCUS]), GetModuleHandle(nil), nil
 	)
 
 	0
 end
 
 def onDestroy(hwnd)
-	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
 	DestroyAcceleratorTable(xtra[:haccel])
 	DeleteObject(xtra[:hmf])
@@ -78,7 +76,19 @@ def onActivate(hwnd,
 	state, minimized,
 	hother
 )
-	SetFocus(GetDlgItem(hwnd, CTL_FOCUS)) if state != WA_INACTIVE
+	SetFocus(GetDlgItem(hwnd, ID[:FOCUS])) if state != WA_INACTIVE
+
+	0
+end
+
+def onSysItem1(lParam,
+	hwnd
+)
+	MessageBox(hwnd,
+		L(__method__.to_s),
+		APPNAME,
+		MB_ICONINFORMATION
+	)
 
 	0
 end
@@ -101,8 +111,8 @@ def onItem1(verb,
 	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)
+	EnableWindow(GetDlgItem(hwnd, ID[:BUTTON1]), 1)
+	EnableMenuItem(GetMenu(hwnd), ID[:ITEM1], MF_GRAYED)
 
 	0
 end
@@ -124,7 +134,7 @@ def onButton1(verb,
 	raise 'WM_COMMAND hctl must NOT be NULL for control' if
 		hctl.null?
 
-	EnableMenuItem(GetMenu(hwnd), CMD_ITEM1, MF_ENABLED)
+	EnableMenuItem(GetMenu(hwnd), ID[:ITEM1], MF_ENABLED)
 	EnableWindow(hctl, 0)
 
 	0
@@ -156,19 +166,28 @@ begin
 			FFI::Pointer.new(lParam)
 		)
 
+	when WM_SYSCOMMAND
+		id = wParam & 0xfff0
+
+		case id
+		when SYSID[:ITEM1]
+			onSysItem1(lParam, hwnd)
+		end
 	when WM_COMMAND
 		id, verb = LOWORD(wParam), HIWORD(wParam)
 		hctl = FFI::Pointer.new(lParam)
 
 		case id
-		when CMD_ITEM1
+		when ID[:ITEM1]
 			onItem1(verb, hctl, hwnd)
-		when CTL_BUTTON1
+		when ID[: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($!)),
@@ -184,7 +203,7 @@ end
 }
 
 def main
-	xtra = WndExtra.new
+	Util.Id2RefTrack(xtra = WndExtra.new)
 
 	WNDCLASSEX.new { |wc|
 		wc[:cbSize] = wc.size

data/examples/Hello.rbw

@@ -1,6 +1,5 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/HelloOptout.rbw

@@ -2,8 +2,7 @@ WINGUI_VISUAL_STYLES = false
 WINGUI_DPI_AWARE = false
 
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 

data/examples/HelloTimeout.rbw

@@ -1,21 +1,20 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
-if respond_to?(:MessageBoxTimeout)
-	MessageBoxTimeout(nil,
-		L("Hello, world!\n\n(Disappearing in 3 seconds...)"),
-		L('Hello'),
-		MB_ICONINFORMATION,
-		0,
-		3000
-	)
-else
+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,99 @@
+require 'ffi-wingui-core'
+require 'ffi-wingui-core/ocra'
+
+include WinGUI
+
+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 main
+	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(
+			((WINVER == WINXP) ? COLOR_MENUBAR : COLOR_MENU) + 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
+
+main

data/examples/LifeCycle.rbw

@@ -1,11 +1,8 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
-APPNAME = L(File.basename(__FILE__, '.rbw'))
-
 def onCreate(hwnd,
 	cs
 )
@@ -58,6 +55,8 @@ begin
 	end
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
 rescue
 	case MessageBox(hwnd,
 		L(Util.FormatException($!)),

data/examples/LifeCycleNC.rbw

@@ -1,11 +1,8 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
-APPNAME = L(File.basename(__FILE__, '.rbw'))
-
 def onNCCreate(hwnd,
 	cs
 )
@@ -88,6 +85,8 @@ begin
 	end
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
 rescue
 	case MessageBox(hwnd,
 		L(Util.FormatException($!)),

data/examples/Menu.rbw

@@ -1,65 +1,52 @@
 require 'ffi-wingui-core'
-
-exit if defined?(Ocra)
+require 'ffi-wingui-core/ocra'
 
 include WinGUI
 
-APPNAME = L(File.basename(__FILE__, '.rbw'))
-
-CMD_ITEM1 = WM_APP + 1
-CMD_ITEM2 = CMD_ITEM1 + 1
-CMD_ITEM3 = CMD_ITEM2 + 1
-CMD_ITEM4 = CMD_ITEM3 + 1
-CMD_ITEM5 = CMD_ITEM4 + 1
-CMD_ITEM6 = CMD_ITEM5 + 1
-CMD_ITEM7 = CMD_ITEM6 + 1
-CMD_ITEM8 = CMD_ITEM7 + 1
-CMD_ITEM9 = CMD_ITEM8 + 1
-
 WndExtra = Struct.new(
 	:dummy
-).send(:include, Util::Id2RefTracking)
+)
 
 def onCreate(hwnd,
 	cs
 )
-	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
 	hbar = CreateMenu()
 		hmenu1 = CreatePopupMenu()
-			AppendMenu(hmenu1, MF_STRING, CMD_ITEM1, L('Item&1'))
-			SetMenuDefaultItem(hmenu1, CMD_ITEM1, 0)
+			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM1], L('Item&1'))
+			SetMenuDefaultItem(hmenu1, ID[:ITEM1], 0)
 
-			AppendMenu(hmenu1, MF_STRING | MF_GRAYED, CMD_ITEM2, L('Item&2'))
-			AppendMenu(hmenu1, MF_STRING | MF_CHECKED, CMD_ITEM3, L('Item&3'))
+			InsertMenu(hmenu1, -1, MF_STRING | MF_GRAYED, ID[:ITEM2], L('Item&2'))
+			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED, ID[:ITEM3], L('Item&3'))
 
-			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
 
-			AppendMenu(hmenu1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
-				CMD_ITEM4, L('Item&4'))
-			AppendMenu(hmenu1, MF_STRING, CMD_ITEM5, L('Item&5'))
+			InsertMenu(hmenu1, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+				ID[:ITEM4], L('Item&4'))
+			InsertMenu(hmenu1, -1, MF_STRING, ID[:ITEM5], L('Item&5'))
 
-			AppendMenu(hmenu1, MF_SEPARATOR, 0, nil)
+			InsertMenu(hmenu1, -1, MF_SEPARATOR, 0, nil)
 
 			hmenu2 = CreatePopupMenu()
-				AppendMenu(hmenu2, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
-					CMD_ITEM6, L('Item&6'))
-				AppendMenu(hmenu2, MF_STRING, CMD_ITEM7, L('Item&7'))
-			AppendMenu(hmenu1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
-		AppendMenu(hbar, MF_POPUP, hmenu1.to_i, L('Menu&1'))
+				InsertMenu(hmenu2, -1, MF_STRING | MF_CHECKED | MFT_RADIOCHECK,
+					ID[:ITEM6], L('Item&6'))
+				InsertMenu(hmenu2, -1, MF_STRING, ID[:ITEM7], L('Item&7'))
+			InsertMenu(hmenu1, -1, MF_POPUP, hmenu2.to_i, L('Menu&2'))
+		InsertMenu(hbar, -1, MF_POPUP, hmenu1.to_i, L('Menu&1'))
 
-		AppendMenu(hbar, MF_STRING, CMD_ITEM8, L('Item&8'))
+		InsertMenu(hbar, -1, MF_STRING, ID[:ITEM8], L('Item&8'))
 
 		hmenu3 = CreatePopupMenu()
-			AppendMenu(hmenu3, MF_STRING, CMD_ITEM9, L('Item&9'))
-		AppendMenu(hbar, MF_POPUP | MF_RIGHTJUSTIFY, hmenu3.to_i, L('Menu&3'))
+			InsertMenu(hmenu3, -1, MF_STRING, ID[:ITEM9], L('Item&9'))
+		InsertMenu(hbar, -1, MF_POPUP | MF_RIGHTJUSTIFY, hmenu3.to_i, L('Menu&3'))
 	SetMenu(hwnd, hbar)
 
 	0
 end
 
 def onDestroy(hwnd)
-	xtra = WndExtra::REFS[GetWindowLong(hwnd, GWL_USERDATA)]
+	xtra = Util::Id2Ref[GetWindowLong(hwnd, GWL_USERDATA)]
 
 	PostQuitMessage(0); 0
 end
@@ -68,9 +55,9 @@ def onItem1(verb,
 	hctl, hwnd
 )
 	hbar = GetMenu(hwnd)
-	i2grayed = (GetMenuState(hbar, CMD_ITEM2, 0) & MF_GRAYED) == MF_GRAYED
+	i2grayed = (GetMenuState(hbar, ID[:ITEM2], 0) & MF_GRAYED) == MF_GRAYED
 
-	EnableMenuItem(hbar, CMD_ITEM2, (i2grayed) ? MF_ENABLED : MF_GRAYED)
+	EnableMenuItem(hbar, ID[:ITEM2], (i2grayed) ? MF_ENABLED : MF_GRAYED)
 
 	0
 end
@@ -91,9 +78,9 @@ def onItem3(verb,
 	hctl, hwnd
 )
 	hbar = GetMenu(hwnd)
-	i3checked = (GetMenuState(hbar, CMD_ITEM3, 0) & MF_CHECKED) == MF_CHECKED
+	i3checked = (GetMenuState(hbar, ID[:ITEM3], 0) & MF_CHECKED) == MF_CHECKED
 
-	CheckMenuItem(hbar, CMD_ITEM3, (i3checked) ? MF_UNCHECKED : MF_CHECKED)
+	CheckMenuItem(hbar, ID[:ITEM3], (i3checked) ? MF_UNCHECKED : MF_CHECKED)
 
 	0
 end
@@ -101,7 +88,7 @@ end
 def onItem4(verb,
 	hctl, hwnd
 )
-	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM4, CMD_ITEM5, CMD_ITEM4, 0)
+	CheckMenuRadioItem(GetMenu(hwnd), ID[:ITEM4], ID[:ITEM5], ID[:ITEM4], 0)
 
 	0
 end
@@ -109,7 +96,7 @@ end
 def onItem5(verb,
 	hctl, hwnd
 )
-	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM4, CMD_ITEM5, CMD_ITEM5, 0)
+	CheckMenuRadioItem(GetMenu(hwnd), ID[:ITEM4], ID[:ITEM5], ID[:ITEM5], 0)
 
 	0
 end
@@ -117,7 +104,7 @@ end
 def onItem6(verb,
 	hctl, hwnd
 )
-	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM6, CMD_ITEM7, CMD_ITEM6, 0)
+	CheckMenuRadioItem(GetMenu(hwnd), ID[:ITEM6], ID[:ITEM7], ID[:ITEM6], 0)
 
 	0
 end
@@ -125,7 +112,7 @@ end
 def onItem7(verb,
 	hctl, hwnd
 )
-	CheckMenuRadioItem(GetMenu(hwnd), CMD_ITEM6, CMD_ITEM7, CMD_ITEM7, 0)
+	CheckMenuRadioItem(GetMenu(hwnd), ID[:ITEM6], ID[:ITEM7], ID[:ITEM7], 0)
 
 	0
 end
@@ -146,12 +133,12 @@ def onItem9(verb,
 	hctl, hwnd
 )
 	hbar = GetMenu(hwnd)
-	i2grayed = (GetMenuState(hbar, CMD_ITEM2, 0) & MF_GRAYED) == MF_GRAYED
-	i3checked = (GetMenuState(hbar, CMD_ITEM3, 0) & MF_CHECKED) == MF_CHECKED
-	i4checked = (GetMenuState(hbar, CMD_ITEM4, 0) & MF_CHECKED) == MF_CHECKED
-	i5checked = (GetMenuState(hbar, CMD_ITEM5, 0) & MF_CHECKED) == MF_CHECKED
-	i6checked = (GetMenuState(hbar, CMD_ITEM6, 0) & MF_CHECKED) == MF_CHECKED
-	i7checked = (GetMenuState(hbar, CMD_ITEM7, 0) & MF_CHECKED) == MF_CHECKED
+	i2grayed = (GetMenuState(hbar, ID[:ITEM2], 0) & MF_GRAYED) == MF_GRAYED
+	i3checked = (GetMenuState(hbar, ID[:ITEM3], 0) & MF_CHECKED) == MF_CHECKED
+	i4checked = (GetMenuState(hbar, ID[:ITEM4], 0) & MF_CHECKED) == MF_CHECKED
+	i5checked = (GetMenuState(hbar, ID[:ITEM5], 0) & MF_CHECKED) == MF_CHECKED
+	i6checked = (GetMenuState(hbar, ID[:ITEM6], 0) & MF_CHECKED) == MF_CHECKED
+	i7checked = (GetMenuState(hbar, ID[:ITEM7], 0) & MF_CHECKED) == MF_CHECKED
 
 	MessageBox(hwnd,
 		L("
@@ -194,28 +181,30 @@ begin
 		hctl = FFI::Pointer.new(lParam)
 
 		case id
-		when CMD_ITEM1
+		when ID[:ITEM1]
 			onItem1(verb, hctl, hwnd)
-		when CMD_ITEM2
+		when ID[:ITEM2]
 			onItem2(verb, hctl, hwnd)
-		when CMD_ITEM3
+		when ID[:ITEM3]
 			onItem3(verb, hctl, hwnd)
-		when CMD_ITEM4
+		when ID[:ITEM4]
 			onItem4(verb, hctl, hwnd)
-		when CMD_ITEM5
+		when ID[:ITEM5]
 			onItem5(verb, hctl, hwnd)
-		when CMD_ITEM6
+		when ID[:ITEM6]
 			onItem6(verb, hctl, hwnd)
-		when CMD_ITEM7
+		when ID[:ITEM7]
 			onItem7(verb, hctl, hwnd)
-		when CMD_ITEM8
+		when ID[:ITEM8]
 			onItem8(verb, hctl, hwnd)
-		when CMD_ITEM9
+		when ID[:ITEM9]
 			onItem9(verb, hctl, hwnd)
 		end
 	end
 
 	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
+rescue SystemExit => ex
+	PostQuitMessage(ex.status)
 rescue
 	case MessageBox(hwnd,
 		L(Util.FormatException($!)),
@@ -231,7 +220,7 @@ end
 }
 
 def main
-	xtra = WndExtra.new
+	Util.Id2RefTrack(xtra = WndExtra.new)
 
 	WNDCLASSEX.new { |wc|
 		wc[:cbSize] = wc.size