fzeet 0.6.5 → 0.6.6

data/lib/fzeet/windows/user/Control/Static.rb

@@ -46,4 +46,35 @@ module Fzeet
 		STN_ENABLE = 2
 		STN_DISABLE = 3
 	end
+
+	module StaticMethods
+		def clear; self.text = ''; self end
+
+		def image=(image) sendmsg(:setimage, Windows::IMAGE_BITMAP, image.handle) end
+	end
+
+	class Static < Control
+		include StaticMethods
+
+		Prefix = {
+			xstyle: [:ws_ex_],
+			style: [:ss_, :ws_],
+			message: [:stm_, :wm_],
+			notification: [:stn_]
+		}
+
+		def initialize(parent, id, opts = {}, &block)
+			super('Static', parent, id, opts)
+
+			style >> :tabstop
+
+			@parent.on(:command, @id, &block) if block
+		end
+
+		def on(notification, &block)
+			@parent.on(:command, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
+
+			self
+		end
+	end
 end

data/lib/fzeet/windows/user/Menu.rb

@@ -111,5 +111,135 @@ module Fzeet
 		TPM_WORKAREA = 0x10000
 
 		attach_function :TrackPopupMenu, [:pointer, :uint, :int, :int, :int, :pointer, :pointer], :int
+
+		module MenuMethods
+			def rdetach; submenus.each(&:rdetach); detach end
+
+			class Item
+				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
+
+				def info(mask)
+					Windows.DetonateLastError(0, :GetMenuItemInfo,
+						@menu.handle,
+						@id,
+						0,
+						info = Windows::MENUITEMINFO.new.tap { |mii|
+							mii[:cbSize] = mii.size
+							mii[:fMask] = Fzeet.constant(mask, :miim_)
+						}
+					)
+
+					info
+				end
+
+				def info=(mii)
+					Windows.DetonateLastError(0, :SetMenuItemInfo,
+						@menu.handle,
+						@id,
+						0,
+						mii.tap { mii[:cbSize] = mii.size }
+					)
+				end
+
+				def image; (Handle.instance?(handle = info(:bitmap)[:hbmpItem])) ? Handle.instance(handle) : nil end
+
+				def image=(image)
+					self.info = Windows::MENUITEMINFO.new.tap { |mii|
+						mii[:fMask] = Windows::MIIM_BITMAP
+						mii[:hbmpItem] = image.handle
+					}
+				end
+			end
+
+			def [](id) Item.new(self, id) end
+
+			def append(flags, item = nil, id = 0)
+				Windows.DetonateLastError(0, :AppendMenu,
+					@handle,
+					Fzeet.flags(flags, :mf_, :mft_, :mfs_),
+					case id
+					when Integer; id
+					when Symbol; Command[id]
+					when Windows::MenuMethods; submenus << id; id.handle.to_i
+					else raise ArgumentError
+					end,
+					item
+				)
+
+				self
+			end
+
+			def images=(images) images.each { |id, image| self[id].image = image } end
+		end
+	end
+
+	Windows::MenuMethods::Item.send(:include, Toggle)
+
+	class Menu < Handle
+		include Windows::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 Windows::MenuMethods
+
+		def initialize
+			@submenus = []
+
+			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreatePopupMenu); attach
+		end
+
+		attr_reader :submenus
+
+		def dispose; Windows.DestroyMenu(@handle); rdetach end
+
+		def track(window, x, y, flags = 0) Windows.TrackPopupMenu(@handle, Fzeet.flags(flags, :tpm_), x, y, 0, window.handle, nil); self end
 	end
 end

data/lib/fzeet/windows/user/Message.rb

@@ -257,4 +257,13 @@ module Fzeet
 		attach_function :PostMessage, :PostMessageA, [:pointer, :uint, :uint, :long], :int
 		attach_function :PostQuitMessage, [:int], :void
 	end
+
+	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
 end

data/lib/fzeet/windows/user/MessageBox.rb

@@ -55,4 +55,51 @@ module Fzeet
 
 		attach_function :MessageBox, :MessageBoxA, [:pointer, :string, :string, :uint], :int
 	end
+
+	class DialogResult
+		def initialize(id)
+			@id = id
+		end
+
+		attr_reader :id
+
+		Windows.constants.grep(/^ID[A-Z]{2,}$/).each { |c|
+			define_method("#{c[2..-1].downcase}?") {
+				@id == Windows.const_get(c)
+			}
+		}
+	end
+
+	def message(message, opts = {})
+		_opts = {
+			window: Application.window,
+			caption: Application.name,
+			buttons: [:ok],
+			icon: :information
+		}
+		badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+		_opts.merge!(opts)
+
+		defbutton = nil
+		defbutton = if [*_opts[:buttons]].find.with_index { |button, i| defbutton = i + 1; button =~ /^[A-Z]/ }
+			constant(defbutton.to_s, :mb_defbutton)
+		else
+			0
+		end
+
+		flags = constant([*_opts[:buttons]].join(''), :mb_) | defbutton | constant(_opts[:icon], :mb_icon)
+
+		DialogResult.new(
+			Windows.DetonateLastError(0, :MessageBox, _opts[:window] && _opts[:window].handle, message.to_s, _opts[:caption].to_s, flags)
+		)
+	end
+
+	def question(message, opts = {})
+		opts[:buttons] ||= [:yes, :no]
+		opts[:icon] ||= :question
+
+		message(message, opts)
+	end
+
+	module_function :message, :question
 end

data/lib/fzeet/windows/user/SystemParametersInfo.rb

@@ -235,7 +235,7 @@ module Fzeet
 				:lfMenuFont, LOGFONT,
 				:lfStatusFont, LOGFONT,
 				:lfMessageFont, LOGFONT,
-				(WINVER.AtLeastWindowsVista?) ? [:iPaddedBorderWidth, :int] : nil
+				(Version >= :vista) ? [:iPaddedBorderWidth, :int] : nil
 			].flatten.compact
 		end
 

data/lib/fzeet/windows/user/Window.rb

@@ -1,463 +1,5 @@
-require_relative 'Common'
-
-module Fzeet
-	module Windows
-		CS_VREDRAW = 0x0001
-		CS_HREDRAW = 0x0002
-		CS_DBLCLKS = 0x0008
-		CS_OWNDC = 0x0020
-		CS_CLASSDC = 0x0040
-		CS_PARENTDC = 0x0080
-		CS_NOCLOSE = 0x0200
-		CS_SAVEBITS = 0x0800
-		CS_BYTEALIGNCLIENT = 0x1000
-		CS_BYTEALIGNWINDOW = 0x2000
-		CS_GLOBALCLASS = 0x4000
-		CS_IME = 0x00010000
-		CS_DROPSHADOW = 0x00020000
-
-		callback :WNDPROC, [:pointer, :uint, :uint, :long], :long
-
-		attach_function :DefWindowProc, :DefWindowProcA, [:pointer, :uint, :uint, :long], :long
-		attach_function :DefFrameProc, :DefFrameProcA, [:pointer, :pointer, :uint, :uint, :long], :long
-		attach_function :DefMDIChildProc, :DefMDIChildProcA, [:pointer, :uint, :uint, :long], :long
-
-		callback :DLGPROC, [:pointer, :uint, :uint, :long], :int
-
-		attach_function :DefDlgProc, :DefDlgProcA, [:pointer, :uint, :uint, :long], :long
-
-		IDI_APPLICATION = FFI::Pointer.new(32512)
-		IDI_HAND = FFI::Pointer.new(32513)
-		IDI_QUESTION = FFI::Pointer.new(32514)
-		IDI_EXCLAMATION = FFI::Pointer.new(32515)
-		IDI_ASTERISK = FFI::Pointer.new(32516)
-		IDI_WINLOGO = FFI::Pointer.new(32517)
-		IDI_SHIELD = FFI::Pointer.new(32518)
-		IDI_WARNING = IDI_EXCLAMATION
-		IDI_ERROR = IDI_HAND
-		IDI_INFORMATION = IDI_ASTERISK
-
-		attach_function :LoadIcon, :LoadIconA, [:pointer, :pointer], :pointer
-
-		IDC_ARROW = FFI::Pointer.new(32512)
-		IDC_IBEAM = FFI::Pointer.new(32513)
-		IDC_WAIT = FFI::Pointer.new(32514)
-		IDC_CROSS = FFI::Pointer.new(32515)
-		IDC_UPARROW = FFI::Pointer.new(32516)
-		IDC_SIZE = FFI::Pointer.new(32640)
-		IDC_ICON = FFI::Pointer.new(32641)
-		IDC_SIZENWSE = FFI::Pointer.new(32642)
-		IDC_SIZENESW = FFI::Pointer.new(32643)
-		IDC_SIZEWE = FFI::Pointer.new(32644)
-		IDC_SIZENS = FFI::Pointer.new(32645)
-		IDC_SIZEALL = FFI::Pointer.new(32646)
-		IDC_NO = FFI::Pointer.new(32648)
-		IDC_HAND = FFI::Pointer.new(32649)
-		IDC_APPSTARTING = FFI::Pointer.new(32650)
-		IDC_HELP = FFI::Pointer.new(32651)
-
-		attach_function :LoadCursor, :LoadCursorA, [:pointer, :pointer], :pointer
-
-		COLOR_SCROLLBAR = 0
-		COLOR_BACKGROUND = 1
-		COLOR_ACTIVECAPTION = 2
-		COLOR_INACTIVECAPTION = 3
-		COLOR_MENU = 4
-		COLOR_WINDOW = 5
-		COLOR_WINDOWFRAME = 6
-		COLOR_MENUTEXT = 7
-		COLOR_WINDOWTEXT = 8
-		COLOR_CAPTIONTEXT = 9
-		COLOR_ACTIVEBORDER = 10
-		COLOR_INACTIVEBORDER = 11
-		COLOR_APPWORKSPACE = 12
-		COLOR_HIGHLIGHT = 13
-		COLOR_HIGHLIGHTTEXT = 14
-		COLOR_BTNFACE = 15
-		COLOR_BTNSHADOW = 16
-		COLOR_GRAYTEXT = 17
-		COLOR_BTNTEXT = 18
-		COLOR_INACTIVECAPTIONTEXT = 19
-		COLOR_BTNHIGHLIGHT = 20
-		COLOR_3DDKSHADOW = 21
-		COLOR_3DLIGHT = 22
-		COLOR_INFOTEXT = 23
-		COLOR_INFOBK = 24
-		COLOR_HOTLIGHT = 26
-		COLOR_GRADIENTACTIVECAPTION = 27
-		COLOR_GRADIENTINACTIVECAPTION = 28
-		COLOR_MENUHILIGHT = 29
-		COLOR_MENUBAR = 30
-		COLOR_DESKTOP = COLOR_BACKGROUND
-		COLOR_3DFACE = COLOR_BTNFACE
-		COLOR_3DSHADOW = COLOR_BTNSHADOW
-		COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT
-		COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT
-		COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT
-
-		CTLCOLOR_MSGBOX = 0
-		CTLCOLOR_EDIT = 1
-		CTLCOLOR_LISTBOX = 2
-		CTLCOLOR_BTN = 3
-		CTLCOLOR_DLG = 4
-		CTLCOLOR_SCROLLBAR = 5
-		CTLCOLOR_STATIC = 6
-		CTLCOLOR_MAX = 7
-
-		class WNDCLASSEX < FFI::Struct
-			layout \
-				:cbSize, :uint,
-				:style, :uint,
-				:lpfnWndProc, :WNDPROC,
-				:cbClsExtra, :int,
-				:cbWndExtra, :int,
-				:hInstance, :pointer,
-				:hIcon, :pointer,
-				:hCursor, :pointer,
-				:hbrBackground, :pointer,
-				:lpszMenuName, :pointer,
-				:lpszClassName, :pointer,
-				:hIconSm, :pointer
-		end
-
-		attach_function :RegisterClassEx, :RegisterClassExA, [:pointer], :ushort
-
-		GCL_MENUNAME = -8
-		GCL_HBRBACKGROUND = -10
-		GCL_HCURSOR = -12
-		GCL_HICON = -14
-		GCL_HMODULE = -16
-		GCL_CBWNDEXTRA = -18
-		GCL_CBCLSEXTRA = -20
-		GCL_WNDPROC = -24
-		GCL_STYLE = -26
-		GCL_HICONSM = -34
-
-		GCLP_MENUNAME = -8
-		GCLP_HBRBACKGROUND = -10
-		GCLP_HCURSOR = -12
-		GCLP_HICON = -14
-		GCLP_HMODULE = -16
-		GCLP_WNDPROC = -24
-		GCLP_HICONSM = -34
-
-		attach_function :GetClassLong, :GetClassLongA, [:pointer, :int], :ulong
-		attach_function :SetClassLong, :SetClassLongA, [:pointer, :int, :long], :ulong
-
-		HWND_BROADCAST = FFI::Pointer.new(0xffff)
-		HWND_MESSAGE = FFI::Pointer.new(-3)
-		HWND_DESKTOP = FFI::Pointer.new(0)
-		HWND_TOP = FFI::Pointer.new(0)
-		HWND_BOTTOM = FFI::Pointer.new(1)
-		HWND_TOPMOST = FFI::Pointer.new(-1)
-		HWND_NOTOPMOST = FFI::Pointer.new(-2)
-
-		WS_OVERLAPPED = 0x00000000
-		WS_POPUP = 0x80000000
-		WS_CHILD = 0x40000000
-		WS_MINIMIZE = 0x20000000
-		WS_VISIBLE = 0x10000000
-		WS_DISABLED = 0x08000000
-		WS_CLIPSIBLINGS = 0x04000000
-		WS_CLIPCHILDREN = 0x02000000
-		WS_MAXIMIZE = 0x01000000
-		WS_CAPTION = 0x00C00000
-		WS_BORDER = 0x00800000
-		WS_DLGFRAME = 0x00400000
-		WS_VSCROLL = 0x00200000
-		WS_HSCROLL = 0x00100000
-		WS_SYSMENU = 0x00080000
-		WS_THICKFRAME = 0x00040000
-		WS_GROUP = 0x00020000
-		WS_TABSTOP = 0x00010000
-		WS_MINIMIZEBOX = 0x00020000
-		WS_MAXIMIZEBOX = 0x00010000
-		WS_TILED = WS_OVERLAPPED
-		WS_ICONIC = WS_MINIMIZE
-		WS_SIZEBOX = WS_THICKFRAME
-		WS_OVERLAPPEDWINDOW = WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
-		WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
-		WS_POPUPWINDOW = WS_POPUP | WS_BORDER | WS_SYSMENU
-		WS_CHILDWINDOW = WS_CHILD
-		WS_ACTIVECAPTION = 0x0001
-
-		WS_EX_DLGMODALFRAME = 0x00000001
-		WS_EX_NOPARENTNOTIFY = 0x00000004
-		WS_EX_TOPMOST = 0x00000008
-		WS_EX_ACCEPTFILES = 0x00000010
-		WS_EX_TRANSPARENT = 0x00000020
-		WS_EX_MDICHILD = 0x00000040
-		WS_EX_TOOLWINDOW = 0x00000080
-		WS_EX_WINDOWEDGE = 0x00000100
-		WS_EX_CLIENTEDGE = 0x00000200
-		WS_EX_CONTEXTHELP = 0x00000400
-		WS_EX_RIGHT = 0x00001000
-		WS_EX_LEFT = 0x00000000
-		WS_EX_RTLREADING = 0x00002000
-		WS_EX_LTRREADING = 0x00000000
-		WS_EX_LEFTSCROLLBAR = 0x00004000
-		WS_EX_RIGHTSCROLLBAR = 0x00000000
-		WS_EX_CONTROLPARENT = 0x00010000
-		WS_EX_STATICEDGE = 0x00020000
-		WS_EX_APPWINDOW = 0x00040000
-		WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE
-		WS_EX_PALETTEWINDOW = WS_EX_WINDOWEDGE | WS_EX_TOOLWINDOW | WS_EX_TOPMOST
-		WS_EX_LAYERED = 0x00080000
-		WS_EX_NOINHERITLAYOUT = 0x00100000
-		WS_EX_LAYOUTRTL = 0x00400000
-		WS_EX_COMPOSITED = 0x02000000
-		WS_EX_NOACTIVATE = 0x08000000
-
-		CW_USEDEFAULT = -0x80000000
-
-		class CREATESTRUCT < FFI::Struct
-			layout \
-				:lpCreateParams, :pointer,
-				:hInstance, :pointer,
-				:hMenu, :pointer,
-				:hwndParent, :pointer,
-				:cy, :int,
-				:cx, :int,
-				:y, :int,
-				:x, :int,
-				:style, :long,
-				:lpszName, :pointer,
-				:lpszClass, :pointer,
-				:dwExStyle, :ulong
-		end
-
-		attach_function :CreateWindowEx, :CreateWindowExA, [:ulong, :string, :string, :ulong, :int, :int, :int, :int, :pointer, :pointer, :pointer, :pointer], :pointer
-		attach_function :DestroyWindow, [:pointer], :int
-
-		MDIS_ALLCHILDSTYLES = 0x0001
-
-		class MDICREATESTRUCT < FFI::Struct
-			layout \
-				:szClass, :pointer,
-				:szTitle, :pointer,
-				:hOwner, :pointer,
-				:x, :int,
-				:y, :int,
-				:cx, :int,
-				:cy, :int,
-				:style, :ulong,
-				:lParam, :long
-		end
-
-		class CLIENTCREATESTRUCT < FFI::Struct
-			layout \
-				:hWindowMenu, :pointer,
-				:idFirstChild, :uint
-		end
-
-		attach_function :CreateMDIWindow, :CreateMDIWindowA, [:string, :string, :ulong, :int, :int, :int, :int, :pointer, :pointer, :long], :pointer
-
-		DS_ABSALIGN = 0x01
-		DS_SYSMODAL = 0x02
-		DS_LOCALEDIT = 0x20
-		DS_SETFONT = 0x40
-		DS_MODALFRAME = 0x80
-		DS_NOIDLEMSG = 0x100
-		DS_SETFOREGROUND = 0x200
-		DS_3DLOOK = 0x0004
-		DS_FIXEDSYS = 0x0008
-		DS_NOFAILCREATE = 0x0010
-		DS_CONTROL = 0x0400
-		DS_CENTER = 0x0800
-		DS_CENTERMOUSE = 0x1000
-		DS_CONTEXTHELP = 0x2000
-		DS_SHELLFONT = DS_SETFONT | DS_FIXEDSYS
-
-		class DLGTEMPLATE < FFI::Struct
-			layout \
-				:style, :ulong,
-				:dwExtendedStyle, :ulong,
-				:cdit, :ushort,
-				:x, :short,
-				:y, :short,
-				:cx, :short,
-				:cy, :short,
-				:menu, :ushort,
-				:windowClass, :ushort,
-				:title, :ushort
-		end
-
-		attach_function :CreateDialogIndirectParam, :CreateDialogIndirectParamA, [:pointer, :pointer, :pointer, :DLGPROC, :long], :pointer
-		attach_function :DialogBoxIndirectParam, :DialogBoxIndirectParamA, [:pointer, :pointer, :pointer, :DLGPROC, :long], :int
-		attach_function :EndDialog, [:pointer, :int], :int
-
-		GWL_WNDPROC = -4
-		GWL_HINSTANCE = -6
-		GWL_HWNDPARENT = -8
-		GWL_STYLE = -16
-		GWL_EXSTYLE = -20
-		GWL_USERDATA = -21
-		GWL_ID = -12
-
-		GWLP_WNDPROC = -4
-		GWLP_HINSTANCE = -6
-		GWLP_HWNDPARENT = -8
-		GWLP_USERDATA = -21
-		GWLP_ID = -12
-
-		DWL_MSGRESULT = 0
-		DWL_DLGPROC = 4
-		DWL_USER = 8
-
-		attach_function :GetWindowLong, :GetWindowLongA, [:pointer, :int], :long
-		attach_function :SetWindowLong, :SetWindowLongA, [:pointer, :int, :long], :long
-
-		attach_function :IsWindowEnabled, [:pointer], :int
-		attach_function :EnableWindow, [:pointer, :int], :int
-
-		attach_function :IsWindowVisible, [:pointer], :int
-
-		SW_HIDE = 0
-		SW_SHOWNORMAL = 1
-		SW_NORMAL = 1
-		SW_SHOWMINIMIZED = 2
-		SW_SHOWMAXIMIZED = 3
-		SW_MAXIMIZE = 3
-		SW_SHOWNOACTIVATE = 4
-		SW_SHOW = 5
-		SW_MINIMIZE = 6
-		SW_SHOWMINNOACTIVE = 7
-		SW_SHOWNA = 8
-		SW_RESTORE = 9
-		SW_SHOWDEFAULT = 10
-		SW_FORCEMINIMIZE = 11
-		SW_MAX = 11
-		SW_PARENTCLOSING = 1
-		SW_OTHERZOOM = 2
-		SW_PARENTOPENING = 3
-		SW_OTHERUNZOOM = 4
-		SW_SCROLLCHILDREN = 0x0001
-		SW_INVALIDATE = 0x0002
-		SW_ERASE = 0x0004
-		SW_SMOOTHSCROLL = 0x0010
-
-		attach_function :ShowWindow, [:pointer, :int], :int
-
-		attach_function :UpdateWindow, [:pointer], :int
-
-		attach_function :GetFocus, [], :pointer
-		attach_function :SetFocus, [:pointer], :pointer
-
-		attach_function :GetWindowTextLength, :GetWindowTextLengthA, [:pointer], :int
-		attach_function :GetWindowText, :GetWindowTextA, [:pointer, :pointer, :int], :int
-		attach_function :SetWindowText, :SetWindowTextA, [:pointer, :string], :int
-
-		attach_function :GetClientRect, [:pointer, :pointer], :int
-		attach_function :GetWindowRect, [:pointer, :pointer], :int
-
-		SWP_NOSIZE = 0x0001
-		SWP_NOMOVE = 0x0002
-		SWP_NOZORDER = 0x0004
-		SWP_NOREDRAW = 0x0008
-		SWP_NOACTIVATE = 0x0010
-		SWP_FRAMECHANGED = 0x0020
-		SWP_SHOWWINDOW = 0x0040
-		SWP_HIDEWINDOW = 0x0080
-		SWP_NOCOPYBITS = 0x0100
-		SWP_NOOWNERZORDER = 0x0200
-		SWP_NOSENDCHANGING = 0x0400
-		SWP_DRAWFRAME = SWP_FRAMECHANGED
-		SWP_NOREPOSITION = SWP_NOOWNERZORDER
-		SWP_DEFERERASE = 0x2000
-		SWP_ASYNCWINDOWPOS = 0x4000
-
-		attach_function :SetWindowPos, [:pointer, :pointer, :int, :int, :int, :int, :uint], :int
-
-		attach_function :BeginDeferWindowPos, [:int], :pointer
-		attach_function :DeferWindowPos, [:pointer, :pointer, :pointer, :int, :int, :int, :int, :uint], :pointer
-		attach_function :EndDeferWindowPos, [:pointer], :int
-
-		MDITILE_VERTICAL = 0x0000
-		MDITILE_HORIZONTAL = 0x0001
-		MDITILE_SKIPDISABLED = 0x0002
-		MDITILE_ZORDER = 0x0004
-
-		attach_function :TileWindows, [:pointer, :uint, :pointer, :uint, :pointer], :ushort
-
-		attach_function :CascadeWindows, [:pointer, :uint, :pointer, :uint, :pointer], :ushort
-		attach_function :ArrangeIconicWindows, [:pointer], :uint
-
-		attach_function :GetCursorPos, [:pointer], :int
-
-		attach_function :ScreenToClient, [:pointer, :pointer], :int
-		attach_function :ClientToScreen, [:pointer, :pointer], :int
-
-		attach_function :GetCapture, [], :pointer
-		attach_function :SetCapture, [:pointer], :pointer
-		attach_function :ReleaseCapture, [], :int
-
-		attach_function :GetDC, [:pointer], :pointer
-		attach_function :ReleaseDC, [:pointer, :pointer], :int
-
-		class PAINTSTRUCT < FFI::Struct
-			layout \
-				:hdc, :pointer,
-				:fErase, :int,
-				:rcPaint, RECT,
-				:fRestore, :int,
-				:fIncUpdate, :int,
-				:rgbReserved, [:uchar, 32]
-		end
-
-		attach_function :BeginPaint, [:pointer, :pointer], :pointer
-		attach_function :EndPaint, [:pointer, :pointer], :int
-
-		attach_function :InvalidateRect, [:pointer, :pointer, :int], :int
-
-		attach_function :FillRect, [:pointer, :pointer, :pointer], :int
-
-		DT_TOP = 0x00000000
-		DT_LEFT = 0x00000000
-		DT_CENTER = 0x00000001
-		DT_RIGHT = 0x00000002
-		DT_VCENTER = 0x00000004
-		DT_BOTTOM = 0x00000008
-		DT_WORDBREAK = 0x00000010
-		DT_SINGLELINE = 0x00000020
-		DT_EXPANDTABS = 0x00000040
-		DT_TABSTOP = 0x00000080
-		DT_NOCLIP = 0x00000100
-		DT_EXTERNALLEADING = 0x00000200
-		DT_CALCRECT = 0x00000400
-		DT_NOPREFIX = 0x00000800
-		DT_INTERNAL = 0x00001000
-		DT_EDITCONTROL = 0x00002000
-		DT_PATH_ELLIPSIS = 0x00004000
-		DT_END_ELLIPSIS = 0x00008000
-		DT_MODIFYSTRING = 0x00010000
-		DT_RTLREADING = 0x00020000
-		DT_WORD_ELLIPSIS = 0x00040000
-		DT_NOFULLWIDTHCHARBREAK = 0x00080000
-		DT_HIDEPREFIX = 0x00100000
-		DT_PREFIXONLY = 0x00200000
-
-		attach_function :DrawText, :DrawTextA, [:pointer, :string, :int, :pointer, :uint], :int
-
-		attach_function :GetMenu, [:pointer], :pointer
-		attach_function :SetMenu, [:pointer, :pointer], :int
-
-		attach_function :DrawMenuBar, [:pointer], :int
-
-		attach_function :GetDlgItem, [:pointer, :int], :pointer
-
-		GW_HWNDFIRST = 0
-		GW_HWNDLAST = 1
-		GW_HWNDNEXT = 2
-		GW_HWNDPREV = 3
-		GW_OWNER = 4
-		GW_CHILD = 5
-		GW_ENABLEDPOPUP = 6
-		GW_MAX = 6
-
-		attach_function :GetWindow, [:pointer, :uint], :pointer
-
-		callback :WNDENUMPROC, [:pointer, :long], :int
-
-		attach_function :EnumChildWindows, [:pointer, :WNDENUMPROC, :long], :int
-	end
-end
+require_relative 'Window/Window'
+require_relative 'Window/View'
+require_relative 'Window/Container'
+require_relative 'Window/MDI'
+require_relative 'Window/Dialog'