fzeet 0.3.0 → 0.4.0

data/examples/Command.rbw

@@ -0,0 +1,5 @@
+require 'fzeet'
+
+include Fzeet
+
+message 'TODO...'

data/examples/Hello.rbw

@@ -0,0 +1,5 @@
+require 'fzeet'
+
+include Fzeet
+
+message 'Hello, world!'

data/examples/LifeCycle.rbw

@@ -0,0 +1,18 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.
+		on(:create) { |args|
+			args[:result] = -1 if question('Create?').no?
+		}.
+
+		on(:close) {
+			window.dispose if question('Close?', buttons: [:yes, :No]).yes?
+		}.
+
+		on(:destroy) {
+			message 'on(:destroy)'
+		}
+}

data/examples/LifeCycle1.rbw

@@ -0,0 +1,27 @@
+require 'fzeet'
+
+include Fzeet
+
+class LifeCycle1Window < Window
+	def initialize
+		on :create, &method(:onCreate)
+		on :close, &method(:onClose)
+		on :destroy, &method(:onDestroy)
+
+		super
+	end
+
+	def onCreate(args)
+		args[:result] = -1 if question('Create?').no?
+	end
+
+	def onClose(args)
+		dispose if question('Close?', buttons: [:yes, :No]).yes?
+	end
+
+	def onDestroy(args)
+		message __method__
+	end
+end
+
+Application.run(LifeCycle1Window.new)

data/examples/LifeCycle2.rbw

@@ -0,0 +1,15 @@
+require 'fzeet'
+
+Fzeet::Application.run do |window|
+	window.on :create do |args|
+		args[:result] = -1 if Fzeet.question('Create?').no?
+	end
+
+	window.on :close do
+		window.dispose if Fzeet.question('Close?', buttons: [:yes, :No]).yes?
+	end
+
+	window.on :destroy do
+		Fzeet.message 'on(:destroy)'
+	end
+end

data/examples/MessageBox.rbw

@@ -0,0 +1,11 @@
+require 'fzeet'
+
+include Fzeet
+
+message 'Foo'
+message 'Foo', caption: 'Bar', buttons: [:yes, :No], icon: :error
+message message('Foo').ok?
+
+question 'Foo'
+question 'Foo', caption: 'Bar', buttons: [:yes, :No], icon: :exclamation
+message question('Foo').no?

data/examples/Minimal.rbw

@@ -0,0 +1,5 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run

data/lib/fzeet/Accelerator.rb

@@ -0,0 +1,7 @@
+require_relative 'common'
+
+module Fzeet
+	class AcceleratorTable < Handle
+
+	end
+end

data/lib/fzeet/Application.rb

@@ -0,0 +1,38 @@
+require_relative 'common'
+
+module Fzeet
+	class Application
+		@name = File.basename($0, '*.rbw')
+		@version = '0.1.0'
+		@authors = []
+
+		@window = nil
+
+		class << self
+			attr_accessor :name, :version, :authors
+			attr_reader :window
+		end
+
+		def self.run(window = nil, &block)
+			return 0 if (@window = window || Window.new(&block)).handle.null?
+
+			@window.on(:destroy) { Windows.PostQuitMessage(0) }
+
+			Windows.ShowWindow(@window.handle, Windows::SW_SHOWNORMAL)
+			Windows.UpdateWindow(@window.handle)
+
+			msg = Windows::MSG.new
+
+			while (get = Windows.GetMessage(msg, nil, 0, 0)) != 0
+				raise 'GetMessage failed.' if get == -1
+
+				Windows.TranslateMessage(msg)
+				Windows.DispatchMessage(msg)
+			end
+
+			msg[:wParam]
+		rescue
+			Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+		end
+	end
+end

data/lib/fzeet/Control.rb

@@ -0,0 +1,7 @@
+require_relative 'common'
+
+module Fzeet
+	class Control < Handle
+
+	end
+end

data/lib/fzeet/Menu.rb

@@ -0,0 +1,15 @@
+require_relative 'common'
+
+module Fzeet
+	class MenuItem
+
+	end
+
+	class Menu < Handle
+
+	end
+
+	class PopupMenu < Handle
+
+	end
+end

data/lib/fzeet/Window.rb

@@ -0,0 +1,138 @@
+require_relative 'common'
+
+module Fzeet
+	class Window < Handle
+		WindowProc = FFI::Function.new(:long, [:pointer, :uint, :uint, :long], convention: :stdcall) { |hwnd, uMsg, wParam, lParam|
+			begin
+				if uMsg == Windows::WM_NCCREATE
+					@@instances[hwnd.to_i] = ObjectSpace._id2ref(
+						Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))[:lpCreateParams].to_i
+					)
+
+					@@instances[hwnd.to_i].instance_variable_set(:@handle, hwnd)
+				end
+
+				result = @@instances[hwnd.to_i].windowProc(hwnd, uMsg, wParam, lParam) if @@instances[hwnd.to_i]
+			rescue
+				Fzeet.message %Q{#{$!}\n\n#{$!.backtrace.join("\n")}}, icon: :error
+			ensure
+				if uMsg == Windows::WM_NCDESTROY
+					@@instances.delete(hwnd.to_i)
+				end
+			end
+
+			result || Windows.DefWindowProc(hwnd, uMsg, wParam, lParam)
+		}
+
+		WindowClass = Windows::WNDCLASSEX.new.tap { |wc|
+			wc[:cbSize] = wc.size
+			wc[:lpfnWndProc] = WindowProc
+			wc[:hInstance] = Windows.GetModuleHandle(nil)
+			wc[:hIcon] = Windows.LoadIcon(nil, Windows::IDI_APPLICATION)
+			wc[:hCursor] = Windows.LoadCursor(nil, Windows::IDC_ARROW)
+			wc[:hbrBackground] = FFI::Pointer.new(Windows::COLOR_WINDOW + 1)
+			wc[:lpszClassName] = className = FFI::MemoryPointer.from_string('Fzeet.Window')
+
+			Windows.DetonateLastError(0, :RegisterClassEx, wc) { className.free }
+		}
+
+		def self.crackMessage(hwnd, uMsg, wParam, lParam)
+			window = @@instances[hwnd.to_i]
+
+			args = {
+				hwnd: hwnd,
+				uMsg: uMsg,
+				wParam: wParam,
+				lParam: lParam,
+				result: 0,
+				window: window,
+				sender: window
+			}
+
+			case uMsg
+			when Windows::WM_CREATE
+				args[:cs] = Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))
+			when Windows::WM_NCCREATE
+				args[:result] = 1
+				args[:cs] = Windows::CREATESTRUCT.new(FFI::Pointer.new(lParam))
+			end
+
+			args
+		end
+
+		def initialize(opts = {})
+			_opts = {
+				xstyle: [],
+				caption: Application.name,
+				style: [:overlappedwindow, :clipchildren],
+				x: Windows::CW_USEDEFAULT,
+				y: Windows::CW_USEDEFAULT,
+				width: Windows::CW_USEDEFAULT,
+				height: Windows::CW_USEDEFAULT,
+				parent: nil,
+				menu: nil
+			}
+			badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+			_opts.merge!(opts)
+
+			yield self, _opts if block_given?
+
+			_opts[:xstyle] = _opts[:xstyle].inject(0) { |flags, xstyle| flags |= Windows.const_get("WS_EX_#{xstyle.upcase}") }
+			_opts[:caption] = _opts[:caption].to_s
+			_opts[:style] = _opts[:style].inject(0) { |flags, style| flags |= Windows.const_get("WS_#{style.upcase}") }
+
+			@messages ||= {}
+
+			@processed = [0, 0]
+
+			@handle = Windows.CreateWindowEx(
+				_opts[:xstyle], 'Fzeet.Window', _opts[:caption], _opts[:style],
+				_opts[:x], _opts[:y], _opts[:width], _opts[:height],
+				_opts[:parent] && _opts[:parent].handle, nil, Windows.GetModuleHandle(nil), FFI::Pointer.new(object_id)
+			)
+
+			if @handle.null?
+				raise 'CreateWindowEx failed.' unless [
+					[Windows::WM_NCCREATE, 0], [Windows::WM_CREATE, -1],
+					[Windows::WM_DESTROY, 0], [Windows::WM_NCDESTROY, 0]
+				].include?(@processed)
+			else
+				@parent = _opts[:parent]
+				self.menu = _opts[:menu] if _opts[:menu]
+			end
+		end
+
+		attr_reader :parent
+
+		def dispose; Windows.DestroyWindow(@handle) end
+
+		def windowProc(hwnd, uMsg, wParam, lParam)
+			args, result = nil, nil
+
+			if (handlers = @messages[uMsg])
+				args ||= self.class.crackMessage(hwnd, uMsg, wParam, lParam)
+
+				handlers.each { |handler|
+					handler.call(args)
+
+					result = args[:result]; @processed[0], @processed[1] = uMsg, result
+				}
+			end
+
+			result
+		end
+
+		def onMessage(msg, &block)
+			((@messages ||= {})[Windows.const_get("WM_#{msg.upcase}")] ||= []) << block
+
+			self
+		end
+
+		def on(*args, &block)
+			case args.length
+			when 1; onMessage(*args, &block)
+			else raise ArgumentError
+			end
+		end
+	end
+end

data/lib/fzeet/common.rb

@@ -0,0 +1,72 @@
+require_relative 'windows'
+
+module Fzeet
+	class DialogResult
+		def initialize(id)
+			@id = id
+		end
+
+		attr_reader :id
+
+		Windows.constants.grep(/^ID[A-Z]{2,}$/).each { |c|
+			define_method("#{c[2..-1].downcase}?") {
+				@id == Windows.const_get(c)
+			}
+		}
+	end
+
+	def message(message, opts = {})
+		_opts = {
+			window: Application.window,
+			caption: Application.name,
+			buttons: [:ok],
+			icon: :information
+		}
+		badopts = opts.keys - _opts.keys; raise "Bad option(s): #{badopts.join(', ')}." unless badopts.empty?
+		_opts.merge!(opts)
+
+		defbutton = nil
+		defbutton = if _opts[:buttons].find.with_index { |button, i| defbutton = i + 1; button =~ /^[A-Z]/ }
+			Windows.const_get("MB_DEFBUTTON#{defbutton}")
+		else
+			0
+		end
+
+		flags = Windows.const_get("MB_#{_opts[:buttons].join('').upcase}") |
+			defbutton |
+			Windows.const_get("MB_ICON#{_opts[:icon].upcase}")
+
+		DialogResult.new(
+			Windows.MessageBox(_opts[:window] && _opts[:window].handle, message.to_s, _opts[:caption].to_s, flags)
+		)
+	end
+
+	def question(message, opts = {})
+		opts[:buttons] ||= [:yes, :no]
+		opts[:icon] ||= :question
+
+		message(message, opts)
+	end
+
+	module_function :message, :question
+
+	class Handle
+		@@instances = {}
+
+		def self.instance?(handle) @@instances.include?(handle.to_i) end
+		def self.instance(handle) raise "#{self}.instance failed." unless (instance = @@instances[handle.to_i]); instance end
+
+		def self.wrap(handle, iface)
+			Object.new.tap { |o|
+				o.instance_variable_set(:@handle, handle)
+				o.class.send(:attr_reader, :handle)
+				o.class.send(:include, iface)
+			}
+		end
+
+		attr_reader :handle
+
+		def attach; @@instances[@handle.to_i] = self end
+		def detach; @@instances.delete(@handle.to_i) end
+	end
+end

data/lib/fzeet/windows/kernel.rb

@@ -5,6 +5,18 @@ module Fzeet
 		ffi_lib 'kernel32'
 		ffi_convention :stdcall
 
+		attach_function :GetLastError, [], :ulong
+
+		def DetonateLastError(on, name, *args)
+			raise "#{name} failed (last error #{GetLastError()})." if (failed = [*on].include?(result = send(name, *args)))
+
+			result
+		ensure
+			yield failed if block_given?
+		end
+
+		module_function :DetonateLastError
+
 		class ACTCTX < FFI::Struct
 			layout \
 				:cbSize, :ulong,

data/lib/fzeet/windows/user.rb

@@ -5,6 +5,7 @@ module Fzeet
 		ffi_lib 'user32'
 		ffi_convention :stdcall
 
+		MB_OK = 0x00000000
 		MB_OKCANCEL = 0x00000001
 		MB_YESNOCANCEL = 0x00000003
 		MB_YESNO = 0x00000004
@@ -59,6 +60,7 @@ module Fzeet
 		WS_OVERLAPPED = 0x00000000
 		WS_CHILD = 0x40000000
 		WS_VISIBLE = 0x10000000
+		WS_CLIPCHILDREN = 0x02000000
 		WS_CAPTION = 0x00C00000
 		WS_SYSMENU = 0x00080000
 		WS_THICKFRAME = 0x00040000
@@ -130,6 +132,8 @@ module Fzeet
 		WM_DESTROY = 0x0002
 		WM_CLOSE = 0x0010
 		WM_SETFONT = 0x0030
+		WM_NCCREATE = 0x0081
+		WM_NCDESTROY = 0x0082
 		WM_COMMAND = 0x0111
 		WM_APP = 0x8000
 

data/lib/fzeet/windows.rb

@@ -37,13 +37,13 @@ module Fzeet
 			ac[:cbSize] = ac.size
 			ac[:lpSource] = source = FFI::MemoryPointer.from_string(File.expand_path(manifest))
 
-			raise 'CreateActCtx failed.' if (COMMON_CONTROLS_ACTCTX[:handle] = CreateActCtx(ac).tap { source.free }) == INVALID_HANDLE_VALUE
+			COMMON_CONTROLS_ACTCTX[:handle] = DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx, ac) { source.free }
 
-			if ActivateActCtx(COMMON_CONTROLS_ACTCTX[:handle], COMMON_CONTROLS_ACTCTX[:cookie]) == 0
-				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]); COMMON_CONTROLS_ACTCTX[:handle] = INVALID_HANDLE_VALUE
+			DetonateLastError(0, :ActivateActCtx, COMMON_CONTROLS_ACTCTX[:handle], COMMON_CONTROLS_ACTCTX[:cookie]) { |failed|
+				next unless failed
 
-				raise 'ActivateActCtx failed.'
-			end
+				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]); COMMON_CONTROLS_ACTCTX[:handle] = INVALID_HANDLE_VALUE
+			}
 
 			COMMON_CONTROLS_ACTCTX[:activated] = true
 		end

data/lib/fzeet.rb

@@ -0,0 +1,7 @@
+require_relative 'fzeet/Window'
+require_relative 'fzeet/Application'
+require_relative 'fzeet/Menu'
+require_relative 'fzeet/Accelerator'
+require_relative 'fzeet/Control'
+
+Fzeet::Windows.EnableVisualStyles

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: fzeet
 version: !ruby/object:Gem::Version 
-  hash: 19
+  hash: 15
   prerelease: false
   segments: 
   - 0
-  - 3
+  - 4
   - 0
-  version: 0.3.0
+  version: 0.4.0
 platform: ruby
 authors: 
 - Radoslav Peev
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-07 00:00:00 +03:00
+date: 2010-08-09 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -48,11 +48,25 @@ files:
 - lib/fzeet/windows/kernel.rb
 - lib/fzeet/windows/libc.rb
 - lib/fzeet/windows/user.rb
+- lib/fzeet/Accelerator.rb
+- lib/fzeet/Application.rb
+- lib/fzeet/common.rb
+- lib/fzeet/Control.rb
+- lib/fzeet/Menu.rb
+- lib/fzeet/Window.rb
 - lib/fzeet/windows.rb
+- lib/fzeet.rb
 - examples/Raw/Command.rbw
 - examples/Raw/Hello.rbw
 - examples/Raw/LifeCycle.rbw
 - examples/Raw/Minimal.rbw
+- examples/Command.rbw
+- examples/Hello.rbw
+- examples/LifeCycle.rbw
+- examples/LifeCycle1.rbw
+- examples/LifeCycle2.rbw
+- examples/MessageBox.rbw
+- examples/Minimal.rbw
 - LICENSE
 has_rdoc: true
 homepage: