gtk_paradise 0.9.120

data/lib/gtk_paradise/examples/gtk3/020_radio_button_window.rb

@@ -0,0 +1,101 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === Gtk::RadioButtonWindow
+# =========================================================================== #
+# This code shows an example how to work with radio-buttons in gtk3.
+# =========================================================================== #
+# require 'gtk_paradise/examples/gtk3/020_radio_button_window.rb'
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/020_radio_button_window.rb
+# =========================================================================== #
+require 'gtk3'
+
+module Gtk
+
+class RadioButtonWindow < Gtk::Box # === Gtk::RadioButtonWindow
+
+  alias e puts
+
+  # ========================================================================= #
+  # === TITLE
+  # ========================================================================= #
+  TITLE = 'RadioButton Demo'
+
+  # ========================================================================= #
+  # === VERTICAL_OR_HORIZONTAL
+  # ========================================================================= #
+  VERTICAL_OR_HORIZONTAL = :vertical
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      run_already = true
+    )
+    super(VERTICAL_OR_HORIZONTAL, 6)
+    reset
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset
+  # ========================================================================= #
+  def reset
+    set_title(TITLE) if respond_to? :set_title
+    set_border_width(15)
+  end
+
+  # ========================================================================= #
+  # === connect_skeleton
+  # ========================================================================= #
+  def connect_skeleton
+    pack_start(@button1)
+    pack_start(@button2)
+    pack_start(@button3)
+  end
+
+  # ========================================================================= #
+  # === on_button_toggled
+  # ========================================================================= #
+  def on_button_toggled(button, name)
+    active_or_not_active = button.active? ? 'on' : 'off'
+    e "Button #{name} was turned #{active_or_not_active} - "\
+      "its text is: #{button.label}"
+  end
+
+  # ========================================================================= #
+  # === create_skeleton
+  # ========================================================================= #
+  def create_skeleton
+    @button1 = ::Gtk::RadioButton.new(label: '_Austria', use_underline: true)
+    @button1.signal_connect(:toggled) { |b| on_button_toggled(b, 1) }
+
+    @button2 = ::Gtk::RadioButton.new(member: @button1, label: '_Germany', use_underline: true)
+    @button2.signal_connect(:toggled) { |b| on_button_toggled(b, 2) }
+
+    @button3 = ::Gtk::RadioButton.new(member: @button1, label: 'Fr_ance', use_underline: true)
+    @button3.signal_connect(:toggled) { |b| on_button_toggled(b, 3) }
+  end
+
+  # ========================================================================= #
+  # === run
+  # ========================================================================= #
+  def run
+    create_skeleton
+    connect_skeleton
+  end
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  radio_button_window = Gtk::RadioButtonWindow.new
+  window = Gtk::Window.new
+  window.add(radio_button_window)
+  window.signal_connect(:destroy) { Gtk.main_quit }
+  window.set_size_request(800, 150)
+  window.show_all
+  window.move(0, 0)
+  Gtk.main
+end

data/lib/gtk_paradise/examples/gtk3/021_scale_button_demo.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === Gtk::ScaleButtonDemo
+# =========================================================================== #
+# This example will show a typical "scale-button" in gtk3.
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/021_scale_button_demo.rb
+# =========================================================================== #
+require 'gtk3'
+
+module Gtk
+
+class ScaleButtonDemo < ::Gtk::Box
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    super(:vertical)
+    scale = ::Gtk::ScaleButton.new
+    scale.set_value(50)
+    scale.set_valign(:end)
+    scale.set_halign(:end)
+    add(scale)
+    self.vexpand = true
+    self.hexpand = true
+    scale.set_icons(
+      %w( go-bottom go-top system-run )
+    )
+    scale.signal_connect(:value_changed) { |_widget, value|
+      puts "value changed: #{value}"
+    }
+  end
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  window = Gtk::Window.new
+  window.set_size_request(300, 300)
+  window.move(0, 0)
+  window.add(
+    Gtk::ScaleButtonDemo.new
+  )
+  # see here for an explication  on icons order
+  #   https://developer.gnome.org/gtk3/stable/GtkScaleButton.html#GtkScaleButton--icons
+  window.show_all
+  window.signal_connect(:destroy) { Gtk.main_quit }
+  Gtk.main
+end

data/lib/gtk_paradise/examples/gtk3/022_popup_example.rb

@@ -0,0 +1,90 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This is a popup example, that is, when you click the right mouse button,
+# a context-menu will emerge.
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/popup_example.rb
+# =========================================================================== #
+require 'gtk3'
+
+module Gtk
+
+class PopupExample < ::Gtk::Box # === ::::PopupExample
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    super(:horizontal, 10)
+    @label_widget = ::Gtk::Label.new(
+      "Hello World\nYou may 'right-click' me\n\n or use <Shift+F10>"
+    )
+    pack_start(@label_widget, padding: 20)
+    # ======================================================================= #
+    # First, build up our menu.
+    # ======================================================================= #
+    @context_menu = ::Gtk::Menu.new
+    @context_menu.append(mitem1 = ::Gtk::MenuItem.new(label: 'Test1'))
+    @context_menu.append(mitem2 = ::Gtk::MenuItem.new(label: 'Test2'))
+    @context_menu.append(mitem3 = ::Gtk::MenuItem.new(label: 'Test3'))
+    @context_menu.append(mitem4 = ::Gtk::MenuItem.new(label: 'Test4'))
+    @context_menu.append(mitem5 = ::Gtk::MenuItem.new(label: 'Test5'))
+    @context_menu.append(mitem6 = ::Gtk::CheckMenuItem.new(label: 'Test6'))
+    @context_menu.show_all
+    # ======================================================================= #
+    # Next, let these menu-items respond to when the user activates them.
+    # ======================================================================= #
+    mitem1.signal_connect(:activate) { |widget| puts "#{widget.class} - Test1" }
+    mitem2.signal_connect(:activate) { |widget| puts "#{widget.class} - Test2" }
+    mitem3.signal_connect(:activate) { |widget| puts "#{widget.class} - Test3" }
+    mitem4.signal_connect(:activate) { |widget| puts "#{widget.class} - Test4" }
+    mitem5.signal_connect(:activate) { |widget| puts "#{widget.class} - Test5" }
+  end
+
+  # ========================================================================= #
+  # === context_menu?
+  # ========================================================================= #
+  def context_menu?
+    @context_menu
+  end; alias context_menu context_menu? # === context_menu
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  popup_example = Gtk::PopupExample.new
+  window = Gtk::Window.new('A simple example-context-menu')
+  # ========================================================================= #
+  # Make window sensitive to Right-mouse-click, to open the pop-up menu.
+  # window.add_events(:button_press_mask) # ← this is the variant for ruby-gtk3
+  # ========================================================================= #
+  window.add_events(:button_press_mask) # in gtk-paradise this becomes: add_button_press_events
+  # ========================================================================= #
+  # Handle right-mouse-button click events:
+  # ========================================================================= #
+  window.signal_connect(:button_press_event) { |widget, event|
+    # ========================================================================= #
+    # Note that 'menu' was defined above, as an instance of Gtk::Menu.
+    # ========================================================================= #
+    if (event.button == 3) # right mouse click event.
+      popup_example.context_menu.popup(nil, nil, event.button, event.time)
+    end
+  }
+  # ========================================================================= #
+  # Make this window sensitive to <Shift+F10> accelerator keys.
+  # These accelerator keys generate the 'popup-menu' signal for
+  # the window, which opens the popup-menu.
+  # ========================================================================= #
+  window.signal_connect(:popup_menu) { |widget|
+    # context_menu.popup(nil, nil, 0, Gdk::CURRENT_TIME)
+    puts 'shift+F10 was pressed' # This will ONLY show up via shift+F10, and not via right-mouse button click event.
+    popup_example.context_menu.popup(nil, nil, 0, Gdk::CURRENT_TIME)
+  }
+  window.set_default_size(550, 380).show_all
+  window.signal_connect(:destroy) { Gtk.main_quit }
+  window.add(popup_example)
+  window.show_all
+  window.move(0, 0)
+  Gtk.main
+end

data/lib/gtk_paradise/examples/gtk3/023_horizontal_and_vertical_scale.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/horizontal_and_vertical_scale.rb
+# =========================================================================== #
+require 'gtk3'
+
+window = Gtk::Window.new
+box = Gtk::Box.new(:horizontal)
+hscale = Gtk::Scale.new(:horizontal)
+hscale.round_digits = 5
+hscale.draw_value = 20
+vscale = Gtk::Scale.new(:vertical)
+box.pack_start(vscale, padding: 10)
+box.pack_start(Gtk::Separator.new(:horizontal), padding: 10)
+box.pack_start(hscale, padding: 10)
+box.show_all
+window.add(box)
+window.move(0, 0)
+window.show_all
+window.set_size_request(500, 500)
+Gtk.main

data/lib/gtk_paradise/examples/gtk3/024_installation_assistant.rb

@@ -0,0 +1,365 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/installation_assistant.rb
+# =========================================================================== #
+require 'gtk3'
+
+# =========================================================================== #
+# === create_new_label
+#
+# Creates a new label.
+# =========================================================================== #
+def create_new_label(text)
+  return Gtk::Label.new(text)
+end
+
+# =========================================================================== #
+# === add_completion_test_page
+# =========================================================================== #
+def add_completion_test_page(assistant, text, visible, complete)
+  page = Gtk::Box.new(:vertical, 0)
+  check = Gtk::CheckButton.new('Complete')
+  page.add(Gtk::Label.new(text))
+  page.add(check)
+  check.active = complete
+  check.signal_connect('toggled') {
+    complete = check.active?
+    assistant.set_page_complete(page, complete)
+  }
+  page.show_all if visible
+  assistant.append_page(page)
+  assistant.set_page_title(page, text)
+  assistant.set_page_complete(page, complete)
+  return page
+end
+
+# ================================================================ #
+# === prepare_cb
+#
+# Was macht das?
+# ================================================================ # 
+def prepare_cb(assistant, page)
+  if page.is_a?(Gtk::Label)
+    puts "prepare: #{page.text}"
+  elsif assistant.get_page_type(page) == :progress
+    progress = page.child
+    assistant.set_page_complete(page, false)
+    progress.fraction = 0.0
+    GLib::Timeout.add(300) {
+      retval = true
+      page = assistant.get_nth_page(assistant.current_page)
+      progress = page.child
+      value = progress.fraction = progress.fraction + 0.1
+      if value >= 1.0
+        assistant.set_page_complete(page, true)
+        retval = false
+      end
+      retval
+    }
+  else
+    puts "prepare: #{assistant.current_page}"
+  end
+end
+
+$simple_assistant = nil
+# =========================================================================== #
+# === create_simple_assistant
+#
+# Create a simple assistant.
+# =========================================================================== #
+def create_simple_assistant
+  if $simple_assistant.nil?
+    $simple_assistant = Gtk::Assistant.new
+    $simple_assistant.set_default_size(400, 400)
+    $simple_assistant.signal_connect(:cancel) {
+      puts 'cancel'
+      $simple_assistant.hide
+    }
+    $simple_assistant.signal_connect(:close) {
+      puts 'close'
+      $simple_assistant.hide
+    }
+    $simple_assistant.signal_connect(:apply) {
+      puts 'apply'
+    }
+    # Immer wenn der Assistant "prepared" wird, macht er irgendwas
+    $simple_assistant.signal_connect(:prepare) { |assistant, page|
+      prepare_cb(assistant, page)
+    }
+    
+    # Ein label.
+    page = create_new_label('Page 1')
+    page.show
+    $simple_assistant.append_page(page)
+    $simple_assistant.set_page_title(page, 'Page 1')
+    $simple_assistant.set_page_complete(page, true)
+
+    page = create_new_label('Page 2')
+    page.show
+    $simple_assistant.append_page(page)
+    $simple_assistant.set_page_title(page, 'Page 2')
+    $simple_assistant.set_page_type(page, Gtk::AssistantPageType::CONFIRM)
+    $simple_assistant.set_page_complete(page, true)
+  end
+  unless $simple_assistant.visible?
+    $simple_assistant.show
+  else
+    $simple_assistant.destroy
+    $simple_assistant = nil
+  end
+end
+
+$generous_assistant = nil
+# ==================================================================== #
+# === create_generous_assistant
+# ==================================================================== #
+def create_generous_assistant
+  if $generous_assistant.nil?
+    $generous_assistant = Gtk::Assistant.new
+    $generous_assistant.set_default_size(400, 300)
+    $generous_assistant.signal_connect('cancel') {
+      puts 'cancel'
+      $generous_assistant.hide
+    }
+    $generous_assistant.signal_connect('close') {
+      puts 'close'
+      $generous_assistant.hide
+    }
+    $generous_assistant.signal_connect('apply') {
+      puts 'apply'
+    }
+    $generous_assistant.signal_connect('prepare') { |assistant, page|
+      prepare_cb(assistant, page)
+    }
+
+    page = create_new_label("Introduction")
+    page.show
+    $generous_assistant.append_page(page)
+    $generous_assistant.set_page_title(page, "Introduction")
+    $generous_assistant.set_page_type(page, :intro)
+    $generous_assistant.set_page_complete(page, true)
+
+    page = add_completion_test_page($generous_assistant, "Content", true, false)
+    next_ = add_completion_test_page($generous_assistant, "More Content", true, true)
+
+    check = Gtk::CheckButton.new('Next page visible')
+    check.active = true
+    check.signal_connect(:toggled) {
+      puts "beuh"
+      next_.visible = check.active?
+    }
+    check.show
+    page.add(check)
+
+    add_completion_test_page($generous_assistant, "Even More Content", true, true)
+
+    page = create_new_label('Confirmation')
+    page.show
+    $generous_assistant.append_page(page)
+    $generous_assistant.set_page_title(page, 'Confirmation')
+    $generous_assistant.set_page_type(page, :confirm)
+    $generous_assistant.set_page_complete(page, true)
+
+    page = Gtk::Alignment.new(0.5, 0.5, 0.9, 0.0)
+    page.add(Gtk::ProgressBar.new)
+    page.show_all
+    $generous_assistant.append_page(page)
+    $generous_assistant.set_page_title(page, 'Progress')
+    $generous_assistant.set_page_type(page, :progress)
+    
+    $generous_assistant.set_page_complete(page, true)
+
+    page = create_new_label('Summary')
+    page.show
+    $generous_assistant.append_page(page)
+    $generous_assistant.set_page_title(page, 'Summary')
+    $generous_assistant.set_page_type(page, :summary)
+    $generous_assistant.set_page_complete(page, true)
+  end
+
+  if !$generous_assistant.visible?
+    $generous_assistant.show
+  else
+    $generous_assistant.destroy
+    $generous_assistant = nil
+  end
+
+end
+
+@selected_branch = 'A'
+$nonlinear_assistant = nil
+# ==================================================================== #
+# === create_nonlinear_assistant
+# ==================================================================== #
+def create_nonlinear_assistant
+  if $nonlinear_assistant.nil?
+    $nonlinear_assistant = Gtk::Assistant.new
+    $nonlinear_assistant.set_default_size(400, 300)
+    $nonlinear_assistant.signal_connect('cancel') {
+      puts "cancel"
+      $nonlinear_assistant.hide
+    }
+    $nonlinear_assistant.signal_connect('close') {
+      puts 'close'
+      $nonlinear_assistant.hide
+    }
+    $nonlinear_assistant.signal_connect('apply') {
+      puts 'apply'
+    }
+    $nonlinear_assistant.signal_connect('prepare') { |assistant, page|
+      prepare_cb(assistant, page)
+    }
+    $nonlinear_assistant.set_forward_page_func { |current_page|
+      retval = -1
+      case current_page
+      when 0
+        case @selected_branch
+        when 'A'
+          retval = 1
+        else
+          retval = 2
+        end
+      when 1, 2
+        retval = 3
+      end
+      retval
+    }
+    page = Gtk::Box.new(:vertical, 6)
+    button = Gtk::RadioButton.new(label: 'branch A')
+    page.pack_start(button, expand: false, fill: false, padding: 0)
+    button.signal_connect(:toggled) {
+      @selected_branch = 'A'
+    }
+    button.active = true
+    button = Gtk::RadioButton.new(label: 'branch B')
+    page.pack_start(button, expand: false, fill: false, padding: 0)
+    button.signal_connect(:toggled) {
+      @selected_branch = 'B'
+    }
+    page.show_all
+    $nonlinear_assistant.append_page(page)
+    $nonlinear_assistant.set_page_title(page, "Page 1")
+    $nonlinear_assistant.set_page_complete(page, true)
+
+    page = create_new_label("Page 2A")
+    page.show
+    $nonlinear_assistant.append_page(page)
+    $nonlinear_assistant.set_page_title(page, 'Page 2A')
+    $nonlinear_assistant.set_page_complete(page, true)
+
+    page = create_new_label('Page 2B')
+    page.show
+    $nonlinear_assistant.append_page(page)
+    $nonlinear_assistant.set_page_title(page, 'Page 2B')
+    $nonlinear_assistant.set_page_complete(page, true)
+
+    page = create_new_label('Confirmation')
+    page.show
+    $nonlinear_assistant.append_page(page)
+    $nonlinear_assistant.set_page_title(page, 'Confirmation')
+    $nonlinear_assistant.set_page_type(page, :confirm)
+    $nonlinear_assistant.set_page_complete(page, true)
+  end
+
+  unless $nonlinear_assistant.visible?
+    $nonlinear_assistant.show
+  else
+    $nonlinear_assistant.destroy
+    $nonlinear_assistant = nil
+  end
+end
+
+@full_featured_assistant = nil
+# ==================================================================== #
+# === create_full_featured_assistant
+# ==================================================================== #
+def create_full_featured_assistant
+  if @full_featured_assistant.nil?
+    @full_featured_assistant = Gtk::Assistant.new
+    @full_featured_assistant.set_default_size(400, 300)
+    @full_featured_assistant.signal_connect(:cancel) {
+      puts "cancel"
+      @full_featured_assistant.hide
+    }
+    @full_featured_assistant.signal_connect(:close) {
+      puts 'close'
+      @full_featured_assistant.hide
+    }
+    @full_featured_assistant.signal_connect(:apply) {
+      puts "apply"
+    }
+    @full_featured_assistant.signal_connect(:prepare) { |assistant, page|
+      prepare_cb(assistant, page)
+    }
+
+    button = Gtk::Button.new(label: Gtk::Stock::STOP)
+    button.show
+    @full_featured_assistant.add_action_widget(button)
+
+    page = create_new_label("Page 1")
+    page.show
+    @full_featured_assistant.append_page(page)
+    @full_featured_assistant.set_page_title(page, "Page 1")
+    @full_featured_assistant.set_page_complete(page, true)
+
+    #- set a side image
+    pixbuf = page.render_icon(Gtk::Stock::DIALOG_WARNING, Gtk::IconSize::DIALOG)
+    @full_featured_assistant.set_page_side_image(page, pixbuf)
+    
+    #- set a header image
+    pixbuf = page.render_icon(Gtk::Stock::DIALOG_INFO, Gtk::IconSize::DIALOG)
+    @full_featured_assistant.set_page_header_image(page, pixbuf)
+
+    page = create_new_label("Invisible page")
+    @full_featured_assistant.append_page(page)
+
+    page = create_new_label("Page 3")
+    page.show
+    @full_featured_assistant.append_page(page)
+    @full_featured_assistant.set_page_title(page, "Page 3")
+    @full_featured_assistant.set_page_type(page, :confirm)
+    @full_featured_assistant.set_page_complete(page, true)
+
+    #- set a header image
+    pixbuf = page.render_icon(Gtk::Stock::DIALOG_INFO, Gtk::IconSize::DIALOG)
+    @full_featured_assistant.set_page_header_image(page, pixbuf)
+  end
+
+  if ! @full_featured_assistant.visible?
+    @full_featured_assistant.show
+  else
+    @full_featured_assistant.destroy
+    @full_featured_assistant = nil
+  end
+end
+
+buttons_creating_assistants = [
+  [ 'simple assistant',        proc { create_simple_assistant        }],
+  [ 'generous assistant',      proc { create_generous_assistant      }],
+  [ 'nonlinear assistant',     proc { create_nonlinear_assistant     }],
+  [ 'full featured assistant', proc { create_full_featured_assistant }],
+]
+
+if ENV['RTL']
+  Gtk::Widget.default_direction = Gtk::Widget::TEXT_DIR_RTL
+end
+
+window = Gtk::Window.new(Gtk::WindowType::TOPLEVEL)
+window.signal_connect(:destroy) { Gtk.main_quit }
+window.signal_connect(:delete_event) { false }
+
+box = Gtk::Box.new(:vertical, 6)
+window.add(box)
+
+buttons_creating_assistants.each { |one_button|
+  button = Gtk::Button.new(label: one_button[0])
+  button.signal_connect(:clicked) {
+    one_button[1].call
+  }
+  box.pack_start(button, expand: true, fill: true, padding: 0)
+}
+
+window.show_all
+Gtk.main

data/lib/gtk_paradise/examples/gtk3/025_switch_example.rb

@@ -0,0 +1,55 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/switch_example.rb
+# =========================================================================== #
+require 'gtk3'
+
+window = Gtk::Window.new
+window.set_size_request(150, 600)
+window.title = 'Switch Widgets'
+window.border_width = 4
+vbox = Gtk::Box.new(:vertical)
+vbox.pack_start(
+  switch1 = Gtk::Switch.new,
+  expand: false,
+  fill:   false
+)
+vbox.pack_start(
+  switch2 = Gtk::Switch.new,
+  expand: false,
+  fill:   false
+)
+vbox.pack_start(
+  switch3 = Gtk::Switch.new,
+  expand: false,
+  fill:   false
+)
+array_switches = []
+array_switches << switch1
+array_switches << switch2
+array_switches << switch3
+
+def on_switch_activated(switch)
+  state = switch.active? ? 'on' : 'off'
+  puts "Switch was turned #{state}"
+end
+
+array_switches.each {|switch|
+ switch.signal_connect('notify::active') { |entry|
+   on_switch_activated(entry)
+ }
+}
+
+  
+array_switches.each {|switch|
+  switch.set_hexpand(false)
+  switch.set_vexpand(false)
+  switch.set_size_request(45, 18)
+}
+
+window.add(vbox)
+window.move(0, 0)
+window.show_all
+Gtk.main