fzeet 0.5.0 → 0.5.1

data/examples/Dialog/DialogApplication.rbw

@@ -8,7 +8,9 @@ Dialog.new(nil, modal: true, style: [:overlappedwindow, :center]) { |args|
 	dialog.menu = Menu.new.
 		append(:popup, 'Menu&1', PopupMenu.new.
 			append(:string, 'Item&1', :item1).
+
 			append(:separator).
+
 			append(:string, 'E&xit', :exit)
 		)
 
@@ -17,6 +19,7 @@ Dialog.new(nil, modal: true, style: [:overlappedwindow, :center]) { |args|
 	dialog.
 		on(:command, :exit) { dialog.end(:ok) }.
 		on(:command, :cancel) { dialog.end(:cancel) if question('Close?').yes? }.
+
 		on(:command, :item1) { message 'on(:command, :item1)' }.
 		on(:command, :button1) { message 'on(:command, :button1)' }
 }

data/examples/Style.rbw

@@ -0,0 +1,19 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	window.style >> :thickframe << :hscroll << :vscroll
+
+	window.reframe
+
+	window.menu = Menu.new.
+		append(:popup, '&View', PopupMenu.new.
+			append(:string, 'Always on &Top', :alwaysOnTop)
+		)
+
+	window.on(:command, :alwaysOnTop) {
+		window.toggle(:topmost).
+			menu[:alwaysOnTop].toggle(:checked)
+	}
+}

data/lib/fzeet/UIRibbon.rb

@@ -25,6 +25,12 @@ module Fzeet
 
 			@window = window
 
+			@window.instance_variable_set(:@ribbon, self)
+
+			class << @window
+				attr_reader :ribbon
+			end
+
 			@uich = Windows::UICommandHandler.new
 
 			@uich.instance_variable_set(:@ribbon, self)

data/lib/fzeet/WindowMethods.rb

@@ -4,6 +4,63 @@ module Fzeet
 	module WindowMethods
 		include Toggle
 
+		class Long
+			def initialize(window) @window = window end
+
+			def [](c)
+				Windows.SetLastError(0)
+
+				Windows.GetWindowLong(@window.handle, Fzeet.constant(c, :gwl_, :gwlp_, :dwl_)).tap { |result|
+					raise 'GetWindowLong failed.' if result == 0 && Windows.GetLastError() != 0
+				}
+			end
+
+			def []=(c, l)
+				Windows.SetLastError(0)
+
+				Windows.SetWindowLong(@window.handle, Fzeet.constant(c, :gwl_, :gwlp_, :dwl_), l).tap { |result|
+					raise 'SetWindowLong failed.' if result == 0 && Windows.GetLastError() != 0
+				}
+			end
+		end
+
+		def long; Long.new(self) end
+
+		class Style
+			def initialize(window) @window = window end
+
+			def <<(style) @window.long[:style] = @window.long[:style] | Fzeet.constant(style, *@window.class::Prefix[:style]); self end
+			def >>(style) @window.long[:style] = @window.long[:style] & ~Fzeet.constant(style, *@window.class::Prefix[:style]); self end
+
+			def toggle(what) send((@window.style?(what)) ? :>> : :<<, what); self end
+		end
+
+		class ExStyle
+			def initialize(window) @window = window end
+
+			def <<(xstyle) @window.long[:exstyle] = @window.long[:exstyle] | Fzeet.constant(xstyle, *@window.class::Prefix[:xstyle]); self end
+			def >>(xstyle) @window.long[:exstyle] = @window.long[:exstyle] & ~Fzeet.constant(xstyle, *@window.class::Prefix[:xstyle]); self end
+
+			def toggle(what) send((@window.xstyle?(what)) ? :>> : :<<, what); self end
+		end
+
+		def style?(style) (long[:style] & (style = Fzeet.constant(style, *self.class::Prefix[:style]))) == style end
+		def style; Style.new(self) end
+
+		def xstyle?(xstyle) (long[:exstyle] & (xstyle = Fzeet.constant(xstyle, *self.class::Prefix[:xstyle]))) == xstyle end
+		def xstyle; ExStyle.new(self) end
+
+		def topmost?; xstyle?(:topmost) end
+
+		def topmost=(topmost)
+			Windows.DetonateLastError(0, :SetWindowPos,
+				@handle,
+				(topmost) ? Windows::HWND_TOPMOST : Windows::HWND_NOTOPMOST,
+				0, 0, 0, 0,
+				Windows::SWP_NOMOVE | Windows::SWP_NOSIZE
+			)
+		end
+
 		def show(cmdShow = :shownormal) Windows.ShowWindow(@handle, Fzeet.constant(cmdShow, :sw_)); self end
 		def update; Windows.DetonateLastError(0, :UpdateWindow, @handle); self end
 
@@ -26,6 +83,28 @@ module Fzeet
 		def enabled?; Windows.IsWindowEnabled(@handle) != 0 end
 		def enabled=(enabled) Windows.EnableWindow(@handle, (enabled) ? 1 : 0) end
 
+		def rect; Windows.DetonateLastError(0, :GetClientRect, @handle, r = Rect.new); r end
+
+		def position; Windows.DetonateLastError(0, :GetWindowRect, @handle, r = Rect.new); r end
+		def position=(a) Windows.DetonateLastError(0, :SetWindowPos, @handle, nil, a[0], a[1], a[2], a[3], Fzeet.constant(:nozorder, :swp_)) end
+
+		def location; position.lt end
+		def location=(a) Windows.DetonateLastError(0, :SetWindowPos, @handle, nil, a[0], a[1], 0, 0, Fzeet.flags([:nosize, :nozorder], :swp_)) end
+
+		def size; r = position; Size.new(r[:right] - r[:left], r[:bottom] - r[:top]) end
+		def size=(a) Windows.DetonateLastError(0, :SetWindowPos, @handle, nil, 0, 0, a[0], a[1], Fzeet.flags([:nomove, :nozorder], :swp_)) end
+
+		def reframe
+			Windows.DetonateLastError(0, :SetWindowPos,
+				@handle,
+				nil,
+				0, 0, 0, 0,
+				Fzeet.flags([:nomove, :nosize, :nozorder, :framechanged], :swp_)
+			)
+
+			self
+		end
+
 		def capture?; Windows.GetCapture().to_i == @handle.to_i end
 		def capture=(capture) (capture) ? Windows.SetCapture(@handle) : Windows.DetonateLastError(0, :ReleaseCapture) end
 

data/lib/fzeet/windows/com.rb

@@ -44,6 +44,7 @@ module Fzeet
 
 		attach_function :CoCreateInstance, [:pointer, :pointer, :ulong, :pointer, :pointer], :long
 
+=begin
 		module COM
 			module Interface
 				def self.[](*args)
@@ -182,5 +183,6 @@ module Fzeet
 		]
 
 		Unknown = COM::Instance[IUnknown]
+=end
 	end
 end

data/lib/fzeet/windows/kernel.rb

@@ -6,6 +6,7 @@ module Fzeet
 		ffi_convention :stdcall
 
 		attach_function :GetLastError, [], :ulong
+		attach_function :SetLastError, [:ulong], :void
 
 		class ACTCTX < FFI::Struct
 			layout \

data/lib/fzeet/windows/userwnd.rb

@@ -121,6 +121,16 @@ module Fzeet
 
 		attach_function :RegisterClassEx, :RegisterClassExA, [:pointer], :ushort
 
+		#{ HWND_xxx
+		HWND_BROADCAST = FFI::Pointer.new(0xffff)
+		HWND_MESSAGE = FFI::Pointer.new(-3)
+		HWND_DESKTOP = FFI::Pointer.new(0)
+		HWND_TOP = FFI::Pointer.new(0)
+		HWND_BOTTOM = FFI::Pointer.new(1)
+		HWND_TOPMOST = FFI::Pointer.new(-1)
+		HWND_NOTOPMOST = FFI::Pointer.new(-2)
+		#}
+
 		#{ WS_xxx
 		WS_OVERLAPPED = 0x00000000
 		WS_POPUP = 0x80000000
@@ -239,6 +249,33 @@ module Fzeet
 		attach_function :DialogBoxIndirectParam, :DialogBoxIndirectParamA, [:pointer, :pointer, :pointer, :DLGPROC, :long], :int
 		attach_function :EndDialog, [:pointer, :int], :int
 
+		#{ GWL_xxx
+		GWL_WNDPROC = -4
+		GWL_HINSTANCE = -6
+		GWL_HWNDPARENT = -8
+		GWL_STYLE = -16
+		GWL_EXSTYLE = -20
+		GWL_USERDATA = -21
+		GWL_ID = -12
+		#}
+
+		#{ GWLP_xxx
+		GWLP_WNDPROC = -4
+		GWLP_HINSTANCE = -6
+		GWLP_HWNDPARENT = -8
+		GWLP_USERDATA = -21
+		GWLP_ID = -12
+		#}
+
+		#{ DWL_xxx
+		DWL_MSGRESULT = 0
+		DWL_DLGPROC = 4
+		DWL_USER = 8
+		#}
+
+		attach_function :GetWindowLong, :GetWindowLongA, [:pointer, :int], :long
+		attach_function :SetWindowLong, :SetWindowLongA, [:pointer, :int, :long], :long
+
 		SW_SHOWNORMAL = 1
 
 		attach_function :ShowWindow, [:pointer, :int], :int
@@ -252,6 +289,27 @@ module Fzeet
 		attach_function :IsWindowEnabled, [:pointer], :int
 		attach_function :EnableWindow, [:pointer, :int], :int
 
+		attach_function :GetClientRect, [:pointer, :pointer], :int
+		attach_function :GetWindowRect, [:pointer, :pointer], :int
+
+		SWP_NOSIZE = 0x0001
+		SWP_NOMOVE = 0x0002
+		SWP_NOZORDER = 0x0004
+		SWP_NOREDRAW = 0x0008
+		SWP_NOACTIVATE = 0x0010
+		SWP_FRAMECHANGED = 0x0020
+		SWP_SHOWWINDOW = 0x0040
+		SWP_HIDEWINDOW = 0x0080
+		SWP_NOCOPYBITS = 0x0100
+		SWP_NOOWNERZORDER = 0x0200
+		SWP_NOSENDCHANGING = 0x0400
+		SWP_DRAWFRAME = SWP_FRAMECHANGED
+		SWP_NOREPOSITION = SWP_NOOWNERZORDER
+		SWP_DEFERERASE = 0x2000
+		SWP_ASYNCWINDOWPOS = 0x4000
+
+		attach_function :SetWindowPos, [:pointer, :pointer, :int, :int, :int, :int, :uint], :int
+
 		attach_function :GetCursorPos, [:pointer], :int
 
 		attach_function :ScreenToClient, [:pointer, :pointer], :int

data/lib/fzeet/windows.rb

@@ -12,7 +12,7 @@ require_relative 'windows/com'
 require_relative 'windows/ole'
 require_relative 'windows/shell'
 
-require_relative 'windows/uiribbon'
+#require_relative 'windows/uiribbon'
 
 module Fzeet
 	module Windows

metadata

@@ -1,13 +1,12 @@
 --- !ruby/object:Gem::Specification 
 name: fzeet
 version: !ruby/object:Gem::Version 
-  hash: 11
   prerelease: false
   segments: 
   - 0
   - 5
-  - 0
-  version: 0.5.0
+  - 1
+  version: 0.5.1
 platform: ruby
 authors: 
 - Radoslav Peev
@@ -15,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-21 00:00:00 +03:00
+date: 2010-08-23 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -24,9 +23,8 @@ dependencies:
   requirement: &id001 !ruby/object:Gem::Requirement 
     none: false
     requirements: 
-    - - ">="
+    - - ~>
       - !ruby/object:Gem::Version 
-        hash: 1
         segments: 
         - 0
         - 6
@@ -97,14 +95,6 @@ files:
 - examples/Raw/Hello.rbw
 - examples/Raw/LifeCycle.rbw
 - examples/Raw/Minimal.rbw
-- examples/Raw/UIRibbon/Command.rbw
-- examples/Raw/UIRibbon/Minimal.rbw
-- examples/Raw/UIRibbon/Command.xml
-- examples/Raw/UIRibbon/Minimal.xml
-- examples/Raw/UIRibbon/Command.rb
-- examples/Raw/UIRibbon/Minimal.rb
-- examples/Raw/UIRibbon/Command.dll
-- examples/Raw/UIRibbon/Minimal.dll
 - examples/Command.rbw
 - examples/Hello.rbw
 - examples/Inheritance.rbw
@@ -117,6 +107,7 @@ files:
 - examples/Minimal.rbw
 - examples/MinimalOpts.rbw
 - examples/Scribble.rbw
+- examples/Style.rbw
 - examples/Menu/ContextMenu.rbw
 - examples/Menu/Menu.rbw
 - examples/Menu/MenuPARGB32.rbw
@@ -124,15 +115,6 @@ files:
 - examples/Dialog/Dialog.rbw
 - examples/Dialog/DialogApplication.rbw
 - examples/Dialog/FileDialog.rbw
-- examples/UIRibbon/Command.rbw
-- examples/UIRibbon/Minimal.rbw
-- examples/UIRibbon/Viewer.rbw
-- examples/UIRibbon/Command.xml
-- examples/UIRibbon/Minimal.xml
-- examples/UIRibbon/Command.rb
-- examples/UIRibbon/Minimal.rb
-- examples/UIRibbon/Command.dll
-- examples/UIRibbon/Minimal.dll
 - LICENSE
 has_rdoc: true
 homepage: 
@@ -148,7 +130,6 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
       segments: 
       - 0
       version: "0"
@@ -157,7 +138,6 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
       segments: 
       - 0
       version: "0"

data/examples/Raw/UIRibbon/Command.rb

@@ -1,22 +0,0 @@
-CmdAppMenu = 2
-CmdQAT = 3
-CmdTab1 = 4
-CmdTab1_LabelTitle_RESID = 60001
-CmdTab1Group1 = 5
-CmdTab1Group1_LabelTitle_RESID = 60002
-CmdTab1Group1_LabelDescription_RESID = 60003
-CmdTab1Group1_TooltipDescription_RESID = 60004
-CmdTab1Group1_SmallImages_RESID = 60005
-CmdTab1Group1_LargeImages_RESID = 60006
-CmdItem1 = 6
-CmdItem1_LabelTitle_RESID = 60007
-CmdItem1_LabelDescription_RESID = 60008
-CmdItem1_TooltipDescription_RESID = 60009
-CmdItem1_SmallImages_RESID = 60010
-CmdItem1_LargeImages_RESID = 60011
-CmdButton1 = 7
-CmdButton1_LabelTitle_RESID = 60012
-CmdButton1_LabelDescription_RESID = 60013
-CmdButton1_TooltipDescription_RESID = 60014
-CmdButton1_SmallImages_RESID = 60015
-CmdButton1_LargeImages_RESID = 60016

data/examples/Raw/UIRibbon/Command.rbw

@@ -1,51 +0,0 @@
-require 'fzeet'
-
-include Fzeet::Windows
-
-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
-
-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
-
-UICH = UICommandHandler.new
-
-def UICH.Execute(*args)
-	case args[0]
-	when CmdItem1
-		onItem1(*args)
-	when CmdButton1
-		onButton1(*args)
-	end
-
-	S_OK
-end
-
-UIA = UIApplication.new
-
-def UIA.OnCreateUICommand(*args)
-	UICH.QueryInterface(UICH.class::IID, args[-1])
-
-	S_OK
-end
-
-UIF = UIFramework.new
-
-Fzeet::Application.run { |window|
-	UIF.Initialize(window.handle, UIA)
-	UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
-
-	window.on(:destroy) {
-		UICH.Release
-		UIA.Release
-		UIF.Destroy; UIF.Release
-	}
-}

data/examples/Raw/UIRibbon/Command.xml

@@ -1,65 +0,0 @@
-<?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='Tab1' />
-	<Command Name='cmdTab1Group1' LabelTitle='&amp;Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-		<Command.SmallImages>
-			<Image>../../res/go-next-small.bmp</Image>
-		</Command.SmallImages>
-		<Command.LargeImages>
-			<Image>../../res/go-next.bmp</Image>
-		</Command.LargeImages>
-	</Command>
-
-<Command Name='cmdItem1' LabelTitle='&amp;Item1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../../res/go-previous-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../../res/go-previous.bmp</Image>
-	</Command.LargeImages>
-</Command>
-
-<Command Name='cmdButton1' LabelTitle='&amp;Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../../res/go-next-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../../res/go-next.bmp</Image>
-	</Command.LargeImages>
-</Command>
-	</Application.Commands>
-
-	<Application.Views>
-		<Ribbon>
-			<Ribbon.ApplicationMenu>
-<ApplicationMenu CommandName='cmdAppMenu'>
-	<MenuGroup Class='MajorItems'>
-		<Button CommandName='cmdItem1' />
-	</MenuGroup>
-</ApplicationMenu>
-			</Ribbon.ApplicationMenu>
-
-			<Ribbon.QuickAccessToolbar>
-<QuickAccessToolbar CommandName='cmdQAT'>
-	<QuickAccessToolbar.ApplicationDefaults>
-		<Button CommandName='cmdItem1' />
-		<Button CommandName='cmdButton1' />
-	</QuickAccessToolbar.ApplicationDefaults>
-</QuickAccessToolbar>
-			</Ribbon.QuickAccessToolbar>
-
-			<Ribbon.Tabs>
-<Tab CommandName='cmdTab1'>
-	<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
-		<Button CommandName='cmdButton1' />
-	</Group>
-</Tab>
-			</Ribbon.Tabs>
-		</Ribbon>
-	</Application.Views>
-</Application>

data/examples/Raw/UIRibbon/Minimal.rb

@@ -1,16 +0,0 @@
-CmdAppMenu = 2
-CmdQAT = 3
-CmdTab1 = 4
-CmdTab1_LabelTitle_RESID = 60001
-CmdTab1Group1 = 5
-CmdTab1Group1_LabelTitle_RESID = 60002
-CmdTab1Group1_LabelDescription_RESID = 60003
-CmdTab1Group1_TooltipDescription_RESID = 60004
-CmdTab1Group1_SmallImages_RESID = 60005
-CmdTab1Group1_LargeImages_RESID = 60006
-CmdButton1 = 6
-CmdButton1_LabelTitle_RESID = 60007
-CmdButton1_LabelDescription_RESID = 60008
-CmdButton1_TooltipDescription_RESID = 60009
-CmdButton1_SmallImages_RESID = 60010
-CmdButton1_LargeImages_RESID = 60011

data/examples/Raw/UIRibbon/Minimal.rbw

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

data/examples/Raw/UIRibbon/Minimal.xml

@@ -1,55 +0,0 @@
-<?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='Tab1' />
-	<Command Name='cmdTab1Group1' LabelTitle='&amp;Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-		<Command.SmallImages>
-			<Image>../../res/go-next-small.bmp</Image>
-		</Command.SmallImages>
-		<Command.LargeImages>
-			<Image>../../res/go-next.bmp</Image>
-		</Command.LargeImages>
-	</Command>
-
-<Command Name='cmdButton1' LabelTitle='&amp;Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../../res/go-next-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../../res/go-next.bmp</Image>
-	</Command.LargeImages>
-</Command>
-	</Application.Commands>
-
-	<Application.Views>
-		<Ribbon>
-			<Ribbon.ApplicationMenu>
-<ApplicationMenu CommandName='cmdAppMenu'>
-	<MenuGroup Class='MajorItems'>
-		<Button CommandName='cmdButton1' />
-	</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>
-</Tab>
-			</Ribbon.Tabs>
-		</Ribbon>
-	</Application.Views>
-</Application>

data/examples/UIRibbon/Command.rb

@@ -1,22 +0,0 @@
-CmdAppMenu = 2
-CmdQAT = 3
-CmdTab1 = 4
-CmdTab1_LabelTitle_RESID = 60001
-CmdTab1Group1 = 5
-CmdTab1Group1_LabelTitle_RESID = 60002
-CmdTab1Group1_LabelDescription_RESID = 60003
-CmdTab1Group1_TooltipDescription_RESID = 60004
-CmdTab1Group1_SmallImages_RESID = 60005
-CmdTab1Group1_LargeImages_RESID = 60006
-CmdItem1 = 6
-CmdItem1_LabelTitle_RESID = 60007
-CmdItem1_LabelDescription_RESID = 60008
-CmdItem1_TooltipDescription_RESID = 60009
-CmdItem1_SmallImages_RESID = 60010
-CmdItem1_LargeImages_RESID = 60011
-CmdButton1 = 7
-CmdButton1_LabelTitle_RESID = 60012
-CmdButton1_LabelDescription_RESID = 60013
-CmdButton1_TooltipDescription_RESID = 60014
-CmdButton1_SmallImages_RESID = 60015
-CmdButton1_LargeImages_RESID = 60016

data/examples/UIRibbon/Command.rbw

@@ -1,20 +0,0 @@
-require 'fzeet'
-
-include Fzeet
-
-Application.run { |window|
-	UIRibbon.new(window).
-		on(CmdItem1) { |args|
-			message 'on(CmdItem1)'
-
-			args[:ribbon][CmdButton1].enabled = true
-			args[:sender].enabled = false
-		}.
-
-		on(CmdButton1) { |args|
-			message 'on(CmdButton1)'
-
-			args[:ribbon][CmdItem1].enabled = true
-			args[:sender].enabled = false
-		}
-}

data/examples/UIRibbon/Command.xml

@@ -1,65 +0,0 @@
-<?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='Tab1' />
-	<Command Name='cmdTab1Group1' LabelTitle='&amp;Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-		<Command.SmallImages>
-			<Image>../res/go-next-small.bmp</Image>
-		</Command.SmallImages>
-		<Command.LargeImages>
-			<Image>../res/go-next.bmp</Image>
-		</Command.LargeImages>
-	</Command>
-
-<Command Name='cmdItem1' LabelTitle='&amp;Item1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../res/go-previous-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../res/go-previous.bmp</Image>
-	</Command.LargeImages>
-</Command>
-
-<Command Name='cmdButton1' LabelTitle='&amp;Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../res/go-next-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../res/go-next.bmp</Image>
-	</Command.LargeImages>
-</Command>
-	</Application.Commands>
-
-	<Application.Views>
-		<Ribbon>
-			<Ribbon.ApplicationMenu>
-<ApplicationMenu CommandName='cmdAppMenu'>
-	<MenuGroup Class='MajorItems'>
-		<Button CommandName='cmdItem1' />
-	</MenuGroup>
-</ApplicationMenu>
-			</Ribbon.ApplicationMenu>
-
-			<Ribbon.QuickAccessToolbar>
-<QuickAccessToolbar CommandName='cmdQAT'>
-	<QuickAccessToolbar.ApplicationDefaults>
-		<Button CommandName='cmdItem1' />
-		<Button CommandName='cmdButton1' />
-	</QuickAccessToolbar.ApplicationDefaults>
-</QuickAccessToolbar>
-			</Ribbon.QuickAccessToolbar>
-
-			<Ribbon.Tabs>
-<Tab CommandName='cmdTab1'>
-	<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
-		<Button CommandName='cmdButton1' />
-	</Group>
-</Tab>
-			</Ribbon.Tabs>
-		</Ribbon>
-	</Application.Views>
-</Application>

data/examples/UIRibbon/Minimal.rb

@@ -1,16 +0,0 @@
-CmdAppMenu = 2
-CmdQAT = 3
-CmdTab1 = 4
-CmdTab1_LabelTitle_RESID = 60001
-CmdTab1Group1 = 5
-CmdTab1Group1_LabelTitle_RESID = 60002
-CmdTab1Group1_LabelDescription_RESID = 60003
-CmdTab1Group1_TooltipDescription_RESID = 60004
-CmdTab1Group1_SmallImages_RESID = 60005
-CmdTab1Group1_LargeImages_RESID = 60006
-CmdButton1 = 6
-CmdButton1_LabelTitle_RESID = 60007
-CmdButton1_LabelDescription_RESID = 60008
-CmdButton1_TooltipDescription_RESID = 60009
-CmdButton1_SmallImages_RESID = 60010
-CmdButton1_LargeImages_RESID = 60011

data/examples/UIRibbon/Minimal.rbw

@@ -1,8 +0,0 @@
-require 'fzeet'
-
-include Fzeet
-
-Application.run { |window|
-	UIRibbon.new(window).
-		on(CmdButton1) { message 'on(CmdButton1)' }
-}

data/examples/UIRibbon/Minimal.xml

@@ -1,55 +0,0 @@
-<?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='Tab1' />
-	<Command Name='cmdTab1Group1' LabelTitle='&amp;Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-		<Command.SmallImages>
-			<Image>../res/go-next-small.bmp</Image>
-		</Command.SmallImages>
-		<Command.LargeImages>
-			<Image>../res/go-next.bmp</Image>
-		</Command.LargeImages>
-	</Command>
-
-<Command Name='cmdButton1' LabelTitle='&amp;Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
-	<Command.SmallImages>
-		<Image>../res/go-next-small.bmp</Image>
-	</Command.SmallImages>
-	<Command.LargeImages>
-		<Image>../res/go-next.bmp</Image>
-	</Command.LargeImages>
-</Command>
-	</Application.Commands>
-
-	<Application.Views>
-		<Ribbon>
-			<Ribbon.ApplicationMenu>
-<ApplicationMenu CommandName='cmdAppMenu'>
-	<MenuGroup Class='MajorItems'>
-		<Button CommandName='cmdButton1' />
-	</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>
-</Tab>
-			</Ribbon.Tabs>
-		</Ribbon>
-	</Application.Views>
-</Application>

data/examples/UIRibbon/Viewer.rbw

@@ -1,9 +0,0 @@
-require 'fzeet'
-
-include Fzeet
-
-Application.name += " - #{name = ARGV[0] || 'Minimal'}.xml"
-
-Application.run { |window|
-	UIRibbon.new(window, name)
-}