fzeet 0.6.5 → 0.6.6

data/lib/fzeet/Control/ListBox.rb

@@ -1,72 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module ListBoxMethods
-		def textlen(i) raise "GETTEXTLEN failed." if (len = sendmsg(:gettextlen, 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 "GETTEXT failed." if sendmsg(:gettext, i, buf) == -1
-
-					item << buf.read_string
-				}
-			}
-		end
-
-		def clear; sendmsg(:resetcontent); self end
-
-		def append(item)
-			[*item].each { |item|
-				p = FFI::MemoryPointer.from_string(item.to_s)
-
-				raise 'ADDSTRING failed.' if [-1, -2].include?(sendmsg(:addstring, 0, p).tap { p.free })
-			}
-
-			self
-		end
-
-		def selected=(i)
-			i = case i
-			when -1;     0xffffffff
-			when :first; 0
-			when :last;  length - 1
-			else         i
-			end
-
-			raise 'SETCURSEL failed.' if sendmsg(:setcursel, i) == -1 && i != 0xffffffff
-
-			self
-		end
-
-		def length; raise 'GETCOUNT failed.' if (len = sendmsg(:getcount)) == -1; len end
-		def each; length.times { |i| yield self[i] }; self end
-	end
-
-	class ListBox < Control
-		include ListBoxMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:lbs_, :ws_],
-			message: [:lb_, :wm_],
-			notification: [:lbn_]
-		}
-
-		def initialize(parent, id, opts = {}, &block)
-			super('ListBox', 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/ListView.rb

@@ -1,133 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module ListViewMethods
-		class ExStyle
-			def initialize(listview) @listview = listview end
-
-			def <<(xstyle)
-				@listview.sendmsg(:setextendedlistviewstyle, 0,
-					@listview.sendmsg(:getextendedlistviewstyle) | Fzeet.constant(xstyle, *@listview.class::Prefix[:xstyle])
-				)
-
-				self
-			end
-
-			def >>(xstyle)
-				@listview.sendmsg(:setextendedlistviewstyle, 0,
-					@listview.sendmsg(:getextendedlistviewstyle) & ~Fzeet.constant(xstyle, *@listview.class::Prefix[:xstyle])
-				)
-
-				self
-			end
-
-			def toggle(what) send((@listview.xstyle?(what)) ? :>> : :<<, what); self end
-		end
-
-		def xstyle?(xstyle) (sendmsg(:getextendedlistviewstyle) & (xstyle = Fzeet.constant(xstyle, *self.class::Prefix[:xstyle]))) == xstyle end
-		def xstyle; ExStyle.new(self) end
-
-		def insertColumn(i, text, width)
-			lvc = Windows::LVCOLUMN.new
-
-			lvc[:mask] = Fzeet.flags([:fmt, :width, :text, :subitem], :lvcf_)
-			lvc[:fmt] = Fzeet.flags(:left, :lvcfmt_)
-			lvc[:cx] = width
-			lvc[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
-			lvc[:iSubItem] = i
-
-			sendmsg(:insertcolumn, 0, lvc.pointer)
-
-			self
-		ensure
-			ptext.free if ptext
-		end
-
-		class Item
-			def initialize(lvi) @subitems = [lvi] end
-
-			attr_reader :subitems
-		end
-
-		def insertItem(i, j, text)
-			lvi = Windows::LVITEM.new
-
-			lvi[:mask] = Fzeet.flags(:text, :lvif_)
-			lvi[:iItem] = i
-			lvi[:iSubItem] = j
-			lvi[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
-
-			if j == 0
-				@items << Item.new(lvi)
-
-				lvi[:mask] |= Windows::LVIF_PARAM
-				lvi[:lParam] = @items[i].object_id
-
-				sendmsg(:insertitem, 0, lvi.pointer)
-			else
-				@items[i].subitems << lvi
-
-				sendmsg(:setitem, 0, lvi.pointer)
-			end
-
-			@items[i].subitems[j].instance_variable_set(:@text, text)
-
-			class << @items[i].subitems[j]
-				attr_reader :text
-			end
-
-			self
-		ensure
-			ptext.free if ptext
-		end
-
-		def sort(j = 0)
-			sendmsg(:sortitems, j,
-				FFI::Function.new(:int, [:long, :long, :long], convention: :stdcall) { |lParam1, lParam2, lParamSort|
-					yield ObjectSpace._id2ref(lParam1).subitems[lParamSort], ObjectSpace._id2ref(lParam2).subitems[lParamSort], j
-				}
-			)
-
-			self
-		end
-
-		def clear; sendmsg(:deleteallitems); self end
-	end
-
-	class ListView < Control
-		include ListViewMethods
-
-		Prefix = {
-			xstyle: [:lvs_ex_, :ws_ex_],
-			style: [:lvs_, :ws_],
-			message: [:lvm_, :ccm_, :wm_],
-			notification: [:lvn_, :nm_]
-		}
-
-		def self.crackNotification(args)
-			case args[:notification]
-			when Windows::LVN_COLUMNCLICK
-				args[:nmlv] = Windows::NMLISTVIEW.new(FFI::Pointer.new(args[:lParam]))
-				args[:index] = args[:nmlv][:iSubItem]
-			end
-		end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysListView32', parent, id, opts)
-
-			@header = Handle.wrap(FFI::Pointer.new(sendmsg(:getheader)), WindowMethods, HeaderMethods)
-
-			@items = []
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		attr_reader :header, :items
-
-		def on(notification, &block)
-			@parent.on(:notify, @id, Fzeet.constant(notification, *self.class::Prefix[:notification]), &block)
-
-			self
-		end
-	end
-end

data/lib/fzeet/Control/MonthCalendar.rb

@@ -1,38 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module MonthCalendarMethods
-
-	end
-
-	class MonthCalendar < Control
-		include MonthCalendarMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:mcs_, :ws_],
-			message: [:mcm_, :ccm_, :wm_],
-			notification: [:mcn_, :nm_]
-		}
-
-		def self.crackNotification(args)
-			case args[:notification]
-			when Windows::MCN_SELCHANGE
-				args[:sc] = Windows::NMSELCHANGE.new(FFI::Pointer.new(args[:lParam]))
-				args[:st1], args[:st2] = args[:sc][:stSelStart], args[:sc][:stSelEnd]
-			end
-		end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('SysMonthCal32', 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/ProgressBar.rb

@@ -1,40 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module ProgressBarMethods
-		def step=(step) sendmsg(:setstep, step) end
-		def step!; sendmsg(:stepit) end
-
-		def position=(position) sendmsg(:setpos, position) end
-
-		def marquee?; @marquee end
-		def marquee=(marquee) sendmsg(:setmarquee, (@marquee = marquee) ? 1 : 0) end
-	end
-
-	class ProgressBar < Control
-		include ProgressBarMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:pbs_, :ws_],
-			message: [:pbm_, :ccm_, :wm_],
-			notification: [:nm_]
-		}
-
-		def self.crackNotification(args) end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('msctls_progress32', parent, id, opts)
-
-			@marquee = false
-
-			@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/PropertySheet.rb

@@ -1,51 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	class PropertyPage
-		class PROPSHEETPAGEA1 < FFI::Struct
-			layout \
-				:array, [Windows::PROPSHEETPAGE, 1]
-		end
-
-		def initialize
-
-		end
-	end
-
-	class PropertySheet
-		def initialize(parent, opts = {wizard: false})
-			pointers = []
-
-			psps = PropertyPage::PROPSHEETPAGEA1.new
-
-			dt = Windows::DLGTEMPLATE.new
-
-			dt[:style] = Fzeet.flags([:'3dlook', :control, :child, :tabstop], :ds_, :ws_)
-			dt[:x], dt[:y], dt[:cx], dt[:cy] = 100, 100, 300, 150
-
-			psp = psps[:array][0]
-
-			psp[:dwSize] = psp.size
-			psp[:dwFlags] = Fzeet.flags([:dlgindirect, :usetitle], :psp_)
-			psp[:hInstance] = Windows.GetModuleHandle(nil)
-			psp[:template][:pResource] = dt
-			psp[:pszTitle] = pointers.push(FFI::MemoryPointer.from_string("Page")).last
-
-			psh = Windows::PROPSHEETHEADER.new
-
-			psh[:dwSize] = psh.size
-			psh[:dwFlags] = Fzeet.flags(:propsheetpage, :psh_)
-			psh[:dwFlags] |= Windows::PSH_WIZARD if opts[:wizard]
-			psh[:hwndParent] = parent.handle
-			psh[:hInstance] = Windows.GetModuleHandle(nil)
-			psh[:pszCaption] = pointers.push(FFI::MemoryPointer.from_string('Sheet')).last
-			psh[:nPages] = 1
-			psh[:start][:nStartPage] = 0
-			psh[:pages][:ppsp] = psps
-
-			Windows.DetonateLastError(-1, :PropertySheet, psh)
-		ensure
-			pointers.each(&:free)
-		end
-	end
-end

data/lib/fzeet/Control/Scintilla.rb

@@ -1,117 +0,0 @@
-require_relative 'Common'
-
-module Fzeet
-	module ScintillaMethods
-		def text
-			FFI::MemoryPointer.new(:uchar, len = sendmsg(:gettextlength) + 1) { |p|
-				sendmsg(:gettext, len, p)
-
-				return p.read_string
-			}
-		end
-
-		def text=(text)
-			p = FFI::MemoryPointer.from_string(text)
-
-			sendmsg(:settext, 0, p)
-		ensure
-			p.free
-		end
-
-		def font
-			FFI::MemoryPointer.new(:uchar, 33) { |p|
-				sendmsg(:stylegetfont, Windows::STYLE_DEFAULT, p)
-
-				return p.read_string
-			}
-		end
-
-		def font=(name)
-			p = FFI::MemoryPointer.from_string(name)
-
-			sendmsg(:stylesetfont, Windows::STYLE_DEFAULT, p)
-		ensure
-			p.free
-		end
-
-		def fontSize; sendmsg(:stylegetsize, Windows::STYLE_DEFAULT) end
-		def fontSize=(size) sendmsg(:stylesetsize, Windows::STYLE_DEFAULT, size) end
-
-		def tabWidth; sendmsg(:gettabwidth) end
-		def tabWidth=(tabWidth) sendmsg(:settabwidth, tabWidth) end
-
-		def dirty?; @dirty end
-		def dirty=(dirty) (dirty) ? @dirty = true : sendmsg(:setsavepoint) end
-	end
-
-	class Scintilla < Control
-		include ScintillaMethods
-
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:ws_],
-			message: [:sci_, :wm_],
-			notification: [:scn_, :scen_, :nm_]
-		}
-
-		def self.crackNotification(args)
-			case args[:notification]
-			when \
-				Windows::SCN_STYLENEEDED,
-				Windows::SCN_CHARADDED,
-				Windows::SCN_SAVEPOINTREACHED,
-				Windows::SCN_SAVEPOINTLEFT,
-				Windows::SCN_MODIFYATTEMPTRO,
-				Windows::SCN_KEY,
-				Windows::SCN_DOUBLECLICK,
-				Windows::SCN_UPDATEUI,
-				Windows::SCN_MODIFIED,
-				Windows::SCN_MACRORECORD,
-				Windows::SCN_MARGINCLICK,
-				Windows::SCN_NEEDSHOWN,
-				Windows::SCN_PAINTED,
-				Windows::SCN_USERLISTSELECTION,
-				Windows::SCN_URIDROPPED,
-				Windows::SCN_DWELLSTART,
-				Windows::SCN_DWELLEND,
-				Windows::SCN_ZOOM,
-				Windows::SCN_HOTSPOTCLICK,
-				Windows::SCN_HOTSPOTDOUBLECLICK,
-				Windows::SCN_CALLTIPCLICK,
-				Windows::SCN_AUTOCSELECTION,
-				Windows::SCN_INDICATORCLICK,
-				Windows::SCN_INDICATORRELEASE,
-				Windows::SCN_AUTOCCANCELLED,
-				Windows::SCN_AUTOCCHARDELETED
-
-				args[:scn] = Windows::SCNotification.new(FFI::Pointer.new(args[:lParam]))
-			end
-		end
-
-		def initialize(parent, id, opts = {}, &block)
-			super('Scintilla', parent, id, opts)
-
-			@dirty = false
-
-			on(:savepointleft) { @dirty = true }
-			on(:savepointreached) { @dirty = false }
-
-			@parent.on(:notify, @id, &block) if block
-		end
-
-		def on(notification, &block)
-			case c = Fzeet.constant(notification, *self.class::Prefix[:notification])
-			when \
-				Windows::SCEN_CHANGE,
-				Windows::SCEN_SETFOCUS,
-				Windows::SCEN_KILLFOCUS
-
-				@parent.on(:command, @id, c, &block)
-			else
-				@parent.on(:notify, @id, c, &block)
-			end
-
-			self
-		end
-	end
-end