fzeet 0.5.3 → 0.6.0

data/examples/UIRibbon/Control/Button.xml

@@ -0,0 +1,247 @@
+<?xml version='1.0' encoding='utf-8' ?>
+<Application xmlns='http://schemas.microsoft.com/windows/2009/Ribbon'>
+	<Application.Commands>
+<Command Name='cmdAppMenu' />
+
+<Command Name='cmdQAT' />
+
+<Command Name='cmdTab1' LabelTitle='Button' />
+	<Command Name='cmdTab1Group1' LabelTitle='&amp;Button' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/go-next-small.bmp</Image>
+			<Image MinDPI='120'>../../res/go-next.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/go-next.bmp</Image>
+			<Image MinDPI='120'>../../res/go-next-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group2' LabelTitle='&amp;DropDownButton' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/go-down-small.bmp</Image>
+			<Image MinDPI='120'>../../res/go-down.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/go-down.bmp</Image>
+			<Image MinDPI='120'>../../res/go-down-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group3' LabelTitle='&amp;SplitButton' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/go-jump-small.bmp</Image>
+			<Image MinDPI='120'>../../res/go-jump.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/go-jump.bmp</Image>
+			<Image MinDPI='120'>../../res/go-jump-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group4' LabelTitle='&amp;ToggleButton' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/audio-volume-muted-small.bmp</Image>
+			<Image MinDPI='120'>../../res/audio-volume-muted.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/audio-volume-muted.bmp</Image>
+			<Image MinDPI='120'>../../res/audio-volume-muted-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group5' LabelTitle='&amp;CheckBox' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/media-playback-pause-small.bmp</Image>
+			<Image MinDPI='120'>../../res/media-playback-pause.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/media-playback-pause.bmp</Image>
+			<Image MinDPI='120'>../../res/media-playback-pause-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+
+<Command Name='cmdButton1' LabelTitle='&amp;Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+	<Command.SmallImages>
+		<Image>../../res/go-next-small.bmp</Image>
+		<Image MinDPI='120'>../../res/go-next.bmp</Image>
+	</Command.SmallImages>
+	<Command.LargeImages>
+		<Image>../../res/go-next.bmp</Image>
+		<Image MinDPI='120'>../../res/go-next-big.bmp</Image>
+	</Command.LargeImages>
+</Command>
+<Command Name='cmdDrop1' LabelTitle='&amp;Drop1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+	<Command.SmallImages>
+		<Image>../../res/go-down-small.bmp</Image>
+		<Image MinDPI='120'>../../res/go-down.bmp</Image>
+	</Command.SmallImages>
+	<Command.LargeImages>
+		<Image>../../res/go-down.bmp</Image>
+		<Image MinDPI='120'>../../res/go-down-big.bmp</Image>
+	</Command.LargeImages>
+</Command>
+<Command Name='cmdSplit1' LabelTitle='&amp;Split1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+	<Command.SmallImages>
+		<Image>../../res/go-jump-small.bmp</Image>
+		<Image MinDPI='120'>../../res/go-jump.bmp</Image>
+	</Command.SmallImages>
+	<Command.LargeImages>
+		<Image>../../res/go-jump.bmp</Image>
+		<Image MinDPI='120'>../../res/go-jump-big.bmp</Image>
+	</Command.LargeImages>
+</Command>
+<Command Name='cmdToggle1' LabelTitle='&amp;Toggle1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+	<Command.SmallImages>
+		<Image>../../res/audio-volume-muted-small.bmp</Image>
+		<Image MinDPI='120'>../../res/audio-volume-muted.bmp</Image>
+	</Command.SmallImages>
+	<Command.LargeImages>
+		<Image>../../res/audio-volume-muted.bmp</Image>
+		<Image MinDPI='120'>../../res/audio-volume-muted-big.bmp</Image>
+	</Command.LargeImages>
+</Command>
+<Command Name='cmdCheck1' LabelTitle='&amp;Check1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+	<Command.SmallImages>
+		<Image>../../res/media-playback-pause-small.bmp</Image>
+		<Image MinDPI='120'>../../res/media-playback-pause.bmp</Image>
+	</Command.SmallImages>
+	<Command.LargeImages>
+		<Image>../../res/media-playback-pause.bmp</Image>
+		<Image MinDPI='120'>../../res/media-playback-pause-big.bmp</Image>
+	</Command.LargeImages>
+</Command>
+
+<Command Name='cmdContextMap1' />
+	</Application.Commands>
+
+	<Application.Views>
+		<Ribbon>
+			<Ribbon.ApplicationMenu>
+<ApplicationMenu CommandName='cmdAppMenu'>
+	<MenuGroup Class='MajorItems'>
+		<Button CommandName='cmdButton1' />
+		<DropDownButton CommandName='cmdDrop1'>
+			<MenuGroup Class='MajorItems'>
+				<Button CommandName='cmdButton1' />
+			</MenuGroup>
+		</DropDownButton>
+		<SplitButton>
+			<SplitButton.ButtonItem>
+				<Button CommandName='cmdSplit1' />
+			</SplitButton.ButtonItem>
+			<SplitButton.MenuGroups>
+				<MenuGroup Class='MajorItems'>
+					<ToggleButton CommandName='cmdToggle1' />
+					<CheckBox CommandName='cmdCheck1' />
+				</MenuGroup>
+			</SplitButton.MenuGroups>
+		</SplitButton>
+		<!--<ToggleButton CommandName='cmdToggle1' />
+		<CheckBox CommandName='cmdCheck1' />-->
+	</MenuGroup>
+</ApplicationMenu>
+			</Ribbon.ApplicationMenu>
+
+			<Ribbon.QuickAccessToolbar>
+<QuickAccessToolbar CommandName='cmdQAT'>
+	<QuickAccessToolbar.ApplicationDefaults>
+		<Button CommandName='cmdButton1' />
+	</QuickAccessToolbar.ApplicationDefaults>
+</QuickAccessToolbar>
+			</Ribbon.QuickAccessToolbar>
+
+			<Ribbon.Tabs>
+<Tab CommandName='cmdTab1'>
+	<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
+		<Button CommandName='cmdButton1' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group2' SizeDefinition='OneButton'>
+		<DropDownButton CommandName='cmdDrop1'>
+			<MenuGroup>
+				<Button CommandName='cmdButton1' />
+			</MenuGroup>
+		</DropDownButton>
+	</Group>
+
+	<Group CommandName='cmdTab1Group3' SizeDefinition='OneButton'>
+		<SplitButton>
+			<SplitButton.ButtonItem>
+				<Button CommandName='cmdSplit1' />
+			</SplitButton.ButtonItem>
+			<SplitButton.MenuGroups>
+				<MenuGroup>
+					<ToggleButton CommandName='cmdToggle1' />
+					<CheckBox CommandName='cmdCheck1' />
+				</MenuGroup>
+			</SplitButton.MenuGroups>
+		</SplitButton>
+	</Group>
+
+	<Group CommandName='cmdTab1Group4' SizeDefinition='OneButton'>
+		<ToggleButton CommandName='cmdToggle1' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group5'>
+		<CheckBox CommandName='cmdCheck1' />
+	</Group>
+</Tab>
+			</Ribbon.Tabs>
+		</Ribbon>
+
+		<ContextPopup>
+			<ContextPopup.MiniToolbars>
+<MiniToolbar Name='miniToolbar1'>
+	<MenuGroup>
+		<Button CommandName='cmdButton1' />
+		<DropDownButton CommandName='cmdDrop1'>
+			<MenuGroup>
+				<Button CommandName='cmdButton1' />
+			</MenuGroup>
+		</DropDownButton>
+		<SplitButton>
+			<SplitButton.ButtonItem>
+				<Button CommandName='cmdSplit1' />
+			</SplitButton.ButtonItem>
+			<SplitButton.MenuGroups>
+				<MenuGroup>
+					<ToggleButton CommandName='cmdToggle1' />
+					<CheckBox CommandName='cmdCheck1' />
+				</MenuGroup>
+			</SplitButton.MenuGroups>
+		</SplitButton>
+		<ToggleButton CommandName='cmdToggle1' />
+		<CheckBox CommandName='cmdCheck1' />
+	</MenuGroup>
+</MiniToolbar>
+			</ContextPopup.MiniToolbars>
+
+			<ContextPopup.ContextMenus>
+<ContextMenu Name='contextMenu1'>
+	<MenuGroup>
+		<Button CommandName='cmdButton1' />
+		<DropDownButton CommandName='cmdDrop1'>
+			<MenuGroup>
+				<Button CommandName='cmdButton1' />
+			</MenuGroup>
+		</DropDownButton>
+		<SplitButton>
+			<SplitButton.ButtonItem>
+				<Button CommandName='cmdSplit1' />
+			</SplitButton.ButtonItem>
+			<SplitButton.MenuGroups>
+				<MenuGroup>
+					<ToggleButton CommandName='cmdToggle1' />
+					<CheckBox CommandName='cmdCheck1' />
+				</MenuGroup>
+			</SplitButton.MenuGroups>
+		</SplitButton>
+		<ToggleButton CommandName='cmdToggle1' />
+		<CheckBox CommandName='cmdCheck1' />
+	</MenuGroup>
+</ContextMenu>
+			</ContextPopup.ContextMenus>
+
+			<ContextPopup.ContextMaps>
+<ContextMap CommandName='cmdContextMap1' MiniToolbar='miniToolbar1' ContextMenu='contextMenu1' />
+			</ContextPopup.ContextMaps>
+		</ContextPopup>
+	</Application.Views>
+</Application>

data/examples/UIRibbon/Size.rbw

@@ -0,0 +1,13 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run(View.new) { |window|
+	UIRibbon.new(window, 'Minimal').
+		on(:size) { window.invalidate }.
+		on(CmdButton1) { message 'on(CmdButton1)' }.
+
+	window.on(:draw, Control::Font) { |dc|
+		dc.sms 'The quick brown fox jumps over the lazy dog. 1234567890'
+	}
+}

data/lib/fzeet/Application.rb

@@ -11,10 +11,11 @@ module Fzeet
 		@window = nil
 		@accelerators = []
 		@dialogs = []
+		@images = {}
 
 		class << self
 			attr_accessor :name, :version, :authors, :quitWhenMainWindowCloses
-			attr_reader :window, :accelerators, :dialogs
+			attr_reader :window, :accelerators, :dialogs, :images
 		end
 
 		def self.window=(window)
@@ -25,7 +26,7 @@ module Fzeet
 
 		def self.run(windowOrOpts = {}, &block)
 			@window = case windowOrOpts
-			when Window; windowOrOpts.tap { |window| block.call(window) if block }
+			when BasicWindow; windowOrOpts.tap { |window| block.call(window) if block }
 			when Hash
 				if windowOrOpts[:deferCreateWindow].tap { windowOrOpts.delete_if { |k, v| k == :deferCreateWindow } }
 					Window.new(windowOrOpts, &block)
@@ -56,6 +57,7 @@ module Fzeet
 
 		def self.quit(code = 0)
 			accelerators.each(&:dispose)
+			images.values.each(&:dispose)
 
 			Windows.PostQuitMessage(code)
 		end

data/lib/fzeet/Common.rb

@@ -45,7 +45,17 @@ module Fzeet
 	module_function :constant, :flags
 
 	module Toggle
-		def toggle(what) send("#{what}=", !send("#{what}?")); self end
+		def toggle(what)
+			send("#{what}=", !send("#{what}?"))
+
+			begin
+				yield self
+			ensure
+				toggle(what)
+			end if block_given?
+
+			self
+		end
 	end
 
 	class Command
@@ -111,7 +121,11 @@ module Fzeet
 		message(message, opts)
 	end
 
-	module_function :message, :question
+	def shell(name, args = nil, dir = nil, verb = 'open')
+		raise 'ShellExecute failed.' unless Windows.ShellExecute(nil, verb, name, args, dir, Windows::SW_NORMAL).to_i > 32
+	end
+
+	module_function :message, :question, :shell
 
 	class Point < Windows::POINT
 		def initialize(x = 0, y = 0) self[:x], self[:y] = x, y end
@@ -266,6 +280,34 @@ module Fzeet
 	end
 
 	module DCMethods
+		def select(*objects)
+			holds = []
+
+			objects.each { |object|
+				holds << Windows.DetonateLastError(FFI::Pointer::NULL, :SelectObject, @handle, object.handle)
+			}
+
+			yield self
+
+			self
+		ensure
+			holds.each { |hold| Windows.SelectObject(@handle, hold) }
+		end
+
+		def fillRect(rect, brush) Windows.DetonateLastError(0, :FillRect, @handle, rect, brush.handle); self end
+
+		def text(text, rect, flags = 0) Windows.DetonateLastError(0, :DrawText, @handle, text, -1, rect, Fzeet.flags(flags, :dt_)); self end
+
+		def sms(message)
+			r = window.rect
+
+			r[:top] += window.ribbon.height if window.ribbon
+
+			text(message, r, [:singleline, :center, :vcenter])
+
+			self
+		end
+
 		def move(x, y) Windows.DetonateLastError(0, :MoveToEx, @handle, x, y, nil); self end
 		def line(x, y) Windows.DetonateLastError(0, :LineTo, @handle, x, y); self end
 	end

data/lib/fzeet/Control/Button.rb

@@ -1,7 +1,24 @@
 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_],

data/lib/fzeet/Control/ComboBox.rb

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

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

@@ -36,6 +36,7 @@ module Fzeet
 				y: Windows::CW_USEDEFAULT,
 				width: Windows::CW_USEDEFAULT,
 				height: Windows::CW_USEDEFAULT,
+				position: []
 			}
 			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
 			_opts.merge!(opts)
@@ -43,6 +44,7 @@ module Fzeet
 			_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],

data/lib/fzeet/Control/DateTimePicker.rb

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

@@ -0,0 +1,53 @@
+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/Header.rb

@@ -0,0 +1,46 @@
+require_relative 'Common'
+
+module Fzeet
+	module HeaderMethods
+		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
+	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)
+			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