fzeet 0.4.0 → 0.4.1

data/examples/Command.rbw

@@ -2,4 +2,32 @@ require 'fzeet'
 
 include Fzeet
 
-message 'TODO...'
+Application.run { |window|
+	window.
+		on(:create) {
+			window.menu = Menu.new.
+				append(:popup, 'Menu&1', PopupMenu.new.
+					append(:string, "Item&1\tAlt+I", :item1)
+				)
+
+			Application.accelerators << AcceleratorTable.new(
+				[:alt, :I, :item1]
+			)
+
+			Button.new(window, :button1, x: 10, y: 10, width: 76, height: 24)
+		}.
+
+		on(:command, :item1) {
+			message 'on(:command, :item1)'
+
+			window[:button1].enabled = true
+			window.menu[:item1].enabled = false
+		}.
+
+		on(:command, :button1) { |args|
+			message 'on(:command, :button1)'
+
+			window.menu[:item1].enabled = true
+			args[:sender].enabled = false
+		}
+}

data/examples/LifeCycle1.rbw

@@ -15,11 +15,11 @@ class LifeCycle1Window < Window
 		args[:result] = -1 if question('Create?').no?
 	end
 
-	def onClose(args)
+	def onClose
 		dispose if question('Close?', buttons: [:yes, :No]).yes?
 	end
 
-	def onDestroy(args)
+	def onDestroy
 		message __method__
 	end
 end

data/examples/LifeCycleNC.rbw

@@ -0,0 +1,30 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.quitWhenMainWindowCloses = false
+
+Application.run { |window|
+	window.
+		on(:nccreate) { |args|
+			args[:result] = 0 if question('NCCreate?').no?
+		}.
+
+		on(:create) { |args|
+			args[:result] = -1 if question('Create?').no?
+		}.
+
+		on(:close) {
+			window.dispose if question('Close?', buttons: [:yes, :No]).yes?
+		}.
+
+		on(:destroy) {
+			message 'on(:destroy)'
+		}.
+
+		on(:ncdestroy) {
+			message 'on(:ncdestroy)'
+
+			Application.quit
+		}
+}

data/examples/Menu/Menu.rbw

@@ -0,0 +1,48 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.
+		on(:create) {
+			window.menu = Menu.new.
+				append(:popup, 'Menu&1', PopupMenu.new.
+					append(:string, 'Item&1', :item1).
+					append([:string, :grayed], 'Item&2', :item2).
+					append([:string, :checked], 'Item&3', :item3).
+
+					append(:separator).
+
+					append([:string, :usecheckbitmaps, :checked], 'Item&4', :item4).
+					append([:string, :usecheckbitmaps], 'Item&5', :item5).
+
+					append(:separator).
+
+					append(:popup, 'Menu&2', PopupMenu.new.
+						append([:string, :usecheckbitmaps, :checked], 'Item&6', :item6).
+						append([:string, :usecheckbitmaps], 'Item&7', :item7)
+					)
+				).
+
+				append(:string, 'Item&8', :item8).
+
+				append([:popup, :rightjustify], 'Menu&3', PopupMenu.new.
+					append(:string, 'Item&9', :item9)
+				)
+		}
+
+	window.
+		on(:command, :item1) { window.menu[:item2].toggle(:enabled) }.
+		on(:command, :item2) { message 'on(:command, :item2)' }.
+		on(:command, :item3) { window.menu[:item3].toggle(:checked) }
+
+	[:item4, :item5].each { |id|
+		window.on(:command, id) { window.menu[id].select(:item4, :item5) }
+	}
+
+	[:item6, :item7].each { |id|
+		window.on(:command, id) { window.menu[id].select(:item6, :item7) }
+	}
+
+	window.on(:command, :item8) { message 'on(:command, :item8)' }
+}

data/examples/Minimal.rbw

@@ -2,4 +2,6 @@ require 'fzeet'
 
 include Fzeet
 
-Application.run
+Application.run { |window|
+
+}

data/examples/Raw/Command.rbw

@@ -75,7 +75,7 @@ WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], conventio
 		end
 	end
 
-	(result.nil?) ? DefWindowProc(hwnd, uMsg, wParam, lParam) : result
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 }
 
 wc = WNDCLASSEX.new

data/examples/Raw/LifeCycle.rbw

@@ -38,7 +38,7 @@ WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], conventio
 		onDestroy(hwnd)
 	end
 
-	(result.nil?) ? DefWindowProc(hwnd, uMsg, wParam, lParam) : result
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 }
 
 wc = WNDCLASSEX.new

data/examples/Raw/Minimal.rbw

@@ -16,7 +16,7 @@ WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], conventio
 		onDestroy(hwnd)
 	end
 
-	(result.nil?) ? DefWindowProc(hwnd, uMsg, wParam, lParam) : result
+	result || DefWindowProc(hwnd, uMsg, wParam, lParam)
 }
 
 wc = WNDCLASSEX.new

data/lib/fzeet/Accelerator.rb

@@ -1,7 +1,28 @@
 require_relative 'common'
 
 module Fzeet
+	module AcceleratorTableMethods
+		def translate?(msg, window) Windows.TranslateAccelerator(window.handle, @handle, msg) != 0 end
+	end
+
 	class AcceleratorTable < Handle
+		include AcceleratorTableMethods
+
+		def initialize(*args)
+			FFI::MemoryPointer.new(Windows::ACCEL, args.size) { |paccels|
+				args.each_with_index { |data, i|
+					accel = Windows::ACCEL.new(paccels + i * Windows::ACCEL.size)
+
+					accel[:fVirt] = [*data[0]].inject(0) { |flags, flag| flags |= Windows.const_get("F#{flag.upcase}") }
+					accel[:fVirt] |= Windows::FVIRTKEY if data[1].kind_of?(Symbol)
+					accel[:key] = data[1].to_s.ord
+					accel[:cmd] = Command[data[2]]
+				}
+
+				@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateAcceleratorTable, paccels, args.size); attach
+			}
+		end
 
+		def dispose; Windows.DestroyAcceleratorTable(@handle); detach end
 	end
 end

data/lib/fzeet/Application.rb

@@ -6,33 +6,39 @@ module Fzeet
 		@version = '0.1.0'
 		@authors = []
 
+		@quitWhenMainWindowCloses = true
+
 		@window = nil
+		@accelerators = []
 
 		class << self
-			attr_accessor :name, :version, :authors
-			attr_reader :window
+			attr_accessor :name, :version, :authors, :quitWhenMainWindowCloses
+			attr_reader :window, :accelerators
 		end
 
 		def self.run(window = nil, &block)
 			return 0 if (@window = window || Window.new(&block)).handle.null?
 
-			@window.on(:destroy) { Windows.PostQuitMessage(0) }
-
-			Windows.ShowWindow(@window.handle, Windows::SW_SHOWNORMAL)
-			Windows.UpdateWindow(@window.handle)
+			@window.on(:destroy) { quit } if @quitWhenMainWindowCloses
 
-			msg = Windows::MSG.new
+			@window.show.update
 
-			while (get = Windows.GetMessage(msg, nil, 0, 0)) != 0
-				raise 'GetMessage failed.' if get == -1
+			msg = Message.new
 
-				Windows.TranslateMessage(msg)
-				Windows.DispatchMessage(msg)
+			while msg.get!
+				msg.translate.dispatch unless
+					accelerators.any? { |table| table.translate?(msg, @window) }
 			end
 
 			msg[:wParam]
 		rescue
 			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
 		end
+
+		def self.quit(code = 0)
+			accelerators.each(&:dispose)
+
+			Windows.PostQuitMessage(code)
+		end
 	end
 end

data/lib/fzeet/Control.rb

@@ -1,7 +1,60 @@
-require_relative 'common'
+require_relative 'WindowMethods'
 
 module Fzeet
 	class Control < Handle
+		include WindowMethods
 
+		Windows::NONCLIENTMETRICS.new.tap { |ncm|
+			ncm[:cbSize] = ncm.size
+
+			Windows.DetonateLastError(0, :SystemParametersInfo, Windows::SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0)
+
+			Font = IndirectFont.new(ncm[:lfMenuFont])
+
+			at_exit { Font.dispose }
+		}
+
+		def initialize(className, parent, id, opts = {})
+			@parent = parent
+			@id = Command[id]
+
+			_opts = {
+				xstyle: [],
+				caption: id.capitalize,
+				style: [:child, :visible],
+				x: Windows::CW_USEDEFAULT,
+				y: Windows::CW_USEDEFAULT,
+				width: Windows::CW_USEDEFAULT,
+				height: Windows::CW_USEDEFAULT,
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			_opts[:xstyle] = _opts[:xstyle].inject(0) { |flags, xstyle| flags |= Windows.const_get("WS_EX_#{xstyle.upcase}") }
+			_opts[:caption] = _opts[:caption].to_s
+			_opts[:style] = _opts[:style].inject(0) { |flags, style| flags |= Windows.const_get("WS_#{style.upcase}") }
+
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateWindowEx,
+				_opts[:xstyle], className, _opts[:caption], _opts[:style],
+				_opts[:x], _opts[:y], _opts[:width], _opts[:height],
+				@parent.handle, FFI::Pointer.new(@id), Windows.GetModuleHandle(nil), nil
+			)
+
+			attach
+
+			sendmsg(:setfont, Font.handle, 1)
+		end
+
+		attr_reader :parent, :id
+
+		def dispose; detach end
+	end
+
+	class Button < Control
+		def initialize(parent, id, opts = {}, &block)
+			super('Button', parent, id, opts)
+
+			@parent.on(:command, @id, &block) if block
+		end
 	end
 end

data/lib/fzeet/Menu.rb

@@ -2,14 +2,96 @@ require_relative 'common'
 
 module Fzeet
 	class MenuItem
+		include Toggle
 
+		def initialize(menu, id) @menu, @id = menu, Command[id] end
+
+		attr_reader :menu, :id
+
+		def enabled?
+			flags = Windows.DetonateLastError(-1, :GetMenuState, @menu.handle, @id, 0)
+
+			(flags & Windows::MF_GRAYED) != Windows::MF_GRAYED
+		end
+
+		def enabled=(enabled)
+			Windows.DetonateLastError(-1, :EnableMenuItem,
+				@menu.handle,
+				@id,
+				(enabled) ? Windows::MF_ENABLED : Windows::MF_GRAYED
+			)
+		end
+
+		def checked?
+			flags = Windows.DetonateLastError(-1, :GetMenuState, @menu.handle, @id, 0)
+
+			(flags & Windows::MF_CHECKED) == Windows::MF_CHECKED
+		end
+
+		def checked=(checked)
+			Windows.DetonateLastError(-1, :CheckMenuItem,
+				@menu.handle,
+				@id,
+				(checked) ? Windows::MF_CHECKED : Windows::MF_UNCHECKED
+			)
+		end
+
+		def select(first, last)
+			Windows.DetonateLastError(0, :CheckMenuRadioItem,
+				@menu.handle, Command[first], Command[last], @id, 0
+			)
+
+			self
+		end
+	end
+
+	module MenuMethods
+		def rdetach; submenus.each(&:rdetach); detach end
+
+		def [](id) MenuItem.new(self, id) end
+
+		def append(flags, item = nil, id = 0)
+			Windows.DetonateLastError(0, :AppendMenu,
+				@handle,
+				[*flags].inject(0) { |flags, flag| flags |= Windows.const_get("MF_#{flag.upcase}") },
+				case id
+				when Integer; id
+				when Symbol; Command[id]
+				when MenuMethods; submenus << id; id.handle.to_i
+				else raise ArgumentError
+				end,
+				item
+			)
+
+			self
+		end
 	end
 
 	class Menu < Handle
+		include MenuMethods
+
+		def initialize
+			@submenus = []
 
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateMenu); attach
+		end
+
+		attr_reader :submenus
+
+		def dispose; Windows.DestroyMenu(@handle); rdetach end
 	end
 
 	class PopupMenu < Handle
+		include MenuMethods
+
+		def initialize
+			@submenus = []
+
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreatePopupMenu); attach
+		end
+
+		attr_reader :submenus
 
+		def dispose; Windows.DestroyMenu(@handle); rdetach end
 	end
 end

data/lib/fzeet/Window.rb

@@ -1,7 +1,9 @@
-require_relative 'common'
+require_relative 'WindowMethods'
 
 module Fzeet
 	class Window < Handle
+		include WindowMethods
+
 		WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], convention: :stdcall) { |hwnd, uMsg, wParam, lParam|
 			begin
 				if uMsg == Windows::WM_NCCREATE
@@ -55,6 +57,9 @@ module Fzeet
 			when Windows::WM_NCCREATE
 				args[:result] = 1
 				args[:cs] = Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))
+			when Windows::WM_COMMAND
+				args[:command], args[:notification], args[:hctl] = Windows.LOWORD(wParam), Windows.HIWORD(wParam), FFI::Pointer.new(lParam)
+				args[:sender] = @@instances[args[:hctl].to_i] unless args[:hctl].null?
 			end
 
 			args
@@ -82,6 +87,7 @@ module Fzeet
 			_opts[:style] = _opts[:style].inject(0) { |flags, style| flags |= Windows.const_get("WS_#{style.upcase}") }
 
 			@messages ||= {}
+			@commands ||= {}
 
 			@processed = [0, 0]
 
@@ -92,13 +98,19 @@ module Fzeet
 			)
 
 			if @handle.null?
-				raise 'CreateWindowEx failed.' unless [
+				raise "CreateWindowEx failed (last error #{Windows.GetLastError()})." unless [
 					[Windows::WM_NCCREATE, 0], [Windows::WM_CREATE, -1],
 					[Windows::WM_DESTROY, 0], [Windows::WM_NCDESTROY, 0]
 				].include?(@processed)
 			else
 				@parent = _opts[:parent]
 				self.menu = _opts[:menu] if _opts[:menu]
+
+				on(:destroy) {
+					menu.rdetach if self.menu
+
+					eachChild(&:dispose)
+				}
 			end
 		end
 
@@ -113,12 +125,28 @@ module Fzeet
 				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
 
 				handlers.each { |handler|
-					handler.call(args)
+					(handler.arity == 0) ? handler.call : handler.call(args)
 
 					result = args[:result]; @processed[0], @processed[1] = uMsg, result
 				}
 			end
 
+			if uMsg == Windows::WM_COMMAND && (handlers = @commands[Windows.LOWORD(wParam)])
+				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
+
+				handlers[:all].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				} if handlers[:all]
+
+				handlers[Windows.HIWORD(wParam)].each { |handler|
+					(handler.arity == 0) ? handler.call : handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				} if handlers[Windows.HIWORD(wParam)]
+			end
+
 			result
 		end
 
@@ -128,9 +156,20 @@ module Fzeet
 			self
 		end
 
+		def onCommand(cmd, notification = :all, &block)
+			(((@commands ||= {})[Command[cmd]] ||= {})[notification] ||= []) << block
+
+			self
+		end
+
 		def on(*args, &block)
 			case args.length
 			when 1; onMessage(*args, &block)
+			when 2, 3
+				case Windows.const_get("WM_#{args.shift.upcase}")
+				when Windows::WM_COMMAND; onCommand(*args, &block)
+				else raise ArgumentError
+				end
 			else raise ArgumentError
 			end
 		end

data/lib/fzeet/WindowMethods.rb

@@ -0,0 +1,49 @@
+require_relative 'common'
+
+module Fzeet
+	module WindowMethods
+		include Toggle
+
+		def show(cmdShow = :shownormal) Windows.ShowWindow(@handle, Windows.const_get("SW_#{cmdShow.upcase}")); self end
+		def update; Windows.DetonateLastError(0, :UpdateWindow, @handle); self end
+
+		def enabled?; Windows.IsWindowEnabled(@handle) != 0 end
+		def enabled=(enabled) Windows.EnableWindow(@handle, (enabled) ? 1 : 0) end
+
+		def [](id) Handle.instance(Windows.DetonateLastError(FFI::Pointer::NULL, :GetDlgItem, @handle, Command[id])) end
+
+		EnumChildProc = FFI::Function.new(:int, [:pointer, :long], convention: :stdcall) { |hwnd, lParam|
+			ObjectSpace._id2ref(lParam).call(Handle.instance(hwnd)) if Handle.instance?(hwnd); 1
+		}
+
+		def eachChild(&block) Windows.EnumChildWindows(@handle, EnumChildProc, block.object_id); self end
+
+		def sendmsg(msg, wParam = 0, lParam = 0)
+			Windows.SendMessage(
+				@handle,
+				Windows.const_get("WM_#{msg.upcase}"),
+				wParam.to_i,
+				((lparam = lParam.to_i) > 0x7fff_ffff) ? lparam - 0x1_0000_0000 : lparam
+			)
+		end
+
+		def postmsg(msg, wParam = 0, lParam = 0)
+			Windows.DetonateLastError(0, :PostMessage,
+				@handle,
+				Windows.const_get("WM_#{msg.upcase}"),
+				wParam.to_i,
+				((lparam = lParam.to_i) > 0x7fff_ffff) ? lparam - 0x1_0000_0000 : lparam
+			)
+
+			self
+		end
+
+		def menu; (Handle.instance?(handle = Windows.GetMenu(@handle))) ? Handle.instance(handle) : nil end
+
+		def menu=(menu)
+			self.menu.dispose if self.menu
+
+			Windows.DetonateLastError(0, :SetMenu, @handle, menu.handle) if menu
+		end
+	end
+end

data/lib/fzeet/common.rb

@@ -1,6 +1,23 @@
 require_relative 'windows'
 
 module Fzeet
+	module Toggle
+		def toggle(what) send("#{what}=", !send("#{what}?")); self end
+	end
+
+	class Command
+		@ids = {}
+		@nextId = Windows::WM_APP + 1
+
+		def self.[](id)
+			id = id.upcase
+
+			@ids[id], @nextId = @nextId, @nextId + 1 unless @ids.include?(id)
+
+			@ids[id]
+		end
+	end
+
 	class DialogResult
 		def initialize(id)
 			@id = id
@@ -37,7 +54,7 @@ module Fzeet
 			Windows.const_get("MB_ICON#{_opts[:icon].upcase}")
 
 		DialogResult.new(
-			Windows.MessageBox(_opts[:window] && _opts[:window].handle, message.to_s, _opts[:caption].to_s, flags)
+			Windows.DetonateLastError(0, :MessageBox, _opts[:window] && _opts[:window].handle, message.to_s, _opts[:caption].to_s, flags)
 		)
 	end
 
@@ -50,6 +67,15 @@ module Fzeet
 
 	module_function :message, :question
 
+	class Message < Windows::MSG
+		def get!(window = nil, msgFilterMin = 0, msgFilterMax = 0)
+			Windows.DetonateLastError(-1, :GetMessage, self, window && window.handle, msgFilterMin, msgFilterMax) != 0
+		end
+
+		def translate; Windows.TranslateMessage(self); self end
+		def dispatch; Windows.DispatchMessage(self); self end
+	end
+
 	class Handle
 		@@instances = {}
 
@@ -69,4 +95,28 @@ module Fzeet
 		def attach; @@instances[@handle.to_i] = self end
 		def detach; @@instances.delete(@handle.to_i) end
 	end
+
+	def using(o, cleanup = :dispose)
+		yield o
+	ensure
+		o.send(cleanup)
+	end
+
+	module_function :using
+
+	module FontMethods
+
+	end
+
+	class IndirectFont < Handle
+		include FontMethods
+
+		def initialize(logfont)
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateFontIndirect, @logfont = logfont); attach
+		end
+
+		attr_reader :logfont
+
+		def dispose; Windows.DeleteObject(@handle); detach end
+	end
 end

data/lib/fzeet/windows/gdi.rb

@@ -8,5 +8,7 @@ module Fzeet
 		DEFAULT_GUI_FONT = 17
 
 		attach_function :GetStockObject, [:int], :pointer
+		attach_function :CreateFontIndirect, :CreateFontIndirectA, [:pointer], :pointer
+		attach_function :DeleteObject, [:pointer], :int
 	end
 end

data/lib/fzeet/windows/kernel.rb

@@ -7,16 +7,6 @@ module Fzeet
 
 		attach_function :GetLastError, [], :ulong
 
-		def DetonateLastError(on, name, *args)
-			raise "#{name} failed (last error #{GetLastError()})." if (failed = [*on].include?(result = send(name, *args)))
-
-			result
-		ensure
-			yield failed if block_given?
-		end
-
-		module_function :DetonateLastError
-
 		class ACTCTX < FFI::Struct
 			layout \
 				:cbSize, :ulong,

data/lib/fzeet/windows/user.rb

@@ -94,10 +94,16 @@ module Fzeet
 		attach_function :ShowWindow, [:pointer, :int], :int
 
 		attach_function :UpdateWindow, [:pointer], :int
+
+		attach_function :IsWindowEnabled, [:pointer], :int
 		attach_function :EnableWindow, [:pointer, :int], :int
 
 		attach_function :GetDlgItem, [:pointer, :int], :pointer
 
+		callback :WNDENUMPROC, [:pointer, :long], :int
+
+		attach_function :EnumChildWindows, [:pointer, :WNDENUMPROC, :long], :int
+
 		attach_function :GetMenu, [:pointer], :pointer
 		attach_function :SetMenu, [:pointer, :pointer], :int
 
@@ -105,13 +111,21 @@ module Fzeet
 		attach_function :CreatePopupMenu, [], :pointer
 		attach_function :DestroyMenu, [:pointer], :int
 
+		MF_SEPARATOR = 0x00000800
 		MF_ENABLED = 0x00000000
 		MF_GRAYED = 0x00000001
+		MF_UNCHECKED = 0x00000000
+		MF_CHECKED = 0x00000008
+		MF_USECHECKBITMAPS = 0x00000200
 		MF_STRING = 0x00000000
 		MF_POPUP = 0x00000010
+		MF_RIGHTJUSTIFY = 0x00004000
 
 		attach_function :AppendMenu, :AppendMenuA, [:pointer, :uint, :uint, :string], :int
+		attach_function :GetMenuState, [:pointer, :uint, :uint], :uint
 		attach_function :EnableMenuItem, [:pointer, :uint, :uint], :int
+		attach_function :CheckMenuItem, [:pointer, :uint, :uint], :ulong
+		attach_function :CheckMenuRadioItem, [:pointer, :uint, :uint, :uint, :uint], :int
 
 		FVIRTKEY = 1
 		FSHIFT = 0x04
@@ -160,5 +174,47 @@ module Fzeet
 		attach_function :SendMessage, :SendMessageA, [:pointer, :uint, :uint, :long], :long
 		attach_function :PostMessage, :PostMessageA, [:pointer, :uint, :uint, :long], :int
 		attach_function :PostQuitMessage, [:int], :void
+
+		SPI_GETNONCLIENTMETRICS = 0x0029
+
+		class LOGFONT < FFI::Struct
+			layout \
+				:lfHeight, :long,
+				:lfWidth, :long,
+				:lfEscapement, :long,
+				:lfOrientation, :long,
+				:lfWeight, :long,
+				:lfItalic, :uchar,
+				:lfUnderline, :uchar,
+				:lfStrikeOut, :uchar,
+				:lfCharSet, :uchar,
+				:lfOutPrecision, :uchar,
+				:lfClipPrecision, :uchar,
+				:lfQuality, :uchar,
+				:lfPitchAndFamily, :uchar,
+				:lfFaceName, [:char, 32]
+		end
+
+		class NONCLIENTMETRICS < FFI::Struct
+			layout \
+				:cbSize, :uint,
+				:iBorderWidth, :int,
+				:iScrollWidth, :int,
+				:iScrollHeight, :int,
+				:iCaptionWidth, :int,
+				:iCaptionHeight, :int,
+				:lfCaptionFont, LOGFONT,
+				:iSmCaptionWidth, :int,
+				:iSmCaptionHeight, :int,
+				:lfSmCaptionFont, LOGFONT,
+				:iMenuWidth, :int,
+				:iMenuHeight, :int,
+				:lfMenuFont, LOGFONT,
+				:lfStatusFont, LOGFONT,
+				:lfMessageFont, LOGFONT,
+				:iPaddedBorderWidth, :int
+		end
+
+		attach_function :SystemParametersInfo, :SystemParametersInfoA, [:uint, :uint, :pointer, :uint], :int
 	end
 end

data/lib/fzeet/windows.rb

@@ -6,6 +6,16 @@ require_relative 'windows/gdi'
 
 module Fzeet
 	module Windows
+		def DetonateLastError(on, name, *args)
+			raise "#{name} failed (last error #{GetLastError()})." if (failed = [*on].include?(result = send(name, *args)))
+
+			result
+		ensure
+			yield failed if block_given?
+		end
+
+		module_function :DetonateLastError
+
 		COMMON_CONTROLS_ACTCTX = {handle: INVALID_HANDLE_VALUE, cookie: FFI::MemoryPointer.new(:ulong), activated: false}
 
 		at_exit {

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: fzeet
 version: !ruby/object:Gem::Version 
-  hash: 15
+  hash: 13
   prerelease: false
   segments: 
   - 0
   - 4
-  - 0
-  version: 0.4.0
+  - 1
+  version: 0.4.1
 platform: ruby
 authors: 
 - Radoslav Peev
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-09 00:00:00 +03:00
+date: 2010-08-13 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -54,6 +54,7 @@ files:
 - lib/fzeet/Control.rb
 - lib/fzeet/Menu.rb
 - lib/fzeet/Window.rb
+- lib/fzeet/WindowMethods.rb
 - lib/fzeet/windows.rb
 - lib/fzeet.rb
 - examples/Raw/Command.rbw
@@ -65,8 +66,10 @@ files:
 - examples/LifeCycle.rbw
 - examples/LifeCycle1.rbw
 - examples/LifeCycle2.rbw
+- examples/LifeCycleNC.rbw
 - examples/MessageBox.rbw
 - examples/Minimal.rbw
+- examples/Menu/Menu.rbw
 - LICENSE
 has_rdoc: true
 homepage: