libui_paradise 0.2.49

data/lib/libui_paradise/examples/simple/006_midi_player.rb

@@ -0,0 +1,96 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui'
+
+LibUI.init
+
+UI = LibUI
+
+music_directory = File.expand_path(ARGV[0] || '~/Music/')
+midi_files      = Dir.glob(File.join(music_directory, '**/*.mid'))
+                     .sort_by { |path| File.basename(path) }
+VERSION = '0.0.1'.freeze
+
+@pid = nil
+
+play_midi = proc do
+  if @pid.nil? && @selected_file
+    begin
+      @pid = spawn "timidity #{@selected_file}"
+      @th = Process.detach @pid
+    rescue Errno::ENOENT => _error
+      warn 'Timidty++ was not found. Please install Timidity++.'
+      warn 'https://sourceforge.net/projects/timidity/'
+    end
+  end
+  0
+end
+
+stop_midi = proc do
+  if @pid
+    if @th.alive?
+      Process.kill(:SIGKILL, @pid)
+      @pid = nil
+    else
+      @pid = nil
+    end
+  end
+end
+
+help_menu = LibUI.new_menu('Help')
+version_item = LibUI.menu_append_item(help_menu, 'Version')
+
+LibUI.new_window('Tiny Midi Player', 200, 50, 1).tap do |main_window|
+  LibUI.menu_item_on_clicked(version_item) {
+    LibUI.msg_box(main_window,
+               'Tiny Midi Player',
+               "Written in Ruby\n" \
+               "https://github.com/kojix2/libui\n Version #{VERSION}"
+    )
+    0
+  }
+
+  LibUI.window_on_closing(main_window) {
+    LibUI.control_destroy(main_window)
+    LibUI.quit
+    0
+  }
+
+  LibUI.new_horizontal_box.tap do |hbox|
+    LibUI.new_vertical_box.tap do |vbox|
+      LibUI.new_button('▶').tap { |button1|
+        LibUI.button_on_clicked(button1, play_midi)
+        LibUI.box_append(vbox, button1, 1)
+      }
+      LibUI.new_button('■').tap { |button2|
+        LibUI.button_on_clicked(button2, stop_midi)
+        at_exit(&stop_midi)
+        LibUI.box_append(vbox, button2, 0)
+      }
+      LibUI.box_append(hbox, vbox, 0)
+    end
+    LibUI.window_set_child(main_window, hbox)
+
+    LibUI.new_combobox.tap do |cbox|
+      midi_files.each { |path|
+        name = File.basename(path)
+        LibUI.combobox_append(cbox, name)
+      }
+      LibUI.combobox_on_selected(cbox) { |ptr|
+        @selected_file = midi_files[UI.combobox_selected(ptr)]
+        if @th && @th.alive?
+          stop_midi.call
+          play_midi.call
+        end
+        0
+      }
+      LibUI.box_append(hbox, cbox, 1)
+    end
+  end
+  LibUI.control_show(main_window)
+end
+
+LibUI.main
+LibUI.quit

data/lib/libui_paradise/examples/simple/007_control_gallery.rb

@@ -0,0 +1,191 @@
+# require '007_control_gallery.rb'
+require 'libui'
+UI = LibUI
+
+UI.init
+
+should_quit = proc do
+  puts 'Bye Bye'
+  UI.control_destroy(MAIN_WINDOW)
+  UI.quit
+  0
+end
+
+# File menu
+menu = UI.new_menu('File')
+open_menu_item = UI.menu_append_item(menu, 'Open')
+UI.menu_item_on_clicked(open_menu_item) do
+  pt = UI.open_file(MAIN_WINDOW)
+  puts pt unless pt.null?
+end
+save_menu_item = UI.menu_append_item(menu, 'Save')
+UI.menu_item_on_clicked(save_menu_item) do
+  pt = UI.save_file(MAIN_WINDOW)
+  puts pt unless pt.null?
+end
+
+UI.menu_append_quit_item(menu)
+UI.on_should_quit(should_quit)
+
+# Edit menu
+edit_menu = UI.new_menu('Edit')
+UI.menu_append_check_item(edit_menu, 'Checkable Item_')
+UI.menu_append_separator(edit_menu)
+disabled_item = UI.menu_append_item(edit_menu, 'Disabled Item_')
+UI.menu_item_disable(disabled_item)
+
+preferences = UI.menu_append_preferences_item(menu)
+
+# Help menu
+help_menu = UI.new_menu('Help')
+UI.menu_append_item(help_menu, 'Help')
+UI.menu_append_about_item(help_menu)
+
+# Main Window
+MAIN_WINDOW = UI.new_window('Control Gallery', 600, 500, 1)
+UI.window_set_margined(MAIN_WINDOW, 1)
+UI.window_on_closing(MAIN_WINDOW, should_quit)
+
+vbox = UI.new_vertical_box
+UI.window_set_child(MAIN_WINDOW, vbox)
+hbox = UI.new_horizontal_box
+UI.box_set_padded(vbox, 1)
+UI.box_set_padded(hbox, 1)
+
+UI.box_append(vbox, hbox, 1)
+
+# Group - Basic Controls
+group = UI.new_group('Basic Controls')
+UI.group_set_margined(group, 1)
+UI.box_append(hbox, group, 1) # OSX bug?
+
+inner = UI.new_vertical_box
+UI.box_set_padded(inner, 1)
+UI.group_set_child(group, inner)
+
+# Button
+button = UI.new_button('Button')
+UI.button_on_clicked(button) do
+  UI.msg_box(MAIN_WINDOW, 'Information', 'You clicked the button')
+end
+UI.box_append(inner, button, 0)
+
+# Checkbox
+checkbox = UI.new_checkbox('Checkbox')
+UI.checkbox_on_toggled(checkbox) do |ptr|
+  checked = UI.checkbox_checked(ptr) == 1
+  UI.window_set_title(MAIN_WINDOW, "Checkbox is #{checked}")
+  UI.checkbox_set_text(ptr, "I am the checkbox (#{checked})")
+end
+UI.box_append(inner, checkbox, 0)
+
+# Label
+UI.box_append(inner, UI.new_label('Label'), 0)
+
+# Separator
+UI.box_append(inner, UI.new_horizontal_separator, 0)
+
+# Date Picker
+UI.box_append(inner, UI.new_date_picker, 0)
+
+# Time Picker
+UI.box_append(inner, UI.new_time_picker, 0)
+
+# Date Time Picker
+UI.box_append(inner, UI.new_date_time_picker, 0)
+
+# Font Button
+UI.box_append(inner, UI.new_font_button, 0)
+
+# Color Button
+UI.box_append(inner, UI.new_color_button, 0)
+
+inner2 = UI.new_vertical_box
+UI.box_set_padded(inner2, 1)
+UI.box_append(hbox, inner2, 1)
+
+# Group - Numbers
+group = UI.new_group('Numbers')
+UI.group_set_margined(group, 1)
+UI.box_append(inner2, group, 0)
+
+inner = UI.new_vertical_box
+UI.box_set_padded(inner, 1)
+UI.group_set_child(group, inner)
+
+# Spinbox
+spinbox = UI.new_spinbox(0, 100)
+UI.spinbox_set_value(spinbox, 42)
+UI.spinbox_on_changed(spinbox) do |ptr|
+  puts "New Spinbox value: #{UI.spinbox_value(ptr)}"
+end
+UI.box_append(inner, spinbox, 0)
+
+# Slider
+slider = UI.new_slider(0, 100)
+UI.box_append(inner, slider, 0)
+
+# Progressbar
+progressbar = UI.new_progress_bar
+UI.box_append(inner, progressbar, 0)
+
+UI.slider_on_changed(slider) do |ptr|
+  v = UI.slider_value(ptr)
+  puts "New Slider value: #{v}"
+  UI.progress_bar_set_value(progressbar, v)
+end
+
+# Group - Lists
+group = UI.new_group('Lists')
+UI.group_set_margined(group, 1)
+UI.box_append(inner2, group, 0)
+
+inner = UI.new_vertical_box
+UI.box_set_padded(inner, 1)
+UI.group_set_child(group, inner)
+
+# Combobox
+cbox = UI.new_combobox
+UI.combobox_append(cbox, 'combobox Item 1')
+UI.combobox_append(cbox, 'combobox Item 2')
+UI.combobox_append(cbox, 'combobox Item 3')
+UI.box_append(inner, cbox, 0)
+UI.combobox_on_selected(cbox) do |ptr|
+  puts "New combobox selection: #{UI.combobox_selected(ptr)}"
+end
+
+# Editable Combobox
+ebox = UI.new_editable_combobox
+UI.editable_combobox_append(ebox, 'Editable Item 1')
+UI.editable_combobox_append(ebox, 'Editable Item 2')
+UI.editable_combobox_append(ebox, 'Editable Item 3')
+UI.box_append(inner, ebox, 0)
+
+# Radio Buttons
+rb = UI.new_radio_buttons
+UI.radio_buttons_append(rb, 'Radio Button 1')
+UI.radio_buttons_append(rb, 'Radio Button 2')
+UI.radio_buttons_append(rb, 'Radio Button 3')
+UI.box_append(inner, rb, 1)
+
+# Tab
+tab = UI.new_tab
+hbox1 = UI.new_horizontal_box
+hbox2 = UI.new_horizontal_box
+UI.tab_append(tab, 'Page 1', hbox1)
+UI.tab_append(tab, 'Page 2', hbox2)
+UI.tab_append(tab, 'Page 3', UI.new_horizontal_box)
+UI.box_append(inner2, tab, 1)
+
+# Text Entry
+text_entry = UI.new_entry
+UI.entry_set_text text_entry, 'Please enter your feelings'
+UI.entry_on_changed(text_entry) do |ptr|
+  puts "Current textbox data: '#{UI.entry_text(ptr)}'"
+end
+UI.box_append(hbox1, text_entry, 1)
+
+UI.control_show(MAIN_WINDOW)
+
+LibUI.main
+LibUI.quit

data/lib/libui_paradise/examples/simple/008_basic_area_example.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui'
+
+UI = LibUI
+UI.init
+
+handler = UI::FFI::AreaHandler.malloc
+handler.to_ptr.free = Fiddle::RUBY_FREE
+area    = UI.new_area(handler)
+brush   = UI::FFI::DrawBrush.malloc
+brush.to_ptr.free = Fiddle::RUBY_FREE
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _, area_draw_params|
+  path = UI.draw_new_path(0)
+  UI.draw_path_add_rectangle(path, 0, 0, 500, 500)
+  UI.draw_path_end(path)
+  brush.Type = 0
+  # Define the colour in use:
+  brush.R = 0.2
+  brush.G = 0.4
+  brush.B = 0.8
+  brush.A = 1.0
+  area_draw_params = UI::FFI::AreaDrawParams.new(area_draw_params)
+  UI.draw_fill(area_draw_params.Context, path, brush.to_ptr)
+  UI.draw_free_path(path)
+end
+
+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
+
+box = UI.new_vertical_box
+UI.box_set_padded(box, 1)
+UI.box_append(box, area, 1)
+
+main_window = UI.new_window('Basic Area', 800, 500, 1)
+UI.window_set_margined(main_window, 1)
+UI.window_set_child(main_window, box)
+
+UI.window_on_closing(main_window) {
+  UI.control_destroy(main_window)
+  UI.quit
+  0
+}
+UI.control_show(main_window)
+
+UI.main
+UI.quit

data/lib/libui_paradise/examples/simple/009_spectrum.rb

@@ -0,0 +1,107 @@
+#!/usr/bin/env ruby
+# =========================================================================== #
+require 'libui'
+require 'ffi-portaudio'  # https://github.com/nanki/ffi-portaudio
+require 'numo/pocketfft' # https://github.com/yoshoku/numo-pocketfft
+
+# =========================================================================== #
+# === FFTStream
+# =========================================================================== #
+class FFTStream < FFI::PortAudio::Stream
+  def process(input, _output, frame_count, _time_info, _status_flags, _user_data)
+    i = Numo::Int16.cast(input.read_array_of_int16(frame_count))
+    @spec = (Numo::Pocketfft.rfft(i)[0..511].abs / 1000.0).to_a
+    :paContinue
+  end
+
+  def spec
+    @spec || [0] * 512
+  end
+end
+    
+FFI::PortAudio::API.Pa_Initialize
+
+input = FFI::PortAudio::API::PaStreamParameters.new
+input[:device] = FFI::PortAudio::API.Pa_GetDefaultInputDevice
+input[:channelCount] = 1
+input[:sampleFormat] = FFI::PortAudio::API::Int16
+input[:suggestedLatency] = 0
+input[:hostApiSpecificStreamInfo] = nil
+stream = FFTStream.new
+stream.open(input, nil, 44_100, 1024)
+stream.start
+
+
+UI = LibUI
+
+UI.init
+
+handler = UI::FFI::AreaHandler.malloc
+area    = UI.new_area(handler)
+
+brush = UI::FFI::DrawBrush.malloc.tap do |b|
+  b.Type = 0
+  b.R = 0.9
+  b.G = 0.2
+  b.B = 0.6
+  b.A = 1.0
+end
+
+dashes = Fiddle::Pointer.malloc(8, Fiddle::RUBY_FREE)
+stroke_params = UI::FFI::DrawStrokeParams.malloc.tap do |sp|
+  sp.Cap = UI::DrawLineCapFlat
+  sp.Join = UI::DrawLineJoinMiter
+  sp.MiterLimit = 10
+  sp.Dashes = dashes
+  sp.NumDashes = 0
+  sp.DashPhase = 0
+  sp.Thickness = 1.0
+end
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _, area_draw_params|
+  UI.draw_new_path(UI::DrawFillModeWinding).then do |path|
+    stream.spec.each.with_index do |i, j|
+      UI.draw_path_new_figure(path, 10 + j, 121)
+      UI.draw_path_line_to(path, 10 + j, 120 - [i, 120].min)
+    end
+    UI.draw_path_end(path)
+
+    area_draw_params = UI::FFI::AreaDrawParams.new(area_draw_params)
+    UI.draw_stroke(area_draw_params.Context, path, brush.to_ptr, stroke_params)
+    UI.draw_free_path(path)
+  end
+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
+
+box = UI.new_vertical_box
+UI.box_set_padded(box, 1)
+UI.box_append(box, area, 1)
+
+main_window = UI.new_window('SPECTRUM', 560, 150, 1)
+UI.window_set_margined(main_window, 1)
+UI.window_set_child(main_window, box)
+
+UI.window_on_closing(main_window) do
+  UI.control_destroy(main_window)
+  UI.quit
+  stream.close
+  ::FFI::PortAudio::API.Pa_Terminate
+  0
+end
+UI.control_show(main_window)
+
+UI.queue_main do
+  UI.timer(100) do
+    UI.area_queue_redraw_all(area)
+    1
+  end
+end
+UI.main
+UI.quit

data/lib/libui_paradise/examples/simple/README.md

@@ -0,0 +1,7 @@
+This directory contains examples that are only allowed to use 
+vanilla-code for kojix2' libui. If you want to tap into the
+code that the libui_paradise gem makes available then you
+should look at the complex/ subdirectory instead.
+
+External dependencies are permissible, if kojix2' makes use
+of them in the examples he provides.

data/lib/libui_paradise/experimental/dsl.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+def do_call_this_method
+  e 'Hello World!'
+end
+
+window {
+
+  button {
+  
+  }
+
+}

data/lib/libui_paradise/extensions/counters.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'libui_paradise/extensions/counters.rb
+# =========================================================================== #
+module LibuiParadise
+
+# =========================================================================== #
+# === @counter_left
+# =========================================================================== #
+@counter_left = 0
+
+# =========================================================================== #
+# === LibuiParadise.counter_left?
+# =========================================================================== #
+def self.counter_left?
+  @counter_left
+end; self.instance_eval { alias counter_left  counter_left? } # === LibuiParadise.counter_left
+     self.instance_eval { alias left_counter  counter_left? } # === LibuiParadise.left_counter
+     self.instance_eval { alias left_counter? counter_left? } # === LibuiParadise.left_counter?
+
+# =========================================================================== #
+# === LibuiParadise.counter_left=
+# =========================================================================== #
+def self.counter_left=(i = 1)
+  @counter_left = i
+end
+
+# =========================================================================== #
+# === @counter_top
+# =========================================================================== #
+@counter_top = 0
+
+# =========================================================================== #
+# === LibuiParadise.counter_top?
+# =========================================================================== #
+def self.counter_top?
+  @counter_top
+end; self.instance_eval { alias counter_top  counter_top? } # === LibuiParadise.counter_top
+     self.instance_eval { alias top_counter  counter_top? } # === LibuiParadise.top_counter
+     self.instance_eval { alias top_counter? counter_top? } # === LibuiParadise.top_counter?
+
+# =========================================================================== #
+# === LibuiParadise.counter_top=
+# =========================================================================== #
+def self.counter_top=(i = 1)
+  @counter_top = i
+end
+
+# =========================================================================== #
+# === LibuiParadise.counters?
+# =========================================================================== #
+def self.counters?
+  return [@counter_left, @counter_top]
+end
+
+end

data/lib/libui_paradise/extensions/extensions.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === LibuiParadise::Extensions
+#
+# This .rb file is primarly used to "extend" libui in a convenient
+# way. That way we only have to require this file and the rest will
+# be set up correctly for us.
+# =========================================================================== #
+# require 'libui_paradise/extensions/extensions.rb
+# include Libuiparadise::Extensions
+# =========================================================================== #
+require 'libui' # Mandatory require-call.
+
+module LibuiParadise
+
+module Extensions # === LibuiParadise::Extensions
+
+  require 'libui_paradise/fiddle/pointer.rb'
+  require 'libui_paradise/extensions/hash_fiddle_pointer_widgets.rb'
+  require 'libui_paradise/extensions/misc.rb'
+  require 'libui_paradise/libui_classes/libui_classes.rb'
+
+end; end
+
+alias e puts
+
+LibuiParadise::Extensions.initializer # Make UI known here.