fzeet 0.6.5 → 0.6.6

data/lib/fzeet/Menu.rb

@@ -1,133 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module MenuMethods
-		def rdetach; submenus.each(&:rdetach); detach end
-
-		class Item
-			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
-
-			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 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
-
-	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
-
-		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/UIRibbon.rb

@@ -1,417 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	class Windows::PropertyStore
-		def uiprop(*args)
-			args[0] = Windows.const_get("UI_PKEY_#{args[0]}")
-
-			prop(*args)
-		end
-
-		def update(from)
-			case from
-			when Windows::LOGFONT
-				uiprop(:FontProperties_Family, Windows::PROPVARIANT[:wstring, from.face])
-				uiprop(:FontProperties_Size, Windows::PROPVARIANT[:decimal, from.size.round])
-				uiprop(:FontProperties_Bold, Windows::PROPVARIANT[:uint, (from.bold?) ? 2 : 1])
-				uiprop(:FontProperties_Italic, Windows::PROPVARIANT[:uint, (from.italic?) ? 2 : 1])
-				uiprop(:FontProperties_Underline, Windows::PROPVARIANT[:uint, (from.underline?) ? 2 : 1])
-				uiprop(:FontProperties_Strikethrough, Windows::PROPVARIANT[:uint, (from.strikeout?) ? 2 : 1])
-			else raise ArgumentError
-			end
-
-			self
-		end
-	end
-
-	class Windows::UISimplePropertySet
-		def get(k) Windows::PROPVARIANT.new.tap { |v| GetValue(k, v) } end
-
-		def prop(*args)
-			case args.length
-			when 1; get(*args)
-			else raise ArgumentError
-			end
-		end
-
-		def uiprop(*args)
-			args[0] = Windows.const_get("UI_PKEY_#{args[0]}")
-
-			prop(*args)
-		end
-	end
-
-	class UIRibbon
-		class Command
-			include Toggle
-
-			def initialize(ribbon, id)
-				@ribbon, @id = ribbon, id
-			end
-
-			attr_reader :ribbon, :id
-
-			def [](k) Windows::PROPVARIANT.new.tap { |v| ribbon.uif.GetUICommandProperty(id, k, v) } end
-			def []=(k, v) ribbon.uif.SetUICommandProperty(id, k, v) end
-
-			def enabled?; self[Windows::UI_PKEY_Enabled].bool end
-			def enabled=(enabled) self[Windows::UI_PKEY_Enabled] = Windows::PROPVARIANT[:bool, enabled] end
-
-			def checked?; self[Windows::UI_PKEY_BooleanValue].bool end
-			def checked=(checked) self[Windows::UI_PKEY_BooleanValue] = Windows::PROPVARIANT[:bool, checked] end
-		end
-
-		def [](id) Command.new(self, id) end
-
-		module Color
-			def self.enhance(hsb, ribbon, method)
-				hsb.instance_variable_set(:@ribbon, ribbon)
-				hsb.instance_variable_set(:@method, method)
-
-				class << hsb
-					attr_reader :ribbon, :method
-
-					include Color
-				end
-
-				hsb
-			end
-
-			def darken(amount) self[2] -= amount; ribbon.send("#{method}=", self); self end
-			def lighten(amount) self[2] += amount; ribbon.send("#{method}=", self); self end
-
-			def saturate(amount) self[1] += amount; ribbon.send("#{method}=", self); self end
-			def bleach(amount) self[1] -= amount; ribbon.send("#{method}=", self); self end
-
-			def shift(amount) self[0] += amount; ribbon.send("#{method}=", self); self end
-		end
-
-		def background
-			hsb = nil
-
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				hsb = ps.uiprop(:GlobalBackgroundColor).uint
-			}
-
-			Color.enhance([Windows::UI_GetHValue(hsb), Windows::UI_GetSValue(hsb), Windows::UI_GetBValue(hsb)], self, __method__)
-		end
-
-		def background=(hsb)
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				ps.uiprop(:GlobalBackgroundColor, Windows::PROPVARIANT[:uint, Windows::UI_HSB(*hsb)]).commit
-			}
-		end
-
-		def color
-			hsb = nil
-
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				hsb = ps.uiprop(:GlobalTextColor).uint
-			}
-
-			Color.enhance([Windows::UI_GetHValue(hsb), Windows::UI_GetSValue(hsb), Windows::UI_GetBValue(hsb)], self, __method__)
-		end
-
-		def color=(hsb)
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				ps.uiprop(:GlobalTextColor, Windows::PROPVARIANT[:uint, Windows::UI_HSB(*hsb)]).commit
-			}
-		end
-
-		def highlight
-			hsb = nil
-
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				hsb = ps.uiprop(:GlobalHighlightColor).uint
-			}
-
-			Color.enhance([Windows::UI_GetHValue(hsb), Windows::UI_GetSValue(hsb), Windows::UI_GetBValue(hsb)], self, __method__)
-		end
-
-		def highlight=(hsb)
-			uif.QueryInstance(Windows::PropertyStore) { |ps|
-				ps.uiprop(:GlobalHighlightColor, Windows::PROPVARIANT[:uint, Windows::UI_HSB(*hsb)]).commit
-			}
-		end
-
-		class GalleryItem < Windows::UISimplePropertySetCallback
-			def initialize(label, categoryId = 0, image = nil)
-				@label, @categoryId, @image = label, categoryId, image
-
-				super()
-			end
-
-			attr_reader :label, :categoryId, :image
-
-			def GetValue(pkey, pvalue)
-				key, value = Windows::PROPERTYKEY.new(pkey), Windows::PROPVARIANT.new(pvalue)
-
-				case key
-				when Windows::UI_PKEY_CategoryId
-					value.uint = @categoryId; Windows::S_OK
-				when Windows::UI_PKEY_Label
-					value.wstring = @label; Windows::S_OK
-				when Windows::UI_PKEY_ItemImage
-					FFI::MemoryPointer.new(:pointer) { |punk|
-						Windows::UIImageFromBitmap.new.CreateImage(PARGB32.new(@image).handle, Windows::UI_OWNERSHIP_TRANSFER, punk)
-
-						unk = Windows::Unknown.new(punk.read_pointer)
-						value.unknown = unk
-						unk.Release
-					}
-
-					Windows::S_OK
-				else
-					Windows::E_NOTIMPL
-				end
-			end
-		end
-
-		def initialize(_window, opts = {})
-			handlers = {}
-
-			opts.delete_if { |k, v|
-				next false unless v.kind_of?(Proc)
-
-				handlers[k] = v; true
-			}
-
-			_opts = {
-				name: Application.name,
-				resname: 'APPLICATION_RIBBON'
-			}
-			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
-			_opts.merge!(opts)
-
-			@creates = []
-			@destroys = []
-			@sizes = []
-			@executesAllVerbs = {}
-			@executesExecute = {}
-			@executesPreview = {}
-			@executesCancelPreview = {}
-			@updatesAllKeys = {}
-
-			@window = _window
-
-			window.instance_variable_set(:@ribbon, self)
-
-			class << window
-				attr_reader :ribbon
-			end
-
-			@uich = Windows::UICommandHandler.new
-
-			uich.instance_variable_set(:@ribbon, self)
-
-			class << uich
-				attr_reader :ribbon
-
-				def Execute(*args) ribbon.execute(*args); Windows::S_OK end
-				def UpdateProperty(*args) ribbon.update(*args); Windows::S_OK end
-			end
-
-			@uia = Windows::UIApplication.new
-
-			uia.instance_variable_set(:@uich, @uich)
-
-			class << uia
-				attr_reader :uich, :uir
-
-				def OnViewChanged(viewId, typeId, view, verb, reason)
-					return Windows::S_OK unless typeId == Windows::UI_VIEWTYPE_RIBBON
-
-					args = {
-						viewId: viewId,
-						typeId: typeId,
-						view: view,
-						verb: verb,
-						reason: reason,
-						ribbon: self,
-						sender: self
-					}
-
-					case verb
-					when Windows::UI_VIEWVERB_CREATE
-						@uir = Windows::Unknown.new(view).QueryInstance(Windows::UIRibbon)
-
-						uir.instance_variable_set(:@height, 0)
-
-						class << uir
-							attr_accessor :height
-						end
-
-						uich.ribbon.instance_variable_get(:@creates).each { |handler|
-							(handler.arity == 0) ? handler.call : handler.call(args)
-						}
-					when Windows::UI_VIEWVERB_DESTROY
-						uich.ribbon.instance_variable_get(:@destroys).each { |handler|
-							(handler.arity == 0) ? handler.call : handler.call(args)
-						}
-
-						uir.Release
-					when Windows::UI_VIEWVERB_SIZE
-						FFI::MemoryPointer.new(:uint) { |p| uir.GetHeight(p); uir.height = p.read_int }
-
-						uich.ribbon.instance_variable_get(:@sizes).each { |handler|
-							(handler.arity == 0) ? handler.call : handler.call(args)
-						}
-					end
-
-					Windows::S_OK
-				rescue
-					Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
-
-					Windows::S_OK
-				end
-
-				def OnCreateUICommand(*args) uich.QueryInterface(uich.class::IID, args[-1]); Windows::S_OK end
-			end
-
-			@hdll = Windows.LoadRibbonDll(_opts[:name])
-
-			handlers.each { |k, v|
-				k[1] = Object.const_get(k[1]) if k.length > 1
-
-				on(*k, &v)
-			}
-
-			@uif = Windows::UIFramework.new
-
-			uif.Initialize(window.handle, uia)
-			uif.LoadUI(@hdll, "#{_opts[:resname]}\0".encode('utf-16le'))
-
-			window.on(:destroy) {
-				uich.Release
-				uia.Release
-				uif.Destroy; uif.Release
-			}
-		end
-
-		attr_reader :hdll, :window, :uich, :uia, :uif
-
-		def height; uia.uir.height end
-
-		def execute(commandId, verb, key, value, props)
-			args = {
-				commandId: commandId,
-				verb: verb,
-				key: (key.null?) ? nil : Windows::PROPERTYKEY.new(key),
-				value: (value.null?) ? nil : Windows::PROPVARIANT.new(value),
-				props: (props.null?) ? nil : Windows::UISimplePropertySet.new(props),
-				ribbon: self,
-				sender: Command.new(self, commandId)
-			}
-
-			(handlers = @executesAllVerbs[commandId]) and handlers.each { |handler|
-				(handler.arity == 0) ? handler.call : handler.call(args)
-			}
-
-			case verb
-			when Windows::UI_EXECUTIONVERB_EXECUTE
-				(handlers = @executesExecute[commandId]) and handlers.each { |handler|
-					(handler.arity == 0) ? handler.call : handler.call(args)
-				}
-			when Windows::UI_EXECUTIONVERB_PREVIEW
-				(handlers = @executesPreview[commandId]) and handlers.each { |handler|
-					(handler.arity == 0) ? handler.call : handler.call(args)
-				}
-			when Windows::UI_EXECUTIONVERB_CANCELPREVIEW
-				(handlers = @executesCancelPreview[commandId]) and handlers.each { |handler|
-					(handler.arity == 0) ? handler.call : handler.call(args)
-				}
-			end
-
-			self
-		rescue
-			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
-
-			self
-		end
-
-		def update(commandId, key, value, newValue)
-			args = {
-				commandId: commandId,
-				key: (key.null?) ? nil : Windows::PROPERTYKEY.new(key),
-				value: (value.null?) ? nil : Windows::PROPVARIANT.new(value),
-				newValue: (newValue.null?) ? nil : Windows::PROPVARIANT.new(newValue),
-				ribbon: self,
-				sender: Command.new(self, commandId)
-			}
-
-			(handlers = @updatesAllKeys[commandId]) and handlers.each { |handler|
-				(handler.arity == 0) ? handler.call : handler.call(args)
-			}
-
-			self
-		rescue
-			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
-
-			self
-		end
-
-		def invalidate(commandId, flags = Windows::UI_INVALIDATIONS_ALLPROPERTIES, key = nil)
-			@uif.InvalidateUICommand(commandId, flags, key)
-
-			self
-		end
-
-		def on(*args, &block)
-			case args.size
-			when 1
-				case args[0]
-				when /^create$/i; @creates << block
-				when /^destroy$/i; @destroys << block
-				when /^size$/i; @sizes << block
-				when Integer; (@executesAllVerbs[args[0]] ||= []) << block
-				else raise ArgumentError
-				end
-			when 2
-				case args[0]
-				when /^execute$/i; (@executesExecute[args[1]] ||= []) << block
-				when /^preview$/i; (@executesPreview[args[1]] ||= []) << block
-				when /^cancelpreview$/i; (@executesCancelPreview[args[1]] ||= []) << block
-				when /^update$/i; (@updatesAllKeys[args[1]] ||= []) << block
-				else raise ArgumentError
-				end
-			else raise ArgumentError
-			end
-
-			self
-		end
-
-		def fontPropsUpdate(args)
-			return self unless args[:key] == Windows::UI_PKEY_FontProperties
-
-			args[:value].unknown { |current|
-				current.QueryInstance(Windows::PropertyStore) { |ps|
-					yield ps
-
-					args[:newValue].unknown = current
-				}
-			}
-
-			self
-		end
-
-		def fontPropsChanged(args)
-			return self unless args[:key] == Windows::UI_PKEY_FontProperties
-
-			args[:props].uiprop(:FontProperties_ChangedProperties).unknown { |changed|
-				changed.QueryInstance(Windows::PropertyStore) { |ps|
-					yield ps
-				}
-			}
-
-			self
-		end
-
-		def contextualUI(id, x, y)
-			uif.UseInstance(Windows::UIContextualUI, :GetView, id) { |view|
-				view.ShowAtLocation(x, y)
-			}
-
-			self
-		end
-	end
-end