fzeet 0.6.5 → 0.6.6

data/lib/fzeet/Window.rb

@@ -1,5 +0,0 @@
-require_relative 'Window/Window'
-require_relative 'Window/View'
-require_relative 'Window/Container'
-require_relative 'Window/MDI'
-require_relative 'Window/Dialog'

data/lib/fzeet/windows/common.rb

@@ -1,244 +0,0 @@
-require 'ffi'
-
-module Fzeet
-	module Windows
-		extend FFI::Library
-
-		ffi_lib 'kernel32'
-		ffi_convention :stdcall
-
-		INVALID_HANDLE_VALUE = FFI::Pointer.new(-1)
-		INVALID_FILE_SIZE = 0xFFFFFFFF
-		INVALID_SET_FILE_POINTER = 0xFFFFFFFF
-		INVALID_FILE_ATTRIBUTES = 0xFFFFFFFF
-		INVALID_ATOM = 0
-
-		attach_function :GetLastError, [], :ulong
-		attach_function :SetLastError, [:ulong], :void
-
-		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 OSVERSIONINFOEX < FFI::Struct
-			layout \
-				:dwOSVersionInfoSize, :ulong,
-				:dwMajorVersion, :ulong,
-				:dwMinorVersion, :ulong,
-				:dwBuildNumber, :ulong,
-				:dwPlatformId, :ulong,
-				:szCSDVersion, [:char, 128],
-				:wServicePackMajor, :ushort,
-				:wServicePackMinor, :ushort,
-				:wSuiteMask, :ushort,
-				:wProductType, :uchar,
-				:wReserved, :uchar
-
-			def major; self[:dwMajorVersion] end
-			def minor; self[:dwMinorVersion] end
-			def build; self[:dwBuildNumber] end
-			def sp; self[:wServicePackMajor] end
-
-			def to_s; "#{major}.#{minor}.#{build} SP#{sp} (#{name})" end
-
-			def name
-				if Windows2000?; 'Windows 2000'
-				elsif WindowsXP?; 'Windows XP'
-				elsif WindowsVista?; 'Windows Vista'
-				elsif Windows7?; 'Windows 7'
-				else 'Unknown'
-				end
-			end
-
-			def Windows2000?; major == 5 && minor == 0 end
-			def WindowsXP?; major == 5 && minor == 1 end
-			def WindowsVista?; major == 6 && minor == 0 end
-			def Windows7?; major == 6 && minor == 1 end
-
-			def AtLeastWindows2000?; major >= 5 end
-			def AtLeastWindowsXP?; major > 5 || (major == 5 && minor >= 1) end
-			def AtLeastWindowsVista?; major >= 6 end
-			def AtLeastWindows7?; major > 6 || (major == 6 && minor >= 1) end
-		end
-
-		attach_function :GetVersionEx, :GetVersionExA, [:pointer], :int
-
-		WINVER = OSVERSIONINFOEX.new
-
-		WINVER[:dwOSVersionInfoSize] = WINVER.size
-
-		DetonateLastError(0, :GetVersionEx, WINVER)
-
-		def LOBYTE(w) w & 0xff end
-		def HIBYTE(w) (w >> 8) & 0xff end
-		def MAKEWORD(low, high) (low & 0xff) | ((high & 0xff) << 8) end
-
-		def LOWORD(l) l & 0xffff end
-		def HIWORD(l) (l >> 16) & 0xffff end
-		def MAKELONG(low, high) (low & 0xffff) | ((high & 0xffff) << 16) end
-
-		def GET_X_LPARAM(l) ((w = LOWORD(l)) > 0x7fff) ? w - 0x1_0000 : w end
-		def GET_Y_LPARAM(l) ((w = HIWORD(l)) > 0x7fff) ? w - 0x1_0000 : w end
-
-		def LPWSTR(s)
-			p = FFI::MemoryPointer.new(:uchar, (s.length + 2) * 2)
-
-			"#{s}\0".encode('utf-16le').each_byte.with_index { |b, i| p.put_char(i, b) }
-
-			begin
-				yield p; return nil
-			ensure
-				p.free
-			end if block_given?
-
-			p
-		end
-
-		def WCSTOMBS(p)
-			result = ''
-
-			FFI::MemoryPointer.new(:uchar, len = wcslen(p) + 1) { |buf|
-				raise 'wcstombs failed.' if wcstombs(buf, p, len) == 0xffffffff
-
-				result << buf.read_string
-			}
-
-			result
-		end
-
-		module_function \
-			:LOBYTE, :HIBYTE, :MAKEWORD,
-			:LOWORD, :HIWORD, :MAKELONG,
-			:GET_X_LPARAM, :GET_Y_LPARAM,
-			:LPWSTR, :WCSTOMBS
-
-		module AnonymousSupport
-			def [](k)
-				if members.include?(k)
-					super
-				elsif self[:_].members.include?(k)
-					self[:_][k]
-				else
-					self[:_][:_][k]
-				end
-			end
-
-			def []=(k, v)
-				if members.include?(k)
-					super
-				elsif self[:_].members.include?(k)
-					self[:_][k] = v
-				else
-					self[:_][:_][k] = v
-				end
-			end
-		end
-
-		class POINT < FFI::Struct
-			layout \
-				:x, :long,
-				:y, :long
-		end
-
-		class SIZE < FFI::Struct
-			layout \
-				:cx, :long,
-				:cy, :long
-		end
-
-		class RECT < FFI::Struct
-			layout \
-				:left, :long,
-				:top, :long,
-				:right, :long,
-				:bottom, :long
-		end
-
-		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]
-
-			def face; self[:lfFaceName].to_s end
-			def face=(face) self[:lfFaceName] = face end
-
-			def size; -Rational(self[:lfHeight] * 72, Application.devcaps[:logpixelsy]) end
-			def size=(size) self[:lfHeight] = -Windows.MulDiv((size * 10).to_i, Application.devcaps[:logpixelsy], 720) end
-
-			def bold?; self[:lfWeight] >= 700 end
-			def bold=(bold) self[:lfWeight] = (bold) ? 700 : 0 end
-
-			def italic?; self[:lfItalic] == 1 end
-			def italic=(italic) self[:lfItalic] = (italic) ? 1 : 0 end
-
-			def underline?; self[:lfUnderline] == 1 end
-			def underline=(underline) self[:lfUnderline] = (underline) ? 1 : 0 end
-
-			def strikeout?; self[:lfStrikeOut] == 1 end
-			def strikeout=(strikeout) self[:lfStrikeOut] = (strikeout) ? 1 : 0 end
-
-			def update(from)
-				case from
-				when PropertyStore
-					from.each { |k, v|
-						case k
-						when UI_PKEY_FontProperties_Family; self.face = v.wstring
-						when UI_PKEY_FontProperties_Size; self.size = v.decimal.to_f
-						when UI_PKEY_FontProperties_Bold; self.bold = v.uint == 2
-						when UI_PKEY_FontProperties_Italic; self.italic = v.uint == 2
-						when UI_PKEY_FontProperties_Underline; self.underline = v.uint == 2
-						when UI_PKEY_FontProperties_Strikethrough; self.strikeout = v.uint == 2
-						end
-					}
-				else raise ArgumentError
-				end
-
-				self
-			end
-		end
-
-		class SYSTEMTIME < FFI::Struct
-			layout \
-				:wYear, :ushort,
-				:wMonth, :ushort,
-				:wDayOfWeek, :ushort,
-				:wDay, :ushort,
-				:wHour, :ushort,
-				:wMinute, :ushort,
-				:wSecond, :ushort,
-				:wMilliseconds, :ushort
-
-			def to_local
-				Time.local(
-					self[:wYear], self[:wMonth], self[:wDay],
-					self[:wHour], self[:wMinute], self[:wSecond], self[:wMilliseconds]
-				)
-			end
-
-			def to_utc
-				Time.utc(
-					self[:wYear], self[:wMonth], self[:wDay],
-					self[:wHour], self[:wMinute], self[:wSecond], self[:wMilliseconds]
-				)
-			end
-		end
-	end
-end