libui_paradise 0.2.49

data/lib/libui_paradise/examples/simple/002_histogram_example.rb

@@ -0,0 +1,213 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# https://github.com/kojix2/LibUI/blob/main/examples/histogram.rb
+#
+# That was initially inspired by:
+#
+#   https://github.com/jamescook/libui-ruby/blob/master/example/histogram.rb
+#
+# =========================================================================== #
+require 'libui'
+
+UI = LibUI
+
+X_OFF_LEFT   = 20
+Y_OFF_TOP    = 20
+X_OFF_RIGHT  = 20
+Y_OFF_BOTTOM = 20
+POINT_RADIUS = 5
+
+# =========================================================================== #
+# === BLUE
+# =========================================================================== #
+BLUE         = 0x1E90FF
+
+init         = LibUI.init
+handler      = LibUI::FFI::AreaHandler.malloc
+handler.to_ptr.free = Fiddle::RUBY_FREE
+histogram    = LibUI.new_area(handler)
+brush        = LibUI::FFI::DrawBrush.malloc
+brush.to_ptr.free = Fiddle::RUBY_FREE
+color_button = LibUI.new_color_button
+datapoints   = []
+
+# =========================================================================== #
+# === graph_size
+# =========================================================================== #
+def graph_size(area_width, area_height)
+  graph_width = area_width - X_OFF_LEFT - X_OFF_RIGHT
+  graph_height = area_height - Y_OFF_TOP - Y_OFF_BOTTOM
+  [graph_width, graph_height]
+end
+
+matrix = UI::FFI::DrawMatrix.malloc
+matrix.to_ptr.free = Fiddle::RUBY_FREE
+
+def point_locations(datapoints, width, height)
+  xincr = width / 9.0 # 10 - 1 to make the last point be at the end
+  yincr = height / 100.0
+
+  data = []
+  datapoints.each_with_index do |dp, i|
+    val = 100 - UI.spinbox_value(dp)
+    data << [xincr * i, yincr * val]
+    i += 1
+  end
+
+  data
+end
+
+# === construct_graph  
+def construct_graph(datapoints, width, height, should_extend)
+  locations = point_locations(datapoints, width, height)
+  path = LibUI.draw_new_path(0) # winding
+  first_location = locations[0] # x and y
+  UI.draw_path_new_figure(path, first_location[0], first_location[1])
+  locations.each { |loc|
+    UI.draw_path_line_to(path, loc[0], loc[1])
+  }
+
+  if should_extend
+    LibUI.draw_path_line_to(path, width, height)
+    LibUI.draw_path_line_to(path, 0, height)
+    LibUI.draw_path_close_figure(path)
+  end
+
+  LibUI.draw_path_end(path)
+
+  return path
+end
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(
+  0, [1, 1, 1]
+) do |_area_handler, _area, area_draw_params|
+  area_draw_params = UI::FFI::AreaDrawParams.new(area_draw_params)
+  path = UI.draw_new_path(0) # winding
+  UI.draw_path_add_rectangle(path, 0, 0, area_draw_params.AreaWidth, area_draw_params.AreaHeight)
+  UI.draw_path_end(path)
+  set_solid_brush(brush, 0xFFFFFF, 1.0) # white
+  UI.draw_fill(area_draw_params.Context, path, brush.to_ptr)
+  UI.draw_free_path(path)
+  dsp = UI::FFI::DrawStrokeParams.malloc
+  dsp.to_ptr.free = Fiddle::RUBY_FREE
+  dsp.Cap = 0 # flat
+  dsp.Join = 0 # miter
+  dsp.Thickness = 2
+  dsp.MiterLimit = 10 # DEFAULT_MITER_LIMIT
+  dashes = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE)
+  dsp.Dashes = dashes
+  dsp.NumDashes = 0
+  dsp.DashPhase = 0
+
+  # draw axes
+  set_solid_brush(brush, 0x000000, 1.0) # black
+  graph_width, graph_height = *graph_size(area_draw_params.AreaWidth, area_draw_params.AreaHeight)
+
+  path = UI.draw_new_path(0) # winding
+  UI.draw_path_new_figure(path, X_OFF_LEFT, Y_OFF_TOP)
+  UI.draw_path_line_to(path, X_OFF_LEFT, Y_OFF_TOP + graph_height)
+  UI.draw_path_line_to(path, X_OFF_LEFT + graph_width, Y_OFF_TOP + graph_height)
+  UI.draw_path_end(path)
+  UI.draw_stroke(area_draw_params.Context, path, brush, dsp)
+  UI.draw_free_path(path)
+
+  # now transform the coordinate space so (0, 0) is the top-left corner of the graph
+  UI.draw_matrix_set_identity(matrix)
+  UI.draw_matrix_translate(matrix, X_OFF_LEFT, Y_OFF_TOP)
+  UI.draw_transform(area_draw_params.Context, matrix)
+
+  # now get the color for the graph itself and set up the brush
+  # uiColorButtonColor(colorButton, &graphR, &graphG, &graphB, &graphA)
+  graph_r = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE) # double
+  graph_g = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE) # double
+  graph_b = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE) # double
+  graph_a = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE) # double
+
+  UI.color_button_color(color_button, graph_r, graph_g, graph_b, graph_a)
+  brush.Type = 0 # solid
+  brush.R = graph_r[0, 8].unpack1('d')
+  brush.G = graph_g[0, 8].unpack1('d')
+  brush.B = graph_b[0, 8].unpack1('d')
+
+  # now create the fill for the graph below the graph line
+  path = construct_graph(datapoints, graph_width, graph_height, true)
+  brush.A = graph_a[0, 8].unpack1('d') / 2.0
+  UI.draw_fill(area_draw_params.Context, path, brush)
+  UI.draw_free_path(path)
+
+  # now draw the histogram line
+  path = construct_graph(datapoints, graph_width, graph_height, false)
+  brush.A = graph_a[0, 8].unpack1('d')
+  UI.draw_stroke(area_draw_params.Context, path, brush, dsp)
+  UI.draw_free_path(path)
+end
+
+# Assigning to local variables
+# This is intended to protect Fiddle::Closure from garbage collection.
+# See https://github.com/kojix2/LibUI/issues/8
+do_nothing = Fiddle::Closure::BlockCaller.new(0, [0]) {}
+key_event  = Fiddle::Closure::BlockCaller.new(1, [0]) { 0 }
+handler.Draw         = handler_draw_event
+handler.MouseEvent   = do_nothing
+handler.MouseCrossed = do_nothing
+handler.DragBroken   = do_nothing
+handler.KeyEvent     = key_event
+
+UI.freeInitError(init) unless init.nil?
+
+hbox = UI.new_horizontal_box
+UI.box_set_padded(hbox, 1)
+
+vbox = UI.new_vertical_box
+UI.box_set_padded(vbox, 1)
+UI.box_append(hbox, vbox, 0)
+UI.box_append(hbox, histogram, 1)
+
+datapoints = Array.new(10) do
+  UI.new_spinbox(0, 100).tap do |datapoint|
+    UI.spinbox_set_value(datapoint, Random.new.rand(90))
+    UI.spinbox_on_changed(datapoint) {
+      # Redraw the drawing area next:
+      UI.area_queue_redraw_all(histogram)
+    }
+    UI.box_append(vbox, datapoint, 0)
+  end
+end
+
+# === set_solid_brush
+def set_solid_brush(brush, color, alpha)
+  brush.Type = 0 # solid
+  brush.R = ((color >> 16) & 0xFF) / 255.0
+  brush.G = ((color >> 8) & 0xFF) / 255.0
+  brush.B = (color & 0xFF) / 255.0
+  brush.A = alpha
+  brush
+end
+
+set_solid_brush(brush, BLUE, 1.0)
+LibUI.color_button_set_color(color_button, brush.R, brush.G, brush.B, brush.A)
+
+LibUI.color_button_on_changed(color_button) {
+  LibUI.area_queue_redraw_all(histogram)
+}
+
+LibUI.box_append(vbox, color_button, 0)
+
+MAIN_WINDOW = LibUI.new_window('Histogram example', 800, 600, 1)
+LibUI.window_set_margined(MAIN_WINDOW, 1)
+LibUI.window_set_child(MAIN_WINDOW, hbox)
+
+should_quit = proc { |_ptr|
+  LibUI.control_destroy(MAIN_WINDOW)
+  LibUI.quit
+  0
+}
+
+LibUI.window_on_closing(MAIN_WINDOW, should_quit)
+LibUI.on_should_quit(should_quit)
+LibUI.control_show(MAIN_WINDOW)
+
+LibUI.main
+LibUI.quit

data/lib/libui_paradise/examples/simple/003_fancy_text_example.rb

@@ -0,0 +1,220 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require '003_fancy_text_example.rb'
+# =========================================================================== #
+require 'libui'
+
+UI = LibUI
+UI.init
+
+# =========================================================================== #
+# === WIDTH
+# =========================================================================== #
+WIDTH = 1000
+
+# =========================================================================== #
+# === USE_THIS_FONT
+# =========================================================================== #
+USE_THIS_FONT = 'Hack' # Or 'Courier New'.
+
+# =========================================================================== #
+# === append_with_attribute
+# =========================================================================== #
+def append_with_attribute(attr_str, what, attr1, attr2)
+  start_pos = LibUI.attributed_string_len(attr_str)
+  end_pos = start_pos + what.length
+  LibUI.attributed_string_append_unattributed(attr_str, what)
+  LibUI.attributed_string_set_attribute(attr_str, attr1, start_pos, end_pos)
+  LibUI.attributed_string_set_attribute(attr_str, attr2, start_pos, end_pos) if attr2
+end
+
+# =========================================================================== #
+# === make_attribute_string
+#
+# Create a new attributed string.
+# =========================================================================== #
+def make_attribute_string
+  attr_str = LibUI.new_attributed_string(
+    "Drawing strings with libui is done with the "\
+    "uiAttributedString and uiDrawTextLayout objects.\n" \
+     'uiAttributedString lets you have a variety of attributes: '
+  )
+
+  attr1 = LibUI.new_family_attribute(USE_THIS_FONT)
+  append_with_attribute(attr_str, 'font family', attr1, nil)
+  LibUI.attributed_string_append_unattributed(attr_str, ', ')
+
+  # ========================================================================= #
+  # === Use a bigger font next
+  # ========================================================================= #
+  bigger_font = UI.new_size_attribute(45)
+  append_with_attribute(attr_str, 'font size', bigger_font, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  # ========================================================================= #
+  # === Make bold text next                                        (bold tag)
+  # ========================================================================= #
+  attr1 = LibUI.new_weight_attribute(LibUI::TextWeightBold)
+  append_with_attribute(attr_str, 'font weight', attr1, nil)
+  LibUI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = LibUI.new_italic_attribute(UI::TextItalicItalic)
+  append_with_attribute(attr_str, 'font italicness', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = LibUI.new_stretch_attribute(UI::TextStretchCondensed)
+  append_with_attribute(attr_str, 'font stretch', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  # ========================================================================= #
+  # Influence the text-colour via RGB values.
+  # ========================================================================= #
+  attr1 = LibUI.new_color_attribute(0.75, 0.25, 0.5, 0.75)
+  append_with_attribute(attr_str, 'text color', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = LibUI.new_background_attribute(0.5, 0.5, 0.25, 0.5)
+  append_with_attribute(attr_str, 'text background color', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_underline_attribute(UI::UnderlineSingle)
+  append_with_attribute(attr_str, 'underline style', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  UI.attributed_string_append_unattributed(attr_str, 'and ')
+  attr1 = LibUI.new_underline_attribute(UI::UnderlineDouble)
+  attr2 = LibUI.new_underline_color_attribute(UI::UnderlineColorCustom, 1.0, 0.0, 0.5, 1.0)
+  append_with_attribute(attr_str, 'underline color', attr1, attr2)
+  UI.attributed_string_append_unattributed(attr_str, '. ')
+
+  UI.attributed_string_append_unattributed(attr_str, 'Furthermore, there are attributes allowing for ')
+  attr1 = LibUI.new_underline_attribute(UI::UnderlineSuggestion)
+  attr2 = LibUI.new_underline_color_attribute(UI::UnderlineColorSpelling, 0, 0, 0, 0)
+  append_with_attribute(attr_str, 'special underlines for indicating spelling errors', attr1, attr2)
+  UI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
+
+  UI.attributed_string_append_unattributed(attr_str,
+                                           'and control over OpenType features such as ligatures (for instance, ')
+  otf = UI.new_open_type_features
+  UI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 0)
+  attr1 = UI.new_features_attribute(otf)
+  append_with_attribute(attr_str, 'afford', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ' vs. ')
+  UI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 1)
+  attr1 = UI.new_features_attribute(otf)
+  append_with_attribute(attr_str, 'afford', attr1, nil)
+  UI.free_open_type_features(otf)
+  UI.attributed_string_append_unattributed(attr_str, ").\n")
+
+  UI.attributed_string_append_unattributed(attr_str,
+                                           'Use the controls '\
+                                           'opposite to the text '\
+                                           'to control properties of the text.')
+  attr_str
+end
+
+# =========================================================================== #
+# === on_font_changed
+# =========================================================================== #
+def on_font_changed(area)
+  UI.area_queue_redraw_all(area)
+end
+
+# =========================================================================== #
+# === on_combobox_selected
+# =========================================================================== #
+def on_combobox_selected(area)
+  UI.area_queue_redraw_all(area)
+end
+
+# === draw_event
+def draw_event(adp, attr_str, font_button, alignment)
+  area_draw_params = UI::FFI::AreaDrawParams.new(adp)
+  default_font = UI::FFI::FontDescriptor.malloc
+  default_font.to_ptr.free = Fiddle::RUBY_FREE
+  default_font = UI::FFI::FontDescriptor.malloc
+  default_font.to_ptr.free = Fiddle::RUBY_FREE
+  params = UI::FFI::DrawTextLayoutParams.malloc
+  params.to_ptr.free = Fiddle::RUBY_FREE
+
+  params.String = attr_str
+  UI.font_button_font(font_button, default_font)
+  params.DefaultFont = default_font
+  params.Width = area_draw_params.AreaWidth
+  params.Align = UI.combobox_selected(alignment)
+  text_layout = UI.draw_new_text_layout(params)
+  UI.draw_text(area_draw_params.Context, text_layout, 0, 0)
+  UI.draw_free_text_layout(text_layout)
+  UI.free_font_button_font(default_font)
+end
+
+UI.init
+
+handler = UI::FFI::AreaHandler.malloc
+handler.to_ptr.free = Fiddle::RUBY_FREE
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _area, adp|
+  draw_event(adp, @attr_str, @font_button, @alignment)
+end
+
+handler.Draw = handler_draw_event
+
+do_nothing = Fiddle::Closure::BlockCaller.new(0, [0]) {}
+key_event  = Fiddle::Closure::BlockCaller.new(1, [0]) { 0 }
+handler.MouseEvent   = do_nothing
+handler.MouseCrossed = do_nothing
+handler.DragBroken   = do_nothing
+handler.KeyEvent     = key_event
+
+LibUI.on_should_quit {
+  LibUI.control_destroy(main_window)
+}
+
+# =========================================================================== #
+# Assign to the main attributed string next.
+# =========================================================================== #
+@attr_str = make_attribute_string
+
+main_window = LibUI.new_window('Text-Drawing Example', WIDTH, 480, 1)
+LibUI.window_set_margined(main_window, 1)
+LibUI.window_on_closing(main_window) {
+  LibUI.control_destroy(main_window)
+  LibUI.quit
+  0
+}
+
+hbox = LibUI.new_horizontal_box
+LibUI.box_set_padded(hbox, 1)
+LibUI.window_set_child(main_window, hbox)
+
+vbox = LibUI.new_vertical_box
+LibUI.box_set_padded(vbox, 1)
+LibUI.box_append(hbox, vbox, 0)
+
+@font_button = LibUI.new_font_button
+LibUI.font_button_on_changed(@font_button) { on_font_changed(@area) }
+LibUI.box_append(vbox, @font_button, 0)
+
+form = LibUI.new_form
+LibUI.form_set_padded(form, 1)
+LibUI.box_append(vbox, form, 0)
+
+# Add a combobox entry next.
+# @alignment = ui_combobox(%w( Left Center Right ))
+@alignment = LibUI.new_combobox
+LibUI.combobox_append(@alignment, 'Left')
+LibUI.combobox_append(@alignment, 'Center')
+LibUI.combobox_append(@alignment, 'Right')
+LibUI.combobox_set_selected(@alignment, 0)
+LibUI.combobox_on_selected(@alignment) { on_combobox_selected(@area) }
+LibUI.form_append(form, 'Alignment', @alignment, 0)
+
+@area = LibUI.new_area(handler)
+LibUI.box_append(hbox, @area, 1)
+
+LibUI.control_show(main_window)
+LibUI.main
+
+LibUI.free_attributed_string(@attr_str)
+LibUI.uninit

data/lib/libui_paradise/examples/simple/004_date_time_picker.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'libui_paradise/examples/simple/004_date_time_picker.rb'
+# =========================================================================== #
+require 'libui'
+
+alias e puts
+
+# =========================================================================== #
+# === TITLE
+# =========================================================================== #
+TITLE = 'Date Time Pickers'
+
+LibUI.init
+
+vbox = LibUI.new_vertical_box
+
+date_time_picker = LibUI.new_date_time_picker
+
+time = LibUI::FFI::TM.malloc
+
+LibUI.date_time_picker_on_changed(date_time_picker) {
+  LibUI.date_time_picker_time(date_time_picker, time)
+  p sec: time.tm_sec,
+    min: time.tm_min,
+    hour: time.tm_hour,
+    mday: time.tm_mday,
+    mon: time.tm_mon,
+    year: time.tm_year,
+    wday: time.tm_wday,
+    yday: time.tm_yday,
+    isdst: time.tm_isdst
+}
+
+LibUI.box_set_padded(vbox, 1)
+LibUI.box_append(vbox, date_time_picker, 1)
+
+main_window = LibUI.new_window(TITLE, 300, 200, 1)
+LibUI.window_set_margined(main_window, 1)
+
+LibUI.window_on_closing(main_window) {
+  LibUI.control_destroy(main_window)
+  LibUI.quit
+  0
+}
+
+LibUI.window_set_child(main_window, vbox)
+LibUI.control_show(main_window)
+LibUI.main
+LibUI.quit

data/lib/libui_paradise/examples/simple/005_text_drawing_example.rb

@@ -0,0 +1,185 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# 005_text_drawing_example.rb
+# =========================================================================== #
+require 'libui'
+
+UI = LibUI
+
+# =========================================================================== #
+# === append_with_attribute
+# =========================================================================== #
+def append_with_attribute(attr_str, what, attr1, attr2)
+  start_pos = LibUI.attributed_string_len(attr_str)
+  end_pos = start_pos + what.length
+  LibUI.attributed_string_append_unattributed(attr_str, what)
+  LibUI.attributed_string_set_attribute(attr_str, attr1, start_pos, end_pos)
+  LibUI.attributed_string_set_attribute(attr_str, attr2, start_pos, end_pos) if attr2
+end
+
+# =========================================================================== #
+# === make_attribute_string
+# =========================================================================== #
+def make_attribute_string
+  attr_str = LibUI.new_attributed_string(
+    "Drawing strings with libui is done with the uiAttributedString and uiDrawTextLayout objects.\n" \
+     'uiAttributedString lets you have a variety of attributes: '
+  )
+
+  attr1 = LibUI.new_family_attribute('Courier New')
+  append_with_attribute(attr_str, 'font family', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = LibUI.new_size_attribute(18)
+  append_with_attribute(attr_str, 'font size', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_weight_attribute(UI::TextWeightBold)
+  append_with_attribute(attr_str, 'font weight', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_italic_attribute(UI::TextItalicItalic)
+  append_with_attribute(attr_str, 'font italicness', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_stretch_attribute(UI::TextStretchCondensed)
+  append_with_attribute(attr_str, 'font stretch', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_color_attribute(0.75, 0.25, 0.5, 0.75)
+  append_with_attribute(attr_str, 'text color', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_background_attribute(0.5, 0.5, 0.25, 0.5)
+  append_with_attribute(attr_str, 'text background color', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  attr1 = UI.new_underline_attribute(UI::UnderlineSingle)
+  append_with_attribute(attr_str, 'underline style', attr1, nil)
+  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  UI.attributed_string_append_unattributed(attr_str, 'and ')
+  attr1 = UI.new_underline_attribute(UI::UnderlineDouble)
+  attr2 = UI.new_underline_color_attribute(UI::UnderlineColorCustom, 1.0, 0.0, 0.5, 1.0)
+  append_with_attribute(attr_str, 'underline color', attr1, attr2)
+  UI.attributed_string_append_unattributed(attr_str, '. ')
+
+  UI.attributed_string_append_unattributed(attr_str, 'Furthermore, there are attributes allowing for ')
+  attr1 = UI.new_underline_attribute(UI::UnderlineSuggestion)
+  attr2 = UI.new_underline_color_attribute(UI::UnderlineColorSpelling, 0, 0, 0, 0)
+  append_with_attribute(attr_str, 'special underlines for indicating spelling errors', attr1, attr2)
+  UI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
+
+  UI.attributed_string_append_unattributed(attr_str,
+                                           'and control over OpenType features such as ligatures (for instance, ')
+  otf = LibUI.new_open_type_features
+  LibUI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 0)
+  attr1 = UI.new_features_attribute(otf)
+  append_with_attribute(attr_str, 'afford', attr1, nil)
+  LibUI.attributed_string_append_unattributed(attr_str, ' vs. ')
+  LibUI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 1)
+  attr1 = UI.new_features_attribute(otf)
+  append_with_attribute(attr_str, 'afford', attr1, nil)
+  LibUI.free_open_type_features(otf)
+  LibUI.attributed_string_append_unattributed(attr_str, ").\n")
+
+  LibUI.attributed_string_append_unattributed(attr_str,
+     "\nUse the controls opposite to the text to control "\
+     "properties of the text.")
+  attr_str
+end
+
+def on_font_changed(area)
+  LibUI.area_queue_redraw_all(area)
+end
+
+def on_combobox_selected(area)
+  LibUI.area_queue_redraw_all(area)
+end
+
+def draw_event(adp, attr_str, font_button, alignment)
+  area_draw_params = UI::FFI::AreaDrawParams.new(adp)
+  default_font = UI::FFI::FontDescriptor.malloc
+  default_font.to_ptr.free = Fiddle::RUBY_FREE
+  default_font = UI::FFI::FontDescriptor.malloc
+  default_font.to_ptr.free = Fiddle::RUBY_FREE
+  params = UI::FFI::DrawTextLayoutParams.malloc
+  params.to_ptr.free = Fiddle::RUBY_FREE
+
+  params.String = attr_str
+  UI.font_button_font(font_button, default_font)
+  params.DefaultFont = default_font
+  params.Width = area_draw_params.AreaWidth
+  params.Align = UI.combobox_selected(alignment)
+  text_layout = UI.draw_new_text_layout(params)
+  UI.draw_text(area_draw_params.Context, text_layout, 0, 0)
+  UI.draw_free_text_layout(text_layout)
+  UI.free_font_button_font(default_font)
+end
+
+LibUI.init
+
+handler = UI::FFI::AreaHandler.malloc
+handler.to_ptr.free = Fiddle::RUBY_FREE
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _area, adp|
+  draw_event(adp, @attr_str, @font_button, @alignment)
+end
+
+handler.Draw = handler_draw_event
+
+do_nothing = Fiddle::Closure::BlockCaller.new(0, [0]) {}
+key_event  = Fiddle::Closure::BlockCaller.new(1, [0]) { 0 }
+handler.MouseEvent   = do_nothing
+handler.MouseCrossed = do_nothing
+handler.DragBroken   = do_nothing
+handler.KeyEvent     = key_event
+
+UI.on_should_quit do
+  UI.control_destroy(main_window)
+end
+
+@attr_str = make_attribute_string
+
+main_window = UI.new_window('Text-Drawing Example', 640, 480, 1)
+UI.window_set_margined(main_window, 1)
+UI.window_on_closing(main_window) do
+  UI.control_destroy(main_window)
+  UI.quit
+  0
+end
+
+hbox = UI.new_horizontal_box
+UI.box_set_padded(hbox, 1)
+UI.window_set_child(main_window, hbox)
+
+vbox = UI.new_vertical_box
+UI.box_set_padded(vbox, 1)
+UI.box_append(hbox, vbox, 0)
+
+@font_button = UI.new_font_button
+UI.font_button_on_changed(@font_button) { on_font_changed(@area) }
+UI.box_append(vbox, @font_button, 0)
+
+form = UI.new_form
+UI.form_set_padded(form, 1)
+UI.box_append(vbox, form, 0)
+
+@alignment = UI.new_combobox
+UI.combobox_append(@alignment, 'Left')
+UI.combobox_append(@alignment, 'Center')
+UI.combobox_append(@alignment, 'Right')
+UI.combobox_set_selected(@alignment, 0)
+UI.combobox_on_selected(@alignment) { on_combobox_selected(@area) }
+UI.form_append(form, 'Alignment', @alignment, 0)
+
+@area = LibUI.new_area(handler)
+LibUI.box_append(hbox, @area, 1)
+
+LibUI.control_show(main_window)
+LibUI.main
+
+LibUI.free_attributed_string(@attr_str)
+LibUI.uninit