fzeet 0.6.2 → 0.6.3

data/LICENSE_Scintilla

@@ -0,0 +1,20 @@
+License for Scintilla and SciTE
+
+Copyright 1998-2003 by Neil Hodgson <neilh@scintilla.org>
+
+All Rights Reserved 
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that 
+both that copyright notice and this permission notice appear in 
+supporting documentation. 
+
+NEIL HODGSON DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS 
+SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY 
+AND FITNESS, IN NO EVENT SHALL NEIL HODGSON BE LIABLE FOR ANY 
+SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE 
+OR PERFORMANCE OF THIS SOFTWARE. 

data/examples/Control/Button1.rbw

@@ -0,0 +1,7 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window| window.dialog = true
+	Button.new(window, :button1)
+}

data/examples/Control/Header.rbw

@@ -3,7 +3,7 @@ require 'fzeet'
 include Fzeet
 
 Application.run { |window| window.dialog = true
-	Header.new(window, :header1, style: :buttons, position: [10, 10, 200, 30]).
+	Header.new(window, :header1, style: :buttons, height: 30, anchor: :ltr).
 		insertItem(0, 'Item1', 100).
 		insertItem(1, 'Item2', 100)
 }

data/examples/Control/ListView.rbw

@@ -3,9 +3,27 @@ require 'fzeet'
 include Fzeet
 
 Application.run { |window| window.dialog = true
-	ListView.new(window, :listview1, style: [:border, :report], position: [10, 10, 200, 200]).
+	ascending = [true, true]
+
+	ListView.new(window, :listview1, style: :report, anchor: :ltrb).
 		tap { |lv| lv.xstyle << :gridlines << :fullrowselect }.
 		insertColumn(0, 'Column1', 100).insertColumn(1, 'Column2', 100).
-		insertItem(0, 0, 'Item1').insertItem(0, 1, 'Item2').
-		insertItem(1, 0, 'Item3').insertItem(1, 1, 'Item4')
+		insertItem(0, 0, 'Item5').insertItem(0, 1, 'Item2').
+		insertItem(1, 0, 'Item1').insertItem(1, 1, 'Item6').
+		insertItem(2, 0, 'Item3').insertItem(2, 1, 'Item4').
+
+		on(:columnclick) { |args|
+			lv, index = args[:sender], args[:index]
+			asc, header = ascending[index], lv.header
+
+			lv.sort(index) { |a, b| (asc) ? a.text <=> b.text : b.text <=> a.text }
+
+			header.count.times { |i|
+				style = (asc) ? :sortup : :sortdown if i == index
+
+				header.modifyItem(i, "Column#{i + 1}", style)
+			}
+
+			ascending[index] = !asc
+		}
 }

data/examples/Control/PropertySheet.rbw

@@ -2,49 +2,12 @@ require 'fzeet'
 
 include Fzeet
 
-pointers, pages = [], 3
-
 Application.run { |window| window.dialog = true
-	psps = Class.new(FFI::Struct) {
-		layout \
-			:array, [Windows::PROPSHEETPAGE, pages]
-	}.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
-
-	pages.times { |i|
-		psp = psps[:array][i]
-
-		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#{i + 1}")).last
-	}
-
-	psh = Windows::PROPSHEETHEADER.new
-
-	psh[:dwSize] = psh.size
-	psh[:dwFlags] = Fzeet.flags(:propsheetpage, :psh_)
-	psh[:hwndParent] = window.handle
-	psh[:hInstance] = Windows.GetModuleHandle(nil)
-	psh[:pszCaption] = pointers.push(FFI::MemoryPointer.from_string('Sheet')).last
-	psh[:nPages] = pages
-	psh[:start][:nStartPage] = 1
-	psh[:pages][:ppsp] = psps
-
 	Button.new(window, :sheet, position: [10, 10, 76, 24]) {
-		Windows.DetonateLastError(-1, :PropertySheet, psh)
+		PropertySheet.new(window)
 	}
 
 	Button.new(window, :wizard, position: [90, 10, 76, 24]) {
-		psh[:dwFlags] |= Windows::PSH_WIZARD
-		Windows.DetonateLastError(-1, :PropertySheet, psh)
-		psh[:dwFlags] &= ~Windows::PSH_WIZARD
+		PropertySheet.new(window, wizard: true)
 	}
-
-	window.on(:destroy) { pointers.each(&:free) }
 }

data/examples/Control/Scintilla.rbw

@@ -0,0 +1,20 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	Scintilla.new(window, :sci1, anchor: :ltrb).tap { |sci|
+		sci.focus = true
+
+		sci.font = 'Courier New'
+		sci.fontSize = 10
+
+		sci.tabWidth = 2
+
+		sci.text = <<-RUBY
+def foo
+	42
+end
+		RUBY
+	}
+}

data/examples/Control/Tab.rbw

@@ -0,0 +1,18 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window| window.dialog = true
+	Tab.new(window, :tab1, anchor: :ltrb).
+		insert('Tab1').
+		insert('Tab2').
+		insert('Tab3').
+
+		on(:selchanging) { |args|
+			args[:result] = 1 if question('Change?').no?
+		}.
+
+		on(:selchange) { |args|
+			message "Tab#{args[:sender].current.index + 1} selected"
+		}
+}

data/examples/Control/TreeView.rbw

@@ -3,26 +3,13 @@ require 'fzeet'
 include Fzeet
 
 Application.run { |window| window.dialog = true
-	TreeView.new(window, :treeview1, style: [:border, :haslines, :linesatroot, :hasbuttons], position: [10, 10, 200, 200])
-
-	tv = window[:treeview1]
-	tvis = Windows::TVINSERTSTRUCT.new
-	tvi = tvis[:item]
-	pointers = []
-
-	tvis[:hInsertAfter] = Windows::TVI_LAST
-	tvi[:mask] = Windows::TVIF_TEXT
-
-	tvis[:hParent] = Windows::TVI_ROOT
-	tvi[:pszText] = pointers.push(FFI::MemoryPointer.from_string('Foo')).last
-	hfoo = tv.sendmsg(:insertitem, 0, tvis.pointer)
-		tvis[:hParent] = hfoo
-		tvi[:pszText] = pointers.push(FFI::MemoryPointer.from_string('Baz')).last
-		hbaz = tv.sendmsg(:insertitem, 0, tvis.pointer)
-
-	tvis[:hParent] = Windows::TVI_ROOT
-	tvi[:pszText] = pointers.push(FFI::MemoryPointer.from_string('Bar')).last
-	hbar = tv.sendmsg(:insertitem, 0, tvis.pointer)
-
-	pointers.each(&:free)
+	TreeView.new(window, :treeview1, style: [:haslines, :linesatroot, :hasbuttons], anchor: :ltrb).
+		append('Foo').
+			append('Baz').
+				append('Quux').
+			parent. # Baz
+		parent. # Foo
+			append('Baz1').
+	root. # window[:treeview1]
+		append('Bar')
 }

data/examples/Layout.rbw

@@ -0,0 +1,23 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	Container.new(window, height: 100, anchor: :ltr).tap { |w|
+		w.style << :border
+
+		Button.new(w, :button1, position: [10, 10, 76, 24])
+	}
+
+	Container.new(window, height: 100, anchor: :lrb).tap { |w|
+		w.style << :border
+
+		Button.new(w, :button2, position: [10, 10, 76, 24])
+
+		Container.new(w, height: 50, anchor: :lrb).tap { |w1|
+			w1.style << :border
+
+			Button.new(w1, :button3, anchor: :ltrb)
+		}
+	}
+}

data/examples/MDI.rbw

@@ -0,0 +1,30 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run(Frame.new) { |window|
+	children, total = [], 0
+
+	window.menu.
+		append(:popup, '&File', PopupMenu.new.
+			append(:string, '&New', :new)
+		)
+
+	window.
+		on(:command, :new) {
+			children << MDIChild.new(window.client, caption: "Child#{total += 1}").
+				on(:close) { |args|
+					args[:result] = nil if args[:sender].question('Close?', buttons: [:yes, :No]).yes?
+				}.
+
+				on(:destroy) { |args| children.delete(args[:sender]) }
+		}.
+
+		on(:close) {
+			window.client.eachChild { |child|
+				# Ask each child if it's ok to close
+			}
+
+			window.dispose
+		}
+}

data/examples/UIRibbon/TabGroup.rbw

@@ -5,19 +5,24 @@ include Fzeet
 Application.run { |window|
 	UIRibbon.new(window).
 		on(:size) {
-			window[:edit1].position = 10, window.ribbon.height + 10, 100, 18
+			window[:edit1].position = 10, window.ribbon.height + 10, 200, 18
 		}
 
 	Edit.new(window, :edit1, caption: '').
-		on(:setfocus) {
+		on(:setfocus) { |args|
 			window.ribbon.uif.SetUICommandProperty(CmdTabGroup1, Windows::UI_PKEY_ContextAvailable, Windows::PROPVARIANT[:int, 1])
-		}.
 
-		on(:killfocus) {
-			window.ribbon.uif.SetUICommandProperty(CmdTabGroup1, Windows::UI_PKEY_ContextAvailable, Windows::PROPVARIANT[:int, 0])
+			args[:sender].cuebanner = 'Now click outside...'
 		}.
 
 		cuebanner = 'Click here...'
 
-	window.on(:lbuttondown) { window[:edit1].focus = false if window[:edit1].focus? }
+	window.on(:lbuttondown) {
+		window.ribbon.uif.SetUICommandProperty(CmdTabGroup1, Windows::UI_PKEY_ContextAvailable, Windows::PROPVARIANT[:int, 0])
+
+		if window[:edit1].focus?
+			window[:edit1].focus = false
+			window[:edit1].cuebanner = 'Click here...'
+		end
+	}
 }

data/lib/fzeet/Application.rb

@@ -51,6 +51,7 @@ module Fzeet
 
 			while msg.get!
 				msg.translate.dispatch unless
+					(window.client && Windows.TranslateMDISysAccel(window.client.handle, msg) != 0) ||
 					accelerators.any? { |table| table.translate?(msg, @window) } ||
 					dialogs.any? { |dialog| dialog.dlgmsg?(msg) }
 			end

data/lib/fzeet/Common.rb

@@ -172,11 +172,11 @@ module Fzeet
 		def self.instance?(handle) @@instances.include?(handle.to_i) end
 		def self.instance(handle) raise "#{self}.#{__method__} failed." unless (instance = @@instances[handle.to_i]); instance end
 
-		def self.wrap(handle, iface)
+		def self.wrap(handle, *ifaces)
 			Object.new.tap { |o|
 				o.instance_variable_set(:@handle, handle)
 				o.class.send(:attr_reader, :handle)
-				o.class.send(:include, iface)
+				ifaces.each { |iface| o.class.send(:include, iface) }
 			}
 		end
 
@@ -300,13 +300,15 @@ module Fzeet
 			holds.each { |hold| Windows.SelectObject(@handle, hold) }
 		end
 
+		def textExtent(text) Windows.DetonateLastError(0, :GetTextExtentPoint, @handle, text, text.length, s = Size.new); s end
+
 		def color; Windows.GetTextColor(@handle) end
 		def color=(color) Windows.SetTextColor(@handle, color) end
 
 		def background; Windows.GetBkColor(@handle) end
 		def background=(background) Windows.SetBkColor(@handle, background) end
 
-		def fillRect(rect, brush) Windows.DetonateLastError(0, :FillRect, @handle, rect, brush.handle); self end
+		def fillRect(rect, brush) Windows.DetonateLastError(0, :FillRect, @handle, rect, (brush.kind_of?(FFI::Pointer)) ? brush : brush.handle); self end
 
 		def text(text, rect, flags = 0) Windows.DetonateLastError(0, :DrawText, @handle, text, -1, rect, Fzeet.flags(flags, :dt_)); self end
 

data/lib/fzeet/Control/Button.rb

@@ -29,6 +29,18 @@ module Fzeet
 		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
 

data/lib/fzeet/Control/Common.rb

@@ -32,11 +32,12 @@ module Fzeet
 				xstyle: [],
 				caption: id.capitalize,
 				style: [],
-				x: Windows::CW_USEDEFAULT,
-				y: Windows::CW_USEDEFAULT,
-				width: Windows::CW_USEDEFAULT,
-				height: Windows::CW_USEDEFAULT,
-				position: []
+				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)
@@ -57,6 +58,13 @@ module Fzeet
 			sendmsg(:setfont, Font.handle, 1)
 
 			handlers.each { |k, v| on(k, &v) }
+
+			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 }
+			else raise ArgumentError, "Bad anchor spec: #{_opts[:anchor]}."
+			end if _opts[:anchor]
 		end
 
 		attr_reader :parent, :id

data/lib/fzeet/Control/Header.rb

@@ -2,6 +2,15 @@ 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
 
@@ -17,18 +26,26 @@ module Fzeet
 		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
 
-		Prefix = {
-			xstyle: [:ws_ex_],
-			style: [:hds_, :ws_],
-			message: [:hdm_, :ccm_, :wm_],
-			notification: [:hdn_, :nm_]
-		}
-
 		def self.crackNotification(args) end
 
 		def initialize(parent, id, opts = {}, &block)

data/lib/fzeet/Control/ListView.rb

@@ -43,6 +43,12 @@ module Fzeet
 			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
 
@@ -51,16 +57,39 @@ module Fzeet
 			lvi[:iSubItem] = j
 			lvi[:pszText] = ptext = FFI::MemoryPointer.from_string(text)
 
-			if j > 0
-				sendmsg(:setitem, 0, lvi.pointer)
-			else
+			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
 	end
 
 	class ListView < Control
@@ -73,14 +102,26 @@ module Fzeet
 			notification: [:lvn_, :nm_]
 		}
 
-		def self.crackNotification(args) end
+		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)
 

data/lib/fzeet/Control/PropertySheet.rb

@@ -0,0 +1,51 @@
+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

@@ -0,0 +1,109 @@
+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
+	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)
+
+			@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