fzeet 0.6.1 → 0.6.2

data/examples/UIRibbon/Control/FontControl.rb

@@ -0,0 +1,34 @@
+# Generated by the UIRibbon build, do NOT modify
+
+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_SmallImages_120__RESID = 60006
+CmdTab1Group1_LargeImages_RESID = 60007
+CmdTab1Group1_LargeImages_120__RESID = 60008
+CmdTab1Group2 = 6
+CmdTab1Group2_LabelTitle_RESID = 60009
+CmdTab1Group2_LabelDescription_RESID = 60010
+CmdTab1Group2_TooltipDescription_RESID = 60011
+CmdTab1Group2_SmallImages_RESID = 60012
+CmdTab1Group2_SmallImages_120__RESID = 60013
+CmdTab1Group2_LargeImages_RESID = 60014
+CmdTab1Group2_LargeImages_120__RESID = 60015
+CmdTab1Group3 = 7
+CmdTab1Group3_LabelTitle_RESID = 60016
+CmdTab1Group3_LabelDescription_RESID = 60017
+CmdTab1Group3_TooltipDescription_RESID = 60018
+CmdTab1Group3_SmallImages_RESID = 60019
+CmdTab1Group3_SmallImages_120__RESID = 60020
+CmdTab1Group3_LargeImages_RESID = 60021
+CmdTab1Group3_LargeImages_120__RESID = 60022
+CmdFont1 = 8
+CmdFont2 = 9
+CmdFont3 = 10
+CmdContextMap1 = 11

data/examples/UIRibbon/Control/FontControl.rbw

@@ -0,0 +1,83 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run(View.new) { |window|
+	font = IndirectFont.new(Control::Font.logfont.tap { |lf|
+		lf.face = 'Comic Sans MS'
+		lf.size = 18
+		lf.bold = true
+		lf.italic = true
+		lf.underline = true
+		lf.strikeout = true
+	})
+
+	color, background = Windows.RGB(255, 255, 255), Windows.RGB(128, 0, 0)
+
+	(ribbon = UIRibbon.new(window)).
+		invalidate(CmdFont1).invalidate(CmdFont2).invalidate(CmdFont3).
+
+		on(:update, CmdFont1) { |args|
+			ribbon.fontPropsUpdate(args) { |ps| ps.update(font.logfont) }
+		}.
+
+		on(:update, CmdFont2) { |args|
+			ribbon.fontPropsUpdate(args) { |ps|
+				ps.update(font.logfont)
+				ps.uiprop(:FontProperties_ForegroundColor, Windows::PROPVARIANT[:uint, color])
+			}
+		}.
+
+		on(:update, CmdFont3) { |args|
+			ribbon.fontPropsUpdate(args) { |ps|
+				ps.update(font.logfont)
+				ps.uiprop(:FontProperties_ForegroundColor, Windows::PROPVARIANT[:uint, color])
+				ps.uiprop(:FontProperties_BackgroundColor, Windows::PROPVARIANT[:uint, background])
+			}
+		}.
+
+		on(:execute, CmdFont1) { |args|
+			font.dispose
+
+			ribbon.fontPropsChanged(args) { |ps|
+				font = IndirectFont.new(font.logfont.update(ps))
+			}
+
+			window.invalidate; ribbon.invalidate(CmdFont2).invalidate(CmdFont3)
+		}.
+
+		on(:execute, CmdFont2) { |args|
+			font.dispose
+
+			ribbon.fontPropsChanged(args) { |ps|
+				font = IndirectFont.new(font.logfont.update(ps))
+				color = ps.uiprop(:FontProperties_ForegroundColor).uint if ps.key(0) == Windows::UI_PKEY_FontProperties_ForegroundColor
+			}
+
+			window.invalidate; ribbon.invalidate(CmdFont1).invalidate(CmdFont3)
+		}.
+
+		on(:execute, CmdFont3) { |args|
+			font.dispose
+
+			ribbon.fontPropsChanged(args) { |ps|
+				font = IndirectFont.new(font.logfont.update(ps))
+				color = ps.uiprop(:FontProperties_ForegroundColor).uint if ps.key(0) == Windows::UI_PKEY_FontProperties_ForegroundColor
+				background = ps.uiprop(:FontProperties_BackgroundColor).uint if ps.key(0) == Windows::UI_PKEY_FontProperties_BackgroundColor
+			}
+
+			window.invalidate; ribbon.invalidate(CmdFont1).invalidate(CmdFont2)
+		}
+
+	window.
+		on(:paint) { window.paint { |dc| dc.select(font) {
+			dc.color, dc.background = color, background
+			dc.sms 'The quick brown fox jumps over the lazy dog. 1234567890'
+		}}}.
+
+		on(:contextmenu) { |args|
+			window.ribbon.contextualUI(CmdContextMap1, args[:x], args[:y])
+		}.
+
+		on(:destroy) { font.dispose }
+}

data/examples/UIRibbon/Control/FontControl.xml

@@ -0,0 +1,96 @@
+<?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='FontControl' />
+	<Command Name='cmdTab1Group1' LabelTitle='Font&amp;Only' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/preferences-desktop-font-small.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/preferences-desktop-font.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group2' LabelTitle='FontWith&amp;Color' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/preferences-desktop-font-small.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/preferences-desktop-font.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+	<Command Name='cmdTab1Group3' LabelTitle='&amp;RichFont' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
+		<Command.SmallImages>
+			<Image>../../res/preferences-desktop-font-small.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font.bmp</Image>
+		</Command.SmallImages>
+		<Command.LargeImages>
+			<Image>../../res/preferences-desktop-font.bmp</Image>
+			<Image MinDPI='120'>../../res/preferences-desktop-font-big.bmp</Image>
+		</Command.LargeImages>
+	</Command>
+
+<Command Name='cmdFont1' />
+<Command Name='cmdFont2' />
+<Command Name='cmdFont3' />
+
+<Command Name='cmdContextMap1' />
+	</Application.Commands>
+
+	<Application.Views>
+		<Ribbon>
+			<Ribbon.ApplicationMenu>
+<ApplicationMenu CommandName='cmdAppMenu'>
+
+</ApplicationMenu>
+			</Ribbon.ApplicationMenu>
+
+			<Ribbon.QuickAccessToolbar>
+<QuickAccessToolbar CommandName='cmdQAT'>
+
+</QuickAccessToolbar>
+			</Ribbon.QuickAccessToolbar>
+
+			<Ribbon.Tabs>
+<Tab CommandName='cmdTab1'>
+	<Group CommandName='cmdTab1Group1'>
+		<FontControl CommandName='cmdFont1' FontType='FontOnly' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group2'>
+		<FontControl CommandName='cmdFont2' FontType='FontWithColor' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group3'>
+		<FontControl CommandName='cmdFont3' FontType='RichFont' />
+	</Group>
+</Tab>
+			</Ribbon.Tabs>
+		</Ribbon>
+
+		<ContextPopup>
+			<ContextPopup.MiniToolbars>
+<MiniToolbar Name='miniToolbar1'>
+	<MenuGroup Class='StandardItems'>
+		<FontControl CommandName='cmdFont1' />
+	</MenuGroup>
+</MiniToolbar>
+			</ContextPopup.MiniToolbars>
+
+			<ContextPopup.ContextMenus>
+
+			</ContextPopup.ContextMenus>
+
+			<ContextPopup.ContextMaps>
+<ContextMap CommandName='cmdContextMap1' MiniToolbar='miniToolbar1' />
+			</ContextPopup.ContextMaps>
+		</ContextPopup>
+	</Application.Views>
+</Application>

data/examples/UIRibbon/Control/Gallery.rb

@@ -0,0 +1,55 @@
+# Generated by the UIRibbon build, do NOT modify
+
+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_SmallImages_120__RESID = 60006
+CmdTab1Group1_LargeImages_RESID = 60007
+CmdTab1Group1_LargeImages_120__RESID = 60008
+CmdTab1Group2 = 6
+CmdTab1Group2_LabelTitle_RESID = 60009
+CmdTab1Group2_LabelDescription_RESID = 60010
+CmdTab1Group2_TooltipDescription_RESID = 60011
+CmdTab1Group2_SmallImages_RESID = 60012
+CmdTab1Group2_SmallImages_120__RESID = 60013
+CmdTab1Group2_LargeImages_RESID = 60014
+CmdTab1Group2_LargeImages_120__RESID = 60015
+CmdTab1Group3 = 7
+CmdTab1Group3_LabelTitle_RESID = 60016
+CmdTab1Group3_LabelDescription_RESID = 60017
+CmdTab1Group3_TooltipDescription_RESID = 60018
+CmdTab1Group3_SmallImages_RESID = 60019
+CmdTab1Group3_SmallImages_120__RESID = 60020
+CmdTab1Group3_LargeImages_RESID = 60021
+CmdTab1Group3_LargeImages_120__RESID = 60022
+CmdGallery1 = 8
+CmdGallery1_LabelTitle_RESID = 60023
+CmdGallery1_LabelDescription_RESID = 60024
+CmdGallery1_TooltipDescription_RESID = 60025
+CmdGallery1_SmallImages_RESID = 60026
+CmdGallery1_SmallImages_120__RESID = 60027
+CmdGallery1_LargeImages_RESID = 60028
+CmdGallery1_LargeImages_120__RESID = 60029
+CmdGallery2 = 9
+CmdGallery2_LabelTitle_RESID = 60030
+CmdGallery2_LabelDescription_RESID = 60031
+CmdGallery2_TooltipDescription_RESID = 60032
+CmdGallery2_SmallImages_RESID = 60033
+CmdGallery2_SmallImages_120__RESID = 60034
+CmdGallery2_LargeImages_RESID = 60035
+CmdGallery2_LargeImages_120__RESID = 60036
+CmdGallery3 = 10
+CmdGallery3_LabelTitle_RESID = 60037
+CmdGallery3_LabelDescription_RESID = 60038
+CmdGallery3_TooltipDescription_RESID = 60039
+CmdGallery3_SmallImages_RESID = 60040
+CmdGallery3_SmallImages_120__RESID = 60041
+CmdGallery3_LargeImages_RESID = 60042
+CmdGallery3_LargeImages_120__RESID = 60043
+CmdContextMap1 = 11

data/examples/UIRibbon/Control/Gallery.rbw

@@ -0,0 +1,124 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run(View.new) { |window|
+	UIRibbon.new(window).
+		invalidate(CmdGallery1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_Categories).
+		invalidate(CmdGallery1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_ItemsSource).
+		invalidate(CmdGallery1, Windows::UI_INVALIDATIONS_STATE).
+
+		invalidate(CmdGallery2, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_Categories).
+		invalidate(CmdGallery2, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_ItemsSource).
+		invalidate(CmdGallery2, Windows::UI_INVALIDATIONS_STATE).
+
+		invalidate(CmdGallery3, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_Categories).
+		invalidate(CmdGallery3, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_ItemsSource).
+		invalidate(CmdGallery3, Windows::UI_INVALIDATIONS_STATE).
+
+		on(:update, CmdGallery1) { |args|
+			case args[:key]
+			when Windows::UI_PKEY_Categories
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |categories|
+						categories.
+							add(C1 = UIRibbon::GalleryItem.new('Category1', 0)).
+							add(C2 = UIRibbon::GalleryItem.new('Category2', 1))
+					}
+
+					args[:newValue].unknown = current
+				}
+			when Windows::UI_PKEY_ItemsSource
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |items|
+						items.
+							add(I1 = UIRibbon::GalleryItem.new('Item1', 0, '../../res/go-next.bmp')).
+							add(I2 = UIRibbon::GalleryItem.new('Item2', 1, '../../res/go-previous.bmp'))
+					}
+
+					args[:newValue].unknown = current
+				}
+
+				window.ribbon.invalidate(CmdGallery1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_SelectedItem)
+			when Windows::UI_PKEY_SelectedItem
+				args[:newValue].uint = 0
+			end
+		}.
+
+		on(:update, CmdGallery2) { |args|
+			case args[:key]
+			when Windows::UI_PKEY_Categories
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |categories|
+						categories.
+							add(C3 = UIRibbon::GalleryItem.new('Category1', 0)).
+							add(C4 = UIRibbon::GalleryItem.new('Category2', 1))
+					}
+
+					args[:newValue].unknown = current
+				}
+			when Windows::UI_PKEY_ItemsSource
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |items|
+						items.
+							add(I3 = UIRibbon::GalleryItem.new('Item1', 0, '../../res/go-next.bmp')).
+							add(I4 = UIRibbon::GalleryItem.new('Item2', 1, '../../res/go-previous.bmp'))
+					}
+
+					args[:newValue].unknown = current
+				}
+
+				window.ribbon.invalidate(CmdGallery2, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_SelectedItem)
+			when Windows::UI_PKEY_SelectedItem
+				args[:newValue].uint = 0
+			end
+		}.
+
+		on(:update, CmdGallery3) { |args|
+			case args[:key]
+			when Windows::UI_PKEY_Categories
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |categories|
+						categories.
+							add(C5 = UIRibbon::GalleryItem.new('Category1', 0)).
+							add(C6 = UIRibbon::GalleryItem.new('Category2', 1))
+					}
+
+					args[:newValue].unknown = current
+				}
+			when Windows::UI_PKEY_ItemsSource
+				args[:value].unknown { |current|
+					current.QueryInstance(Windows::UICollection) { |items|
+						items.
+							add(I5 = UIRibbon::GalleryItem.new('Item1', 0, '../../res/go-next.bmp')).
+							add(I6 = UIRibbon::GalleryItem.new('Item2', 1, '../../res/go-previous.bmp'))
+					}
+
+					args[:newValue].unknown = current
+				}
+
+				window.ribbon.invalidate(CmdGallery3, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_SelectedItem)
+			when Windows::UI_PKEY_SelectedItem
+				args[:newValue].uint = 0
+			end
+		}.
+
+		on(:execute, CmdGallery1) { |args|
+			message "Item with index #{args[:value].uint} selected"
+		}.
+
+		on(:execute, CmdGallery2) { |args|
+			message "Item with index #{args[:value].uint} selected"
+		}.
+
+		on(:execute, CmdGallery3) { |args|
+			message (args[:value].nil?) ? "Default action" : "Item with index #{args[:value].uint} selected"
+		}
+
+	window.
+		on(:draw, Control::Font) { |dc| dc.sms 'Right-click (or menu key) for context menu' }.
+
+		on(:contextmenu) { |args|
+			window.ribbon.contextualUI(CmdContextMap1, args[:x], args[:y])
+		}
+}

data/examples/UIRibbon/Control/Gallery.xml

@@ -0,0 +1,132 @@
+<?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='Gallery' />
+	<Command Name='cmdTab1Group1' LabelTitle='In&amp;RibbonGallery' 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;DropDownGallery' 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;SplitButtonGallery' 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='cmdGallery1' LabelTitle='In&amp;Ribbon1' 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='cmdGallery2' 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='cmdGallery3' 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='cmdContextMap1' />
+	</Application.Commands>
+
+	<Application.Views>
+		<Ribbon>
+			<Ribbon.ApplicationMenu>
+<ApplicationMenu CommandName='cmdAppMenu'>
+	<MenuGroup Class='MajorItems'>
+		<DropDownGallery CommandName='cmdGallery2' />
+		<SplitButtonGallery CommandName='cmdGallery3' />
+	</MenuGroup>
+</ApplicationMenu>
+			</Ribbon.ApplicationMenu>
+
+			<Ribbon.QuickAccessToolbar>
+<QuickAccessToolbar CommandName='cmdQAT'>
+
+</QuickAccessToolbar>
+			</Ribbon.QuickAccessToolbar>
+
+			<Ribbon.Tabs>
+<Tab CommandName='cmdTab1'>
+	<Group CommandName='cmdTab1Group1'>
+		<InRibbonGallery CommandName='cmdGallery1' TextPosition='Bottom' MinColumnsLarge='2' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group2' SizeDefinition='OneButton'>
+		<DropDownGallery CommandName='cmdGallery2' TextPosition='Hide' />
+	</Group>
+
+	<Group CommandName='cmdTab1Group3' SizeDefinition='OneButton'>
+		<SplitButtonGallery CommandName='cmdGallery3' TextPosition='Hide' />
+	</Group>
+</Tab>
+			</Ribbon.Tabs>
+		</Ribbon>
+
+		<ContextPopup>
+			<ContextPopup.MiniToolbars>
+<MiniToolbar Name='miniToolbar1'>
+	<MenuGroup>
+		<DropDownGallery CommandName='cmdGallery2' />
+		<SplitButtonGallery CommandName='cmdGallery3' />
+	</MenuGroup>
+</MiniToolbar>
+			</ContextPopup.MiniToolbars>
+
+			<ContextPopup.ContextMenus>
+<ContextMenu Name='contextMenu1'>
+	<MenuGroup>
+		<DropDownGallery CommandName='cmdGallery2' />
+		<SplitButtonGallery CommandName='cmdGallery3' />
+	</MenuGroup>
+</ContextMenu>
+			</ContextPopup.ContextMenus>
+
+			<ContextPopup.ContextMaps>
+<ContextMap CommandName='cmdContextMap1' MiniToolbar='miniToolbar1' ContextMenu='contextMenu1' />
+			</ContextPopup.ContextMaps>
+		</ContextPopup>
+	</Application.Views>
+</Application>

data/examples/UIRibbon/Control/Spinner.rb

@@ -0,0 +1,14 @@
+# Generated by the UIRibbon build, do NOT modify
+
+CmdAppMenu = 2
+CmdQAT = 3
+CmdTab1 = 4
+CmdTab1_LabelTitle_RESID = 60001
+CmdTab1Group1 = 5
+CmdTab1Group1_LabelTitle_RESID = 60002
+CmdTab1Group1_LabelDescription_RESID = 60003
+CmdTab1Group1_TooltipDescription_RESID = 60004
+CmdSpinner1 = 6
+CmdSpinner1_LabelTitle_RESID = 60005
+CmdSpinner1_LabelDescription_RESID = 60006
+CmdSpinner1_TooltipDescription_RESID = 60007

data/examples/UIRibbon/Control/Spinner.rbw

@@ -0,0 +1,27 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	UIRibbon.new(window,
+		[:update, :CmdSpinner1] => proc { |args|
+			case args[:key]
+			when Windows::UI_PKEY_DecimalPlaces
+				args[:newValue].uint = 2
+			when Windows::UI_PKEY_RepresentativeString
+				args[:newValue].wstring = '00.00em'
+			when Windows::UI_PKEY_FormatString
+				args[:newValue].wstring = 'em'
+			when Windows::UI_PKEY_MinValue
+				args[:newValue].decimal = 1
+			when Windows::UI_PKEY_MaxValue
+				args[:newValue].decimal = 10
+			when Windows::UI_PKEY_Increment
+				args[:newValue].decimal = 3
+			end
+		}
+	).
+		on(:execute, CmdSpinner1) { |args|
+			message args[:value].decimal.to_f
+		}
+}

data/examples/UIRibbon/Control/Spinner.xml

@@ -0,0 +1,37 @@
+<?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='Spinner' />
+	<Command Name='cmdTab1Group1' LabelTitle='&amp;Spinner' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...' />
+
+<Command Name='cmdSpinner1' LabelTitle='&amp;Spinner1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...' />
+	</Application.Commands>
+
+	<Application.Views>
+		<Ribbon>
+			<Ribbon.ApplicationMenu>
+<ApplicationMenu CommandName='cmdAppMenu'>
+
+</ApplicationMenu>
+			</Ribbon.ApplicationMenu>
+
+			<Ribbon.QuickAccessToolbar>
+<QuickAccessToolbar CommandName='cmdQAT'>
+
+</QuickAccessToolbar>
+			</Ribbon.QuickAccessToolbar>
+
+			<Ribbon.Tabs>
+<Tab CommandName='cmdTab1'>
+	<Group CommandName='cmdTab1Group1'>
+		<Spinner CommandName='cmdSpinner1' />
+	</Group>
+</Tab>
+			</Ribbon.Tabs>
+		</Ribbon>
+	</Application.Views>
+</Application>

data/examples/UIRibbon/Size.rbw

@@ -3,7 +3,7 @@ require 'fzeet'
 include Fzeet
 
 Application.run(View.new) { |window|
-	UIRibbon.new(window, 'Minimal').
+	UIRibbon.new(window, name: 'Minimal').
 		on(:size) { window.invalidate }.
 		on(CmdButton1) { message 'on(CmdButton1)' }.
 

data/examples/UIRibbon/TabGroup.rb

@@ -0,0 +1,12 @@
+# Generated by the UIRibbon build, do NOT modify
+
+CmdAppMenu = 2
+CmdQAT = 3
+CmdTab1 = 4
+CmdTab1_LabelTitle_RESID = 60001
+CmdTabGroup1 = 5
+CmdTabGroup1_LabelTitle_RESID = 60002
+CmdTabGroup1Tab1 = 6
+CmdTabGroup1Tab1_LabelTitle_RESID = 60003
+CmdTabGroup1Tab2 = 7
+CmdTabGroup1Tab2_LabelTitle_RESID = 60004

data/examples/UIRibbon/TabGroup.rbw

@@ -0,0 +1,23 @@
+require 'fzeet'
+
+include Fzeet
+
+Application.run { |window|
+	UIRibbon.new(window).
+		on(:size) {
+			window[:edit1].position = 10, window.ribbon.height + 10, 100, 18
+		}
+
+	Edit.new(window, :edit1, caption: '').
+		on(:setfocus) {
+			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])
+		}.
+
+		cuebanner = 'Click here...'
+
+	window.on(:lbuttondown) { window[:edit1].focus = false if window[:edit1].focus? }
+}