fzeet 0.6.3 → 0.6.4

data/examples/Control/ExplorerBrowser.rbw

@@ -0,0 +1,32 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&Go To', PopupMenu.new.
+			append(:string, '&Back', :back).
+			append(:string, '&Forward', :forward).
+			append(:string, '&Up', :up)
+		)
+
+	(browser = ExplorerBrowser.new(window)).
+		SetOptions(Windows::EBO_SHOWFRAMES)
+
+	def (browser.events).OnNavigationComplete(pidl)
+		FFI::MemoryPointer.new(:char, 4096) { |p|
+			Windows.SHGetPathFromIDList(pidl, p)
+
+			message p.read_string
+		}
+
+		Windows::S_OK
+	end
+
+	browser.goto(:Desktop)
+
+	window.
+		on(:command, :back, &browser.method(:back)).
+		on(:command, :forward, &browser.method(:forward)).
+		on(:command, :up, &browser.method(:up))
+}

data/examples/Control/WebBrowser.rbw

@@ -0,0 +1,33 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.menu = Menu.new.
+		append(:popup, '&View', PopupMenu.new.
+			append(:string, '&Refresh', :refresh)
+		).
+
+		append(:popup, '&Go To', PopupMenu.new.
+			append(:string, '&Back', :back).
+			append(:string, '&Forward', :forward).
+			append(:string, '&Home', :home).
+			append(:string, '&Search', :search)
+		)
+
+	browser = WebBrowser.new(window)
+
+	def (browser.events).NavigateComplete(url)
+		message Windows.WCSTOMBS(url)
+	end
+
+	browser.search
+
+	window.
+		on(:command, :refresh, &browser.method(:refresh)).
+
+		on(:command, :back, &browser.method(:back)).
+		on(:command, :forward, &browser.method(:forward)).
+		on(:command, :home, &browser.method(:home)).
+		on(:command, :search, &browser.method(:search))
+}

data/examples/Dialog/FileDialog.rbw

@@ -24,7 +24,9 @@ Application.run { |window|
 		}.
 
 		on(:command, :openMultiple) {
-			FileOpenDialog.new(flags: :allowmultiselect) { |dialog|
+			FileOpenDialog.new { |dialog|
+				dialog.multiselect = true
+
 				message dialog.paths.join("\n") if dialog.show.ok?
 			}
 		}.

data/examples/MDI.rbw

@@ -3,28 +3,130 @@ require 'fzeet'
 include Fzeet
 
 Application.run(Frame.new) { |window|
-	children, total = [], 0
-
 	window.menu.
 		append(:popup, '&File', PopupMenu.new.
-			append(:string, '&New', :new)
+			append(:string, "&New\tCtrl+N", :new).
+			append(:string, "&Open...\tCtrl+O", :open).
+			append(:string, "&Save\tCtrl+S", :save).
+			append(:string, "Save &As...\tCtrl+Shift+S", :saveAs)
 		)
 
+	Application.accelerators << AcceleratorTable.new(
+		[:control, :n, :new],
+		[:control, :o, :open],
+		[:control, :s, :save],
+		[[:control, :shift], :s, :saveAs]
+	)
+
 	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?
-				}.
+			child = MDIChild.new(window.client, caption: 'Untitled')
+
+			Scintilla.new(child, :sci, style: :border, position: child.rect.to_a, anchor: :ltrb)
+
+			child[:sci].focus = true
+
+			child[:sci].font = 'Courier New'
+			child[:sci].fontSize = 10
+
+			child[:sci].tabWidth = 2
+
+			child.on(:close) { |args|
+				if args[:sender][:sci].dirty?
+					answer = args[:sender].question(%Q{
+File not saved:
+  #{args[:sender].text}
+
+Press Yes to save it and close the window
+Press No to close the window without saving
+Press Cancel to leave the window open
+					}, buttons: [:yes, :no, :Cancel], icon: :warning)
+
+					window.sendmsg(:command, Command[:save]) if answer.yes?
+
+					args[:result] = nil unless answer.cancel?
+				else
+					args[:result] = nil
+				end
+			}
+		}.
+
+		on(:command, :open) {
+			((Windows::WINVER.AtLeastWindowsVista?) ? ShellFileOpenDialog : FileOpenDialog).new { |dialog|
+				dialog.multiselect = true
+
+				next unless dialog.show.ok?
+
+				dialog.paths.each { |path|
+					window.sendmsg(:command, Command[:new])
 
-				on(:destroy) { |args| children.delete(args[:sender]) }
+					child = window.activeChild
+
+					child.text, child[:sci].text = path, File.read(path)
+
+					child[:sci].toggle(:dirty).sendmsg(:emptyundobuffer)
+				}
+			}
+		}.
+
+		on(:command, :saveAs) {
+			((Windows::WINVER.AtLeastWindowsVista?) ? ShellFileSaveDialog : FileSaveDialog).new { |dialog|
+				next unless dialog.show.ok?
+
+				child = window.activeChild
+
+				File.open(child.text = dialog.path, 'w') { |f| f << child[:sci].text; child[:sci].dirty = false }
+			}
+		}.
+
+		on(:command, :save) {
+			child = window.activeChild
+
+			(child.text == 'Untitled') ?
+				window.sendmsg(:command, Command[:saveAs]) :
+				File.open(child.text, 'w') { |f| f << child[:sci].text; child[:sci].dirty = false }
+		}.
+
+		on(:command, :saveAll) {
+			window.client.eachChild { |child|
+				next unless child.kind_of?(MDIChild)
+
+				window.
+					activate(child).
+					sendmsg(:command, Command[:save])
+			}
+		}.
+
+		on(:initmenupopup) {
+			child = window.activeChild
+
+			[:save, :saveAs].each { |command| window.menu[command].enabled = !child.nil? }
 		}.
 
 		on(:close) {
+			dirties = []
+
 			window.client.eachChild { |child|
-				# Ask each child if it's ok to close
+				next unless child.kind_of?(MDIChild)
+
+				dirties << child if child[:sci].dirty?
 			}
 
-			window.dispose
+			if dirties.length > 0
+				answer = window.question(%Q{
+File#{(dirties.length > 1) ? 's' : ''} not saved:
+  #{dirties.map(&:text).join("\n  ")}
+
+Press Yes to save #{(dirties.length > 1) ? 'them' : 'it'} and close the application
+Press No to close the application without saving
+Press Cancel to leave the application open
+				}, buttons: [:yes, :no, :Cancel], icon: :warning)
+
+				window.sendmsg(:command, Command[:saveAll]) if answer.yes?
+
+				window.dispose unless answer.cancel?
+			else
+				window.dispose
+			end
 		}
 }

data/examples/Raw/UIRibbon/Command.rbw

@@ -2,44 +2,44 @@ require 'fzeet'
 
 include Fzeet::Windows
 
-def onItem1(*args)
-	Fzeet.message __method__
+Fzeet::Application.run { |window|
+	def onItem1(*args)
+		Fzeet.message __method__
 
-	UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
-	UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
-end
+		UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
+		UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
+	end
 
-def onButton1(*args)
-	Fzeet.message __method__
+	def onButton1(*args)
+		Fzeet.message __method__
 
-	UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
-	UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
-end
+		UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
+		UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
+	end
 
-UICH = UICommandHandler.new
+	UICH = UICommandHandler.new
 
-def UICH.Execute(*args)
-	case args[0]
-	when CmdItem1
-		onItem1(*args)
-	when CmdButton1
-		onButton1(*args)
-	end
+	def UICH.Execute(*args)
+		case args[0]
+		when CmdItem1
+			onItem1(*args)
+		when CmdButton1
+			onButton1(*args)
+		end
 
-	S_OK
-end
+		S_OK
+	end
 
-UIA = UIApplication.new
+	UIA = UIApplication.new
 
-def UIA.OnCreateUICommand(*args)
-	UICH.QueryInterface(UICH.class::IID, args[-1])
+	def UIA.OnCreateUICommand(*args)
+		UICH.QueryInterface(UICH.class::IID, args[-1])
 
-	S_OK
-end
+		S_OK
+	end
 
-UIF = UIFramework.new
+	UIF = UIFramework.new
 
-Fzeet::Application.run { |window|
 	UIF.Initialize(window.handle, UIA)
 	UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
 

data/examples/Raw/UIRibbon/Minimal.rbw

@@ -2,32 +2,32 @@ require 'fzeet'
 
 include Fzeet::Windows
 
-def onButton1(*args)
-	Fzeet.message __method__
-end
+Fzeet::Application.run { |window|
+	def onButton1(*args)
+		Fzeet.message __method__
+	end
 
-UICH = UICommandHandler.new
+	UICH = UICommandHandler.new
 
-def UICH.Execute(*args)
-	case args[0]
-	when CmdButton1
-		onButton1(*args)
-	end
+	def UICH.Execute(*args)
+		case args[0]
+		when CmdButton1
+			onButton1(*args)
+		end
 
-	S_OK
-end
+		S_OK
+	end
 
-UIA = UIApplication.new
+	UIA = UIApplication.new
 
-def UIA.OnCreateUICommand(*args)
-	UICH.QueryInterface(UICH.class::IID, args[-1])
+	def UIA.OnCreateUICommand(*args)
+		UICH.QueryInterface(UICH.class::IID, args[-1])
 
-	S_OK
-end
+		S_OK
+	end
 
-UIF = UIFramework.new
+	UIF = UIFramework.new
 
-Fzeet::Application.run { |window|
 	UIF.Initialize(window.handle, UIA)
 	UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
 

data/lib/fzeet/Control/Common.rb

@@ -60,9 +60,24 @@ module Fzeet
 			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 }
+			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

data/lib/fzeet/Control/ExplorerBrowser.rb

@@ -0,0 +1,66 @@
+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
+
+				def OnNavigationPending(*args)
+					Windows::S_OK
+				end
+
+				def OnViewCreated(*args)
+					Windows::S_OK
+				end
+
+				def OnNavigationComplete(*args)
+					Windows::S_OK
+				end
+
+				def OnNavigationFailed(*args)
+					Windows::S_OK
+				end
+			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
+
+		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/Scintilla.rb

@@ -39,6 +39,9 @@ module Fzeet
 
 		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
@@ -88,6 +91,11 @@ module Fzeet
 		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
 

data/lib/fzeet/Control/WebBrowser.rb

@@ -0,0 +1,174 @@
+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
+
+				bstrs = []
+
+				params = Class.new(FFI::Struct) {
+					layout \
+						:array, [Windows::PARAMDATA, 1]
+				}.new
+
+				param1 = params[:array][0]
+
+				param1[:szName] = bstrs.push(Windows::SysAllocString("URL\0".encode('utf-16le'))).last
+				param1[:vt] = Windows::VT_BSTR
+
+				methods = Class.new(FFI::Struct) {
+					layout \
+						:array, [Windows::METHODDATA, 1]
+				}.new
+
+				method1 = methods[:array][0]
+
+				method1[:szName] = bstrs.push(Windows::SysAllocString("NavigateComplete\0".encode('utf-16le'))).last
+				method1[:ppdata] = params[:array]
+				method1[:dispid] = Windows::DISPID_NAVIGATECOMPLETE
+				method1[:iMeth] = 8
+				method1[:cc] = Windows::CC_STDCALL
+				method1[:cArgs] = 1
+				method1[:wFlags] = Windows::DISPATCH_METHOD
+				method1[:vtReturn] = Windows::VT_EMPTY
+
+				interface = Windows::INTERFACEDATA.new
+
+				interface[:pmethdata] = methods[:array]
+				interface[:cMembers] = 1
+
+				FFI::MemoryPointer.new(:pointer) { |pinfo|
+					Windows.DetonateHresult(:CreateDispTypeInfo, interface, Windows.GetSystemDefaultLCID, pinfo)
+
+					TypeInfo = pinfo.read_pointer
+				}
+
+				bstrs.each { |bstr| Windows.SysFreeString(bstr) }
+
+				def Invoke(dispid, *rest)
+					return Windows::E_NOTIMPL unless dispid == Windows::DISPID_NAVIGATECOMPLETE
+
+					Windows.DetonateHresult(:DispInvoke, self, TypeInfo, dispid, *rest[2..-1])
+
+					Windows::S_OK
+				end
+			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
+
+		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
+	end
+end

data/lib/fzeet/Control.rb

@@ -15,3 +15,5 @@ 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/Dialog/FileDialog.rb

@@ -31,7 +31,7 @@ module Fzeet
 			@struct[:hInstance] = Windows.GetModuleHandle(nil)
 			@struct[:lpstrFile] = @buf = FFI::MemoryPointer.new(:char, 4096)
 			@struct[:nMaxFile] = @buf.size
-			@struct[:Flags] = Fzeet.flags([:enablehook, :explorer, :enablesizing] + [*_opts[:flags]], :ofn_)
+			@struct[:Flags] = Fzeet.flags([:enablehook, :explorer, :enablesizing, :overwriteprompt] + [*_opts[:flags]], :ofn_)
 			@struct[:lCustData] = object_id
 			@struct[:lpfnHook] = HookProc
 
@@ -70,6 +70,12 @@ module Fzeet
 
 			result.map! { |name| "#{path}\\#{name}" }
 		end
+
+		def multiselect=(multiselect)
+			(multiselect) ?
+				@struct[:Flags] |= Windows::OFN_ALLOWMULTISELECT :
+				@struct[:Flags] &= ~Windows::OFN_ALLOWMULTISELECT
+		end
 	end
 
 	class FileSaveDialog < FileDialog

data/lib/fzeet/Dialog/ShellFileDialog.rb

@@ -59,6 +59,18 @@ module Fzeet
 				Release()
 			end if block_given?
 		end
+
+		def multiselect=(multiselect)
+			if multiselect
+				SetOptions(Windows::FOS_ALLOWMULTISELECT)
+			else
+				opts = nil
+
+				FFI::MemoryPointer.new(:pointer) { |p| GetOptions(p); opts = p.get_ulong(0) }
+
+				SetOptions(opts & ~Windows::FOS_ALLOWMULTISELECT)
+			end
+		end
 	end
 
 	class ShellFileSaveDialog < Windows::FileSaveDialog