fzeet 0.6.5 → 0.6.6

data/lib/fzeet/Control/Static.rb

@@ -1,34 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	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/Control/SysLink.rb

@@ -1,40 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module SysLinkMethods
-
-	end
-
-	class SysLink < Control
-		include SysLinkMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:lws_, :ws_],
-			message: [:lm_, :ccm_, :wm_],
-			notification: [:nm_]
-		}
-
-		def self.crackNotification(args)
-			case args[:notification]
-			when Windows::NM_CLICK
-				args[:link] = Windows::NMLINK.new(FFI::Pointer.new(args[:lParam]))
-
-				args[:id] = Windows.WCSTOMBS(args[:link][:item][:szID])
-				args[:url] = Windows.WCSTOMBS(args[:link][:item][:szUrl])
-			end
-		end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysLink', parent, id, opts)
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/Tab.rb

@@ -1,59 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module TabMethods
-		class Item
-			def initialize(tab, i) @tab, @index = tab, i end
-
-			attr_reader :tab, :index
-		end
-
-		def [](i) Item.new(self, i) end
-
-		def count; sendmsg(:getitemcount) end
-		alias :size :count
-		alias :length :count
-
-		def insert(text, i = count)
-			tci = Windows::TCITEM.new
-
-			tci[:mask] = Fzeet.flags(:text, :tcif_)
-			tci[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
-
-			sendmsg(:insertitem, i, tci.pointer)
-
-			self
-		ensure
-			ptext.free
-		end
-
-		def current; self[sendmsg(:getcursel)] end
-	end
-
-	class Tab < Control
-		include TabMethods
-
-		Prefix = {
-			xstyle: [:tcs_ex_, :ws_ex_],
-			style: [:tcs_, :ws_],
-			message: [:tcm_, :ccm_, :wm_],
-			notification: [:tcn_, :nm_]
-		}
-
-		def self.crackNotification(args) end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysTabControl32', parent, id, opts)
-
-			style << :clipsiblings
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/TreeView.rb

@@ -1,82 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module TreeViewMethods
-		class Item
-			def initialize(text) @text = text end
-
-			attr_reader :text, :root, :parent, :handle
-
-			def root=(root) raise 'Can\'t change established @root.' if @root; @root = root end
-			def parent=(parent) raise 'Can\'t change established @parent.' if @parent; @parent = parent end
-			def handle=(handle) raise 'Can\'t change established @handle.' if @handle; @handle = handle end
-
-			def append(text)
-				item = Item.new(text)
-
-				tvis = Windows::TVINSERTSTRUCT.new
-
-				tvis[:hInsertAfter] = Windows::TVI_LAST
-				tvis[:hParent] = @handle
-
-				tvi = tvis[:item]
-
-				tvi[:mask] = Windows::TVIF_TEXT
-				tvi[:pszText] = ptext = FFI::MemoryPointer.from_string(item.text)
-
-				item.root, item.parent = @root, self
-				item.handle = @root.sendmsg(:insertitem, 0, tvis.pointer)
-
-				item
-			ensure
-				ptext.free
-			end
-		end
-
-		def append(text)
-			item = Item.new(text)
-
-			tvis = Windows::TVINSERTSTRUCT.new
-
-			tvis[:hInsertAfter] = Windows::TVI_LAST
-			tvis[:hParent] = Windows::TVI_ROOT
-
-			tvi = tvis[:item]
-
-			tvi[:mask] = Windows::TVIF_TEXT
-			tvi[:pszText] = ptext = FFI::MemoryPointer.from_string(item.text)
-
-			item.root, item.parent = self, self
-			item.handle = sendmsg(:insertitem, 0, tvis.pointer)
-
-			item
-		ensure
-			ptext.free
-		end
-	end
-
-	class TreeView < Control
-		include TreeViewMethods
-
-		Prefix = {
-			xstyle: [:tvs_ex, :ws_ex_],
-			style: [:tvs_, :ws_],
-			message: [:tvm_, :ccm_, :wm_],
-			notification: [:tvn_, :nm_]
-		}
-
-		def self.crackNotification(args) end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysTreeView32', parent, id, opts)
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/UpDown.rb

@@ -1,36 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module UpDownMethods
-		def buddy=(buddy) sendmsg(:setbuddy, buddy.handle) end
-
-		def range=(range) sendmsg(:setrange, 0, Windows.MAKELONG(*range.reverse)) end
-
-		def position=(position) sendmsg(:setpos32, 0, position) end
-	end
-
-	class UpDown < Control
-		include UpDownMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:uds_, :ws_],
-			message: [:udm_, :ccm_, :wm_],
-			notification: [:udn_, :nm_]
-		}
-
-		def self.crackNotification(args) end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('msctls_updown32', parent, id, opts)
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/WebBrowser.rb

@@ -1,153 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	class WebBrowser < Windows::WebBrowser
-		def initialize(parent)
-			@parent = parent
-
-			@oips = Windows::OleInPlaceSite.new
-
-			@oips.instance_variable_set(:@browser, self)
-
-			class << @oips
-				attr_reader :browser
-
-				def CanInPlaceActivate
-					Windows::S_OK
-				end
-
-				def GetWindow(phwnd)
-					phwnd.write_pointer(browser.parent.handle)
-
-					Windows::S_OK
-				end
-
-				def GetWindowContext(pframe, pdoc, prPos, prClip, pinfo)
-					pframe.write_pointer(0)
-					pdoc.write_pointer(0)
-					Windows.GetClientRect(browser.parent.handle, prPos)
-					Windows.GetClientRect(browser.parent.handle, prClip)
-
-					Windows::S_OK
-				end
-
-				def OnPosRectChange(prPos)
-					browser.QueryInstance(Windows::OleInPlaceObject) { |oipo|
-						oipo.SetObjectRects(prPos, prPos)
-					}
-
-					Windows::S_OK
-				end
-			end
-
-			@ocs = Windows::OleClientSite.new
-
-			@ocs.instance_variable_set(:@browser, self)
-
-			class << @ocs
-				attr_reader :browser
-
-				def QueryInterface(piid, ppv)
-					if Windows::GUID.new(piid) == Windows::IOleInPlaceSite::IID
-						ppv.write_pointer(browser.oips); browser.oips.AddRef
-
-						return Windows::S_OK
-					end
-
-					super
-				end
-			end
-
-			super()
-
-			@events = Windows::WebBrowserEvents.new
-
-			@events.instance_variable_set(:@browser, self)
-
-			class << @events
-				attr_reader :browser
-
-				(self::VTBL.members - Windows::IDispatch::VTBL.members).each { |name|
-					define_method(name) { |dispParams|
-						(handlers = browser.handlers && browser.handlers[name]) && handlers.each { |handler|
-							(handler.arity == 0) ? handler.call : handler.call(dispParams)
-						}
-					}
-				}
-			end
-
-			QueryInstance(Windows::ConnectionPointContainer) { |cpc|
-				FFI::MemoryPointer.new(:pointer) { |pcp|
-					cpc.FindConnectionPoint(Windows::WebBrowserEvents::IID, pcp)
-
-					@cp = Windows::ConnectionPoint.new(pcp.read_pointer)
-				}
-			}
-
-			@cookie = nil
-			FFI::MemoryPointer.new(:ulong) { |p| @cp.Advise(@events, p); @cookie = p.get_ulong(0) }
-
-			QueryInstance(Windows::OleObject) { |oo|
-				oo.SetClientSite(@ocs)
-				oo.DoVerb(Windows::OLEIVERB_INPLACEACTIVATE, nil, @ocs, 0, @parent.handle, @parent.rect)
-			}
-
-			@parent.
-				on(:size) {
-					r = @parent.rect
-
-					put_Top(r[:top]); put_Left(r[:left]); put_Width(r[:right]); put_Height(r[:bottom])
-				}.
-
-				on(:destroy) {
-					@oips.Release
-					@ocs.Release
-					@cp.Unadvise(@cookie)
-					@events.Release
-					@cp.Release
-					Release()
-				}.
-
-				instance_variable_set(:@__WebBrowser__, self)
-		end
-
-		attr_reader :parent, :oips, :ocs, :events, :cp, :handlers
-
-		def on(event, &block)
-			((@handlers ||= {})[event] ||= []) << block
-
-			self
-		end
-
-		def goto(where)
-			where = Windows.SysAllocString("#{where}\0".encode('utf-16le'))
-
-			Navigate(where, nil, nil, nil, nil)
-
-			self
-		ensure
-			Windows.SysFreeString(where)
-		end
-
-		def back; GoBack(); self; rescue; self end
-		def forward; GoForward(); self; rescue; self end
-		def home; GoHome(); self end
-		def search; GoSearch(); self end
-
-		def refresh; Refresh(); self end
-
-		def document
-			disp = nil
-
-			FFI::MemoryPointer.new(:pointer) { |pdisp|
-				get_Document(pdisp)
-
-				disp = Windows::Dispatch.new(pdisp.read_pointer)
-
-				return disp.QueryInstance(Windows::HTMLDocument2)
-			}
-		ensure
-			disp.Release if disp
-		end
-	end
-end

data/lib/fzeet/Dialog.rb

@@ -1,6 +0,0 @@
-require_relative 'Dialog/FileDialog'
-require_relative 'Dialog/ShellFileDialog' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
-require_relative 'Dialog/FontDialog'
-require_relative 'Dialog/ColorDialog'
-require_relative 'Dialog/FindReplaceDialog'
-require_relative 'Dialog/PrintDialog'

data/lib/fzeet/Dialog/ColorDialog.rb

@@ -1,44 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	class ColorDialog < CommonDialog
-		DialogStruct = Windows::CHOOSECOLOR
-
-		HookProc = -> *args { CommonDialog::HookProc.(*args.unshift(DialogStruct)) }
-
-		def initialize(opts = {})
-			_opts = {
-
-			}
-			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
-			_opts.merge!(opts)
-
-			@struct = DialogStruct.new
-
-			@struct[:lStructSize] = @struct.size
-			@struct[:hInstance] = Windows.GetModuleHandle(nil)
-			@struct[:lpCustColors] = @buf = FFI::MemoryPointer.new(:ulong, 16)
-			@struct[:Flags] = Fzeet.flags(:enablehook, :cc_)
-			@struct[:lCustData] = object_id
-			@struct[:lpfnHook] = HookProc
-
-			super()
-
-			begin
-				yield self
-			ensure
-				dispose
-			end if block_given?
-		end
-
-		def dispose; @buf.free end
-
-		def show(window = Application.window)
-			@struct[:hwndOwner] = window.handle
-
-			DialogResult.new((Windows.ChooseColor(@struct) == 0) ? Windows::IDCANCEL : Windows::IDOK)
-		end
-
-		def color; result = @struct[:rgbResult]; [Windows.GetRValue(result), Windows.GetBValue(result), Windows.GetBValue(result)] end
-	end
-end