fzeet 0.6.5 → 0.6.6

data/lib/fzeet/Control.rb

@@ -1,19 +0,0 @@
-require_relative 'Control/Button'
-require_relative 'Control/SysLink' if Fzeet::Windows::WINVER.AtLeastWindowsXP?
-require_relative 'Control/Static'
-require_relative 'Control/Edit'
-require_relative 'Control/Scintilla'
-require_relative 'Control/UpDown'
-require_relative 'Control/MonthCalendar'
-require_relative 'Control/DateTimePicker'
-require_relative 'Control/ListBox'
-require_relative 'Control/ComboBox'
-require_relative 'Control/ComboBoxEx'
-require_relative 'Control/Header'
-require_relative 'Control/ListView'
-require_relative 'Control/TreeView'
-require_relative 'Control/ProgressBar'
-require_relative 'Control/PropertySheet'
-require_relative 'Control/Tab'
-require_relative 'Control/ExplorerBrowser' if Fzeet::Windows::WINVER.AtLeastWindowsVista?
-require_relative 'Control/WebBrowser'

data/lib/fzeet/Control/Button.rb

@@ -1,57 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module ButtonMethods
-		def image=(image) sendmsg(:setimage, Windows::IMAGE_BITMAP, image.handle) end
-
-		def note=(text) Windows.LPWSTR(text) { |p| sendmsg(:setnote, 0, p) } end
-
-		def checked?; sendmsg(:getcheck) == Windows::BST_CHECKED end
-		def checked=(checked) sendmsg(:setcheck, (checked) ? Windows::BST_CHECKED : Windows::BST_UNCHECKED) end
-
-		def indeterminate?; sendmsg(:getcheck) == Windows::BST_INDETERMINATE end
-		def indeterminate=(indeterminate) sendmsg(:setcheck, (indeterminate) ? Windows::BST_INDETERMINATE : Windows::BST_UNCHECKED) end
-
-		def pushed?; (sendmsg(:getstate) & Windows::BST_PUSHED) == Windows::BST_PUSHED end
-		def pushed=(pushed) sendmsg(:setstate, (pushed) ? 1 : 0) end
-	end
-
-	class Button < Control
-		include ButtonMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:bs_, :ws_],
-			message: [:bm_, :bcm_, :ccm_, :wm_],
-			notification: [:bn_, :bcn_, :nm_]
-		}
-
-		def initialize(parent, id, opts = {}, &block)
-			super('Button', parent, id, opts)
-
-			width, height = 0, 0
-
-			using(ScreenDC.new) { |dc| dc.select(Font) {
-				minw = dc.textExtent('W' * 8).to_a[0]
-				width, height = dc.textExtent("W#{text}W").to_a
-
-				width = minw if width < minw; height = (height * 1.8).ceil
-			}}
-
-			self.location = 10, 10 if location.client!(parent).to_a == [0, 0]
-			self.size = width, height if size.to_a == [0, 0]
-
-			@parent.on(:command, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			if (notification = Fzeet.constant(notification, *self.class::Prefix[:notification])) < Windows::BCN_LAST
-				@parent.on(:command, @id, notification, &block)
-			else
-				@parent.on(:notify, @id, notification, &block)
-			end
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/ComboBox.rb

@@ -1,46 +0,0 @@
-require_relative 'ListBox'
-
-module Fzeet
-	module ComboBoxMethods
-		include ListBoxMethods
-
-		def textlen(i) raise "GETLBTEXTLEN failed." if (len = sendmsg(:getlbtextlen, i)) == -1; len end
-
-		def [](i)
-			i = sendmsg(:getcursel) if i == :selected
-
-			return '' if i == -1 || (len = textlen(i) + 1) == 1
-
-			''.tap { |item|
-				FFI::MemoryPointer.new(:char, len) { |buf|
-					raise "GETLBTEXT failed." if sendmsg(:getlbtext, i, buf) == -1
-
-					item << buf.read_string
-				}
-			}
-		end
-	end
-
-	class ComboBox < Control
-		include ComboBoxMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:cbs_, :ws_],
-			message: [:cb_, :wm_],
-			notification: [:cbn_]
-		}
-
-		def initialize(parent, id, opts = {}, &block)
-			super('ComboBox', parent, id, opts)
-
-			@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/ComboBoxEx.rb

@@ -1,35 +0,0 @@
-require_relative 'ComboBox'
-
-module Fzeet
-	module ComboBoxExMethods
-		include ComboBoxMethods
-
-	end
-
-	class ComboBoxEx < Control
-		include ComboBoxExMethods
-
-		Prefix = {
-			xstyle: [:cbes_ex_, :ws_ex_],
-			style: [:cbs_, :ws_],
-			message: [:cb_, :cbem_, :ccm_, :wm_],
-			notification: [:cbn_, :cben_, :nm_]
-		}
-
-		def initialize(parent, id, opts = {}, &block)
-			super('ComboBoxEx32', parent, id, opts)
-
-			@parent.on(:command, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			if (notification = Fzeet.constant(notification, *self.class::Prefix[:notification])) < Windows::CBEN_LAST
-				@parent.on(:command, @id, notification, &block)
-			else
-				@parent.on(:notify, @id, notification, &block)
-			end
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/Common.rb

@@ -1,89 +0,0 @@
-require_relative '../Window/WindowMethods'
-
-module Fzeet
-	class Control < Handle
-		include WindowMethods
-
-		Windows::NONCLIENTMETRICS.new.tap { |ncm|
-			ncm[:cbSize] = ncm.size
-
-			Windows.DetonateLastError(0, :SystemParametersInfo, Windows::SPI_GETNONCLIENTMETRICS, ncm.size, ncm, 0)
-
-			Font = IndirectFont.new(ncm[:lfMenuFont])
-
-			at_exit { Font.dispose }
-		}
-
-		def self.crackNotification(args) end
-
-		def initialize(className, parent, id, opts = {})
-			@parent = parent
-			@id = Command[id]
-
-			handlers = {}
-
-			opts.delete_if { |k, v|
-				next false unless v.kind_of?(Proc)
-
-				handlers[k] = v; true
-			}
-
-			_opts = {
-				xstyle: [],
-				caption: id.capitalize,
-				style: [],
-				x: 0,
-				y: 0,
-				width: 0,
-				height: 0,
-				position: [],
-				anchor: nil
-			}
-			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
-			_opts.merge!(opts)
-
-			_opts[:xstyle] = Fzeet.flags(_opts[:xstyle], *self.class::Prefix[:xstyle])
-			_opts[:caption] = _opts[:caption].to_s
-			_opts[:style] = Fzeet.flags([:child, :visible, :tabstop], :ws_) | Fzeet.flags(_opts[:style], *self.class::Prefix[:style])
-			_opts[:x], _opts[:y], _opts[:width], _opts[:height] = _opts[:position] unless _opts[:position].empty?
-
-			@handle = Windows.DetonateLastError(FFI::Pointer::NULL, :CreateWindowEx,
-				_opts[:xstyle], className, _opts[:caption], _opts[:style],
-				_opts[:x], _opts[:y], _opts[:width], _opts[:height],
-				@parent.handle, FFI::Pointer.new(@id), Windows.GetModuleHandle(nil), nil
-			)
-
-			attach
-
-			sendmsg(:setfont, Font.handle, 1)
-
-			handlers.each { |k, v| on(k, &v) }
-
-			case _opts[:anchor]
-			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]
-		end
-
-		attr_reader :parent, :id
-
-		def dispose; detach end
-	end
-end

data/lib/fzeet/Control/DateTimePicker.rb

@@ -1,38 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module DateTimePickerMethods
-
-	end
-
-	class DateTimePicker < Control
-		include DateTimePickerMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:dts_, :ws_],
-			message: [:dtm_, :ccm_, :wm_],
-			notification: [:dtn_, :nm_]
-		}
-
-		def self.crackNotification(args)
-			case args[:notification]
-			when Windows::DTN_DATETIMECHANGE
-				args[:dtc] = Windows::NMDATETIMECHANGE.new(FFI::Pointer.new(args[:lParam]))
-				args[:st] = args[:dtc][:st] if args[:dtc][:dwFlags] == Windows::GDT_VALID
-			end
-		end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysDateTimePick32', 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/Edit.rb

@@ -1,53 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module EditMethods
-		def clear; self.text = ''; self end
-
-		def select(s = 0, e = -1) sendmsg(:setsel, s, e); self end
-
-		def cuebanner=(text) Windows.LPWSTR(text) { |p| sendmsg(:setcuebanner, 1, p) } end
-
-		def showBalloontip(text, title = '', icon = 1)
-			Windows.LPWSTR(text) { |ptext| Windows.LPWSTR(title) { |ptitle|
-				ebt = Windows::EDITBALLOONTIP.new
-
-				ebt[:cbStruct] = ebt.size
-				ebt[:pszTitle] = ptitle
-				ebt[:pszText] = ptext
-				ebt[:ttiIcon] = Fzeet.constant(icon, :tti_)
-
-				sendmsg(:showBalloontip, 0, ebt.pointer)
-			}}
-
-			self
-		end
-
-		def hideBalloontip; sendmsg(:hideBalloontip); self end
-	end
-
-	class Edit < Control
-		include EditMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:es_, :ws_],
-			message: [:em_, :wm_],
-			notification: [:en_]
-		}
-
-		def initialize(parent, id, opts = {}, &block)
-			super('Edit', parent, id, opts)
-
-			style << :border; reframe
-
-			@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/ExplorerBrowser.rb

@@ -1,66 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	class ExplorerBrowser < Windows::ExplorerBrowser
-		def initialize(parent)
-			@parent = parent
-
-			super()
-
-			@events = Windows::ExplorerBrowserEvents.new
-
-			@events.instance_variable_set(:@browser, self)
-
-			class << @events
-				attr_reader :browser
-
-				(self::VTBL.members - Windows::IUnknown::VTBL.members).each { |name|
-					define_method(name) { |*args|
-						(handlers = browser.handlers && browser.handlers[name]) && handlers.each { |handler|
-							(handler.arity == 0) ? handler.call : handler.call(*args)
-						}
-
-						Windows::S_OK
-					}
-				}
-			end
-
-			@cookie = nil
-			FFI::MemoryPointer.new(:ulong) { |p| Advise(@events, p); @cookie = p.get_ulong(0) }
-
-			Initialize(@parent.handle, parent.rect, nil)
-
-			@parent.
-				on(:size) { SetRect(nil, @parent.rect) }.
-				on(:destroy) { Unadvise(@cookie); @events.Release; Destroy(); Release() }.
-
-				instance_variable_set(:@__ExplorerBrowser__, self)
-		end
-
-		attr_reader :parent, :events, :handlers
-
-		def on(event, &block)
-			((@handlers ||= {})["On#{event}".to_sym] ||= []) << block
-
-			self
-		end
-
-		def goto(where)
-			pidl = nil
-
-			FFI::MemoryPointer.new(:pointer) { |p|
-				Windows.SHGetKnownFolderIDList(Windows.const_get("FOLDERID_#{where}"), 0, nil, p)
-
-				BrowseToIDList(pidl = p.read_pointer, 0)
-			}
-
-			self
-		ensure
-			Windows.CoTaskMemFree(pidl)
-		end
-
-		def back; BrowseToIDList(nil, Windows::SBSP_NAVIGATEBACK); self end
-		def forward; BrowseToIDList(nil, Windows::SBSP_NAVIGATEFORWARD); self end
-		def up; BrowseToIDList(nil, Windows::SBSP_PARENT); self end
-	end
-end

data/lib/fzeet/Control/Header.rb

@@ -1,63 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module HeaderMethods
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:hds_, :ws_],
-			message: [:hdm_, :ccm_, :wm_],
-			notification: [:hdn_, :nm_]
-		}
-
-		def count; sendmsg(:getitemcount) end
-
-		def insertItem(i, text, width)
-			hdi = Windows::HDITEM.new
-
-			hdi[:mask] = Fzeet.flags([:width, :text, :format, :order], :hdi_)
-			hdi[:cxy] = width
-			hdi[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
-			hdi[:fmt] = Fzeet.flags([:left, :string], :hdf_)
-			hdi[:iOrder] = i
-
-			sendmsg(:insertitem, 0, hdi.pointer)
-
-			self
-		ensure
-			ptext.free
-		end
-
-		def modifyItem(i, text, style = 0)
-			hdi = Windows::HDITEM.new
-
-			hdi[:mask] = Fzeet.flags([:text, :format], :hdi_)
-			hdi[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
-			hdi[:fmt] = Fzeet.flags([:left, :string], :hdf_)
-			hdi[:fmt] |= Fzeet.flags([*style].compact, :hdf_)
-
-			sendmsg(:setitem, i, hdi.pointer)
-
-			self
-		ensure
-			ptext.free
-		end
-	end
-
-	class Header < Control
-		include HeaderMethods
-
-		def self.crackNotification(args) end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysHeader32', 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