fzeet 0.6.3 → 0.6.4

data/lib/fzeet/Window/Common.rb

@@ -99,7 +99,12 @@ module Fzeet
 
 				if uMsg == Windows::WM_CREATE
 					@@instances[hwnd.to_i].menu = Menu.new.
-						append(:popup, '&Window', PopupMenu.new)
+						append(:popup, '&Windows', PopupMenu.new.
+							append(:string, 'Tile &Horizontal', :tileHorz).
+							append(:string, 'Tile &Vertical', :tileVert).
+							append(:string, '&Cascade', :cascade).
+							append(:string, 'Arrange &Icons', :arrangeIcons)
+						)
 
 					ccs = Windows::CLIENTCREATESTRUCT.new
 
@@ -113,6 +118,18 @@ module Fzeet
 					)
 
 					@@instances[hwnd.to_i].instance_variable_set(:@client, Handle.wrap(hwndClient, WindowMethods))
+
+					@@instances[hwnd.to_i].
+						on(:command, :tileHorz) { Windows.TileWindows(hwndClient, Windows::MDITILE_HORIZONTAL, nil, 0, nil) }.
+						on(:command, :tileVert) { Windows.TileWindows(hwndClient, Windows::MDITILE_VERTICAL, nil, 0, nil) }.
+						on(:command, :cascade) { Windows.CascadeWindows(hwndClient, Windows::MDITILE_ZORDER, nil, 0, nil) }.
+						on(:command, :arrangeIcons) { Windows.ArrangeIconicWindows(hwndClient) }.
+
+						on(:initmenupopup) { |args|
+							[:tileHorz, :tileVert, :cascade, :arrangeIcons].each { |command|
+								@@instances[hwnd.to_i].menu[command].enabled = !Windows.GetWindow(hwndClient, Windows::GW_CHILD).null?
+							}
+						}
 				end
 
 				result = @@instances[hwnd.to_i].windowProc(hwnd, uMsg, wParam, lParam) if @@instances[hwnd.to_i]
@@ -290,9 +307,24 @@ module Fzeet
 				}
 
 				case _opts[:anchor]
-				when :ltr; @parent.on(:size) { self.position = @parent.rect.tap { |r| r[:bottom] = _opts[:height] }.to_a }
-				when :lrb; @parent.on(:size) { self.position = @parent.rect.tap { |r| r[:top] = r[:bottom] - _opts[:height]; r[:bottom] = _opts[:height] }.to_a }
-				when :ltrb; @parent.on(:size) { self.position = @parent.rect.to_a }
+				when :ltr
+					@parent.on(:size) { |args|
+						self.position = @parent.rect.tap { |r| r[:bottom] = _opts[:height] }.to_a
+
+						args[:result] = nil if @parent.class == MDIChild
+					}
+				when :lrb
+					@parent.on(:size) { |args|
+						self.position = @parent.rect.tap { |r| r[:top] = r[:bottom] - _opts[:height]; r[:bottom] = _opts[:height] }.to_a
+
+						args[:result] = nil if @parent.class == MDIChild
+					}
+				when :ltrb
+					@parent.on(:size) { |args|
+						self.position = @parent.rect.to_a
+
+						args[:result] = nil if @parent.class == MDIChild
+					}
 				else raise ArgumentError, "Bad anchor spec: #{_opts[:anchor]}."
 				end if _opts[:anchor] && @parent
 			end

data/lib/fzeet/Window/MDI.rb

@@ -12,6 +12,18 @@ module Fzeet
 
 			super
 		end
+
+		def activeChild
+			((pchild = FFI::Pointer.new(Windows.SendMessage(client.handle, Windows::WM_MDIGETACTIVE, 0, 0))).null?) ?
+				nil :
+				Handle.instance(pchild)
+		end
+
+		def activate(child)
+			Windows.SendMessage(client.handle, Windows::WM_MDIACTIVATE, child.handle.to_i, 0)
+
+			self
+		end
 	end
 
 	MDIChild = BasicWindow['Fzeet.MDIChild',

data/lib/fzeet/windows/com.rb

@@ -273,11 +273,43 @@ module Fzeet
 
 		Unknown = COM::Instance[IUnknown]
 
+		IDispatch = COM::Interface[IUnknown,
+			GUID['00020400-0000-0000-C000-000000000046'],
+
+			GetTypeInfoCount: [[:pointer], :long],
+			GetTypeInfo: [[:uint, :ulong, :pointer], :long],
+			GetIDsOfNames: [[:pointer, :pointer, :uint, :ulong, :pointer], :long],
+			Invoke: [[:long, :pointer, :ulong, :ushort, :pointer, :pointer, :pointer, :pointer], :long]
+		]
+
+		Dispatch = COM::Instance[IDispatch]
+
+		IConnectionPointContainer = COM::Interface[IUnknown,
+			GUID['B196B284-BAB4-101A-B69C-00AA00341D07'],
+
+			EnumConnectionPoints: [[:pointer], :long],
+			FindConnectionPoint: [[:pointer, :pointer], :long]
+		]
+
+		ConnectionPointContainer = COM::Instance[IConnectionPointContainer]
+
+		IConnectionPoint = COM::Interface[IUnknown,
+			GUID['B196B286-BAB4-101A-B69C-00AA00341D07'],
+
+			GetConnectionInterface: [[:pointer], :long],
+			GetConnectionPointContainer: [[:pointer], :long],
+			Advise: [[:pointer, :pointer], :long],
+			Unadvise: [[:ulong], :long],
+			EnumConnections: [[:pointer], :long]
+		]
+
+		ConnectionPoint = COM::Instance[IConnectionPoint]
+
 		IObjectWithSite = COM::Interface[IUnknown,
 			GUID['FC4801A3-2BA9-11CF-A229-00AA003D7352'],
 
 			SetSite: [[:pointer], :long],
-			GetSite: [[:pointer, :pointer], :ulong]
+			GetSite: [[:pointer, :pointer], :long]
 		]
 
 		ObjectWithSite = COM::Callback[IObjectWithSite]

data/lib/fzeet/windows/kernel.rb

@@ -10,6 +10,8 @@ module Fzeet
 		attach_function :LoadLibrary, :LoadLibraryA, [:string], :pointer
 		attach_function :FreeLibrary, [:pointer], :int
 
+		attach_function :GetSystemDefaultLCID, [], :ulong
+
 		if WINVER.AtLeastWindowsXP?
 			class ACTCTX < FFI::Struct
 				layout \

data/lib/fzeet/windows/ole - Copy.rb

@@ -0,0 +1,446 @@
+require_relative 'com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'ole32'
+		ffi_convention :stdcall
+
+		attach_function :OleInitialize, [:pointer], :long
+		attach_function :OleUninitialize, [], :void
+
+		def InitializeOle
+			DetonateHresult(:OleInitialize, nil)
+
+			at_exit { OleUninitialize() }
+		end
+
+		module_function :InitializeOle
+
+		attach_function :CoTaskMemAlloc, [:ulong], :pointer
+		attach_function :CoTaskMemFree, [:pointer], :void
+
+		VT_EMPTY = 0
+		VT_NULL = 1
+		VT_I2 = 2
+		VT_I4 = 3
+		VT_R4 = 4
+		VT_R8 = 5
+		VT_CY = 6
+		VT_DATE = 7
+		VT_BSTR = 8
+		VT_DISPATCH = 9
+		VT_ERROR = 10
+		VT_BOOL = 11
+		VT_VARIANT = 12
+		VT_UNKNOWN = 13
+		VT_DECIMAL = 14
+		VT_I1 = 16
+		VT_UI1 = 17
+		VT_UI2 = 18
+		VT_UI4 = 19
+		VT_I8 = 20
+		VT_UI8 = 21
+		VT_INT = 22
+		VT_UINT = 23
+		VT_VOID = 24
+		VT_HRESULT = 25
+		VT_PTR = 26
+		VT_SAFEARRAY = 27
+		VT_CARRAY = 28
+		VT_USERDEFINED = 29
+		VT_LPSTR = 30
+		VT_LPWSTR = 31
+		VT_FILETIME = 64
+		VT_BLOB = 65
+		VT_STREAM = 66
+		VT_STORAGE = 67
+		VT_STREAMED_OBJECT = 68
+		VT_STORED_OBJECT = 69
+		VT_BLOB_OBJECT = 70
+		VT_CF = 71
+		VT_CLSID = 72
+		VT_VECTOR = 0x1000
+		VT_ARRAY = 0x2000
+		VT_BYREF = 0x4000
+		VT_RESERVED = 0x8000
+		VT_ILLEGAL = 0xffff
+		VT_ILLEGALMASKED = 0xfff
+		VT_TYPEMASK = 0xff
+
+		class PROPERTYKEY < FFI::Struct
+			layout \
+				:fmtid, GUID,
+				:pid, :ulong
+
+			def self.[](type, index)
+				new.tap { |key|
+					key[:fmtid].tap { |guid|
+						guid[:Data1] = 0x00000000 + index
+						guid[:Data2] = 0x7363
+						guid[:Data3] = 0x696e
+						[0x84, 0x41, 0x79, 0x8a, 0xcf, 0x5a, 0xeb, 0xb7].each_with_index { |part, i|
+							guid[:Data4][i] = part
+						}
+					}
+
+					key[:pid] = type
+				}
+			end
+
+			def ==(other) Windows.memcmp(other, self, size) == 0 end
+		end
+
+		class LARGE_INTEGER < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:LowPart, :ulong,
+						:HighPart, :long
+				},
+
+				:QuadPart, :long_long
+		end
+
+		class ULARGE_INTEGER < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:LowPart, :ulong,
+						:HighPart, :ulong
+				},
+
+				:QuadPart, :ulong_long
+		end
+
+		class FILETIME < FFI::Struct
+			layout \
+				:dwLowDateTime, :ulong,
+				:dwHighDateTime, :ulong
+		end
+
+		class BSTRBLOB < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:pData, :pointer
+		end
+
+		class BLOB < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:pBlobData, :pointer
+		end
+
+		class CA < FFI::Struct
+			layout \
+				:cElems, :ulong,
+				:pElems, :pointer
+		end
+
+		class DECIMAL < FFI::Struct
+			layout \
+				:wReserved, :ushort,
+				:scale, :uchar,
+				:sign, :uchar,
+				:Hi32, :ulong,
+				:Lo64, :ulong_long
+		end
+
+		class PROPVARIANT < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:vt, :ushort,
+						:wReserved1, :ushort,
+						:wReserved2, :ushort,
+						:wReserved3, :ushort,
+						:_, Class.new(FFI::Union) {
+							layout \
+								:cVal, :char,
+								:bVal, :uchar,
+								:iVal, :short,
+								:uiVal, :ushort,
+								:lVal, :long,
+								:ulVal, :ulong,
+								:intVal, :int,
+								:uintVal, :uint,
+								:hVal, LARGE_INTEGER,
+								:uhVal, ULARGE_INTEGER,
+								:fltVal, :float,
+								:dblVal, :double,
+								:boolVal, :short,
+								:bool, :short,
+								:scode, :long,
+								:cyVal, :long_long,
+								:date, :double,
+								:filetime, FILETIME,
+								:puuid, :pointer,
+								:pclipdata, :pointer,
+								:bstrVal, :pointer,
+								:bstrblobVal, BSTRBLOB,
+								:blob, BLOB,
+								:pszVal, :pointer,
+								:pwszVal, :pointer,
+								:punkVal, :pointer,
+								:pdispVal, :pointer,
+								:pStream, :pointer,
+								:pStorage, :pointer,
+								:pVersionedStream, :pointer,
+								:parray, :pointer,
+								:cac, CA,
+								:caub, CA,
+								:cai, CA,
+								:caui, CA,
+								:cal, CA,
+								:caul, CA,
+								:cah, CA,
+								:cauh, CA,
+								:caflt, CA,
+								:cadbl, CA,
+								:cabool, CA,
+								:cascode, CA,
+								:cacy, CA,
+								:cadate, CA,
+								:cafiletime, CA,
+								:cauuid, CA,
+								:caclipdata, CA,
+								:cabstr, CA,
+								:cabstrblob, CA,
+								:calpstr, CA,
+								:calpwstr, CA,
+								:capropvar, CA,
+								:pcVal, :pointer,
+								:pbVal, :pointer,
+								:piVal, :pointer,
+								:puiVal, :pointer,
+								:plVal, :pointer,
+								:pulVal, :pointer,
+								:pintVal, :pointer,
+								:puintVal, :pointer,
+								:pfltVal, :pointer,
+								:pdblVal, :pointer,
+								:pboolVal, :pointer,
+								:pdecVal, :pointer,
+								:pscode, :pointer,
+								:pcyVal, :pointer,
+								:pdate, :pointer,
+								:pbstrVal, :pointer,
+								:ppunkVal, :pointer,
+								:ppdispVal, :pointer,
+								:pparray, :pointer,
+								:pvarVal, :pointer
+						}
+				},
+
+				:decVal, DECIMAL
+
+			def self.[](t, *v) new.tap { |var| var.send("#{t}=", *v) } end
+
+			def bool; raise 'Wrong type tag.' unless self[:vt] == VT_BOOL; self[:boolVal] != 0 end
+			def bool=(bool) self[:vt] = VT_BOOL; self[:boolVal] = (bool) ? -1 : 0 end
+
+			def int; raise 'Wrong type tag.' unless self[:vt] == VT_I4; self[:intVal] end
+			def int=(int) self[:vt] = VT_I4; self[:intVal] = int end
+
+			def uint; raise 'Wrong type tag.' unless self[:vt] == VT_UI4; self[:uintVal] end
+			def uint=(uint) self[:vt] = VT_UI4; self[:uintVal] = uint end
+
+			def unknown
+				raise 'Wrong type tag.' unless self[:vt] == VT_UNKNOWN
+
+				yield Unknown.new(self[:punkVal])
+			ensure
+				Windows.PropVariantClear(self)
+			end
+
+			def unknown=(unknown) self[:vt] = VT_UNKNOWN; self[:punkVal] = unknown.pointer; unknown.AddRef end
+
+			def wstring; raise 'Wrong type tag.' unless self[:vt] == VT_LPWSTR; Windows.WCSTOMBS(self[:pwszVal]) end
+
+			def wstring=(string)
+				self[:vt] = VT_LPWSTR
+
+				FFI::MemoryPointer.new(:pointer) { |p|
+					Windows.DetonateHresult(:SHStrDup, string, p)
+
+					self[:pwszVal] = p.read_pointer
+				}
+			end
+
+			def decimal
+				raise 'Wrong type tag.' unless self[:vt] == VT_DECIMAL
+
+				Rational(self[:decVal][:Lo64], 10 ** self[:decVal][:scale]) + self[:decVal][:Hi32]
+			end
+
+			def decimal=(decimal) self[:vt] = VT_DECIMAL; self[:decVal][:Lo64] = decimal end
+		end
+
+		attach_function :PropVariantClear, [:pointer], :long
+
+		ffi_lib 'oleaut32'
+		ffi_convention :stdcall
+
+		attach_function :SysAllocString, [:buffer_in], :pointer
+		attach_function :SysFreeString, [:pointer], :void
+		attach_function :SysStringLen, [:pointer], :uint
+
+		OLEIVERB_PRIMARY = 0
+		OLEIVERB_SHOW = -1
+		OLEIVERB_OPEN = -2
+		OLEIVERB_HIDE = -3
+		OLEIVERB_UIACTIVATE = -4
+		OLEIVERB_INPLACEACTIVATE = -5
+		OLEIVERB_DISCARDUNDOSTATE = -6
+
+		IOleWindow = COM::Interface[IUnknown,
+			GUID['00000114-0000-0000-C000-000000000046'],
+
+			GetWindow: [[:pointer], :long],
+			ContextSensitiveHelp: [[:int], :long]
+		]
+
+		OleWindow = COM::Instance[IOleWindow]
+
+		IOleInPlaceSite = COM::Interface[IOleWindow,
+			GUID['00000119-0000-0000-C000-000000000046'],
+
+			CanInPlaceActivate: [[], :long],
+			OnInPlaceActivate: [[], :long],
+			OnUIActivate: [[], :long],
+			GetWindowContext: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
+			Scroll: [[:long_long], :long],
+			OnUIDeactivate: [[:int], :long],
+			OnInPlaceDeactivate: [[], :long],
+			DiscardUndoState: [[], :long],
+			DeactivateAndUndo: [[], :long],
+			OnPosRectChange: [[:pointer], :long]
+		]
+
+		OleInPlaceSite = COM::Callback[IOleInPlaceSite]
+
+		IOleInPlaceUIWindow = COM::Interface[IOleWindow,
+			GUID['00000115-0000-0000-C000-000000000046'],
+
+			GetBorder: [[:pointer], :long],
+			RequestBorderSpace: [[:pointer], :long],
+			SetBorderSpace: [[:pointer], :long],
+			SetActiveObject: [[:pointer], :long]
+		]
+
+		OleInPlaceUIWindow = COM::Callback[IOleInPlaceUIWindow]
+
+		class OLEINPLACEFRAMEINFO < FFI::Struct
+			layout \
+				:cb, :uint,
+				:fMDIApp, :int,
+				:hwndFrame, :pointer,
+				:haccel, :pointer,
+				:cAccelEntries, :uint
+		end
+
+		class OLEMENUGROUPWIDTHS < FFI::Struct
+			layout \
+				:width, [:long, 6]
+		end
+
+		IOleInPlaceFrame = COM::Interface[IOleInPlaceUIWindow,
+			GUID['00000116-0000-0000-C000-000000000046'],
+
+			InsertMenus: [[:pointer, :pointer], :long],
+			SetMenu: [[:pointer, :pointer, :pointer], :long],
+			RemoveMenus: [[:pointer], :long],
+			SetStatusText: [[:pointer], :long],
+			EnableModeless: [[:int], :long],
+			TranslateAccelerator: [[:pointer, :ushort], :long]
+		]
+
+		OleInPlaceFrame = COM::Callback[IOleInPlaceFrame]
+
+		IOleClientSite = COM::Interface[IUnknown,
+			GUID['00000118-0000-0000-C000-000000000046'],
+
+			SaveObject: [[], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			GetContainer: [[:pointer], :long],
+			ShowObject: [[], :long],
+			OnShowWindow: [[:int], :long],
+			RequestNewObjectLayout: [[], :long]
+		]
+
+		OleClientSite = COM::Callback[IOleClientSite]
+
+		OLEGETMONIKER_ONLYIFTHERE = 1
+		OLEGETMONIKER_FORCEASSIGN = 2
+		OLEGETMONIKER_UNASSIGN = 3
+		OLEGETMONIKER_TEMPFORUSER = 4
+
+		OLEWHICHMK_CONTAINER = 1
+		OLEWHICHMK_OBJREL = 2
+		OLEWHICHMK_OBJFULL = 3
+
+		USERCLASSTYPE_FULL = 1
+		USERCLASSTYPE_SHORT = 2
+		USERCLASSTYPE_APPNAME = 3
+
+		OLEMISC_RECOMPOSEONRESIZE = 0x00000001
+		OLEMISC_ONLYICONIC = 0x00000002
+		OLEMISC_INSERTNOTREPLACE = 0x00000004
+		OLEMISC_STATIC = 0x00000008
+		OLEMISC_CANTLINKINSIDE = 0x00000010
+		OLEMISC_CANLINKBYOLE1 = 0x00000020
+		OLEMISC_ISLINKOBJECT = 0x00000040
+		OLEMISC_INSIDEOUT = 0x00000080
+		OLEMISC_ACTIVATEWHENVISIBLE = 0x00000100
+		OLEMISC_RENDERINGISDEVICEINDEPENDENT = 0x00000200
+		OLEMISC_INVISIBLEATRUNTIME = 0x00000400
+		OLEMISC_ALWAYSRUN = 0x00000800
+		OLEMISC_ACTSLIKEBUTTON = 0x00001000
+		OLEMISC_ACTSLIKELABEL = 0x00002000
+		OLEMISC_NOUIACTIVATE = 0x00004000
+		OLEMISC_ALIGNABLE = 0x00008000
+		OLEMISC_SIMPLEFRAME = 0x00010000
+		OLEMISC_SETCLIENTSITEFIRST = 0x00020000
+		OLEMISC_IMEMODE = 0x00040000
+		OLEMISC_IGNOREACTIVATEWHENVISIBLE = 0x00080000
+		OLEMISC_WANTSTOMENUMERGE = 0x00100000
+		OLEMISC_SUPPORTSMULTILEVELUNDO = 0x00200000
+
+		OLECLOSE_SAVEIFDIRTY = 0
+		OLECLOSE_NOSAVE = 1
+		OLECLOSE_PROMPTSAVE = 2
+
+		IOleObject = COM::Interface[IUnknown,
+			GUID['00000112-0000-0000-C000-000000000046'],
+
+			SetClientSite: [[:pointer], :long],
+			GetClientSite: [[:pointer], :long],
+			SetHostNames: [[:pointer, :pointer], :long],
+			Close: [[:ulong], :long],
+			SetMoniker: [[:ulong, :pointer], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			InitFromData: [[:pointer, :int, :ulong], :long],
+			GetClipboardData: [[:ulong, :pointer], :long],
+			DoVerb: [[:long, :pointer, :pointer, :long, :pointer, :pointer], :long],
+			EnumVerbs: [[:pointer], :long],
+			Update: [[], :long],
+			IsUpToDate: [[], :long],
+			GetUserClassID: [[:pointer], :long],
+			GetUserType: [[:ulong, :pointer], :long],
+			SetExtent: [[:ulong, :pointer], :long],
+			GetExtent: [[:ulong, :pointer], :long],
+			Advise: [[:pointer, :pointer], :long],
+			Unadvise: [[:ulong], :long],
+			EnumAdvise: [[:pointer], :long],
+			GetMiscStatus: [[:ulong, :pointer], :long],
+			SetColorScheme: [[:pointer], :long]
+		]
+
+		OleObject = COM::Instance[IOleObject]
+	end
+end