gtk_paradise 0.9.120 → 0.11.19

data/lib/gtk_paradise/base_module/misc.rb

@@ -1,2949 +0,0 @@
-#!/usr/bin/ruby -w
-# Encoding: UTF-8
-# frozen_string_literal: true
-# =========================================================================== #
-# === Gtk::BaseModule
-# =========================================================================== #
-# require 'gtk_paradise/base_module/misc.rb'
-# include ::Gtk::BaseModule
-# =========================================================================== #
-module Gtk
-
-module BaseModule
-
-  require 'gtk_paradise/base_module/configuration.rb'
-  require 'gtk_paradise/base_module/commandline_arguments.rb'
-  require 'gtk_paradise/base_module/draggable.rb'
-  require 'gtk_paradise/base_module/graphics_display.rb'
-  require 'gtk_paradise/base_module/gtk_grid.rb'
-  require 'gtk_paradise/base_module/gtk_notebook.rb'
-  require 'gtk_paradise/base_module/popover.rb'
-  require 'gtk_paradise/base_module/roebe.rb'
-  require 'gtk_paradise/base_module/time.rb'
-
-  # ========================================================================= #
-  # Next, require .rb files that belong to gtk_paradise/gtk_classes/:
-  # ========================================================================= #
-  require 'gtk_paradise/gtk_classes/about_dialog.rb'
-  require 'gtk_paradise/gtk_classes/accel_group.rb'
-  require 'gtk_paradise/gtk_classes/button.rb'
-  require 'gtk_paradise/gtk_classes/cairo/context.rb'
-  require 'gtk_paradise/gtk_classes/calendar.rb'
-  require 'gtk_paradise/gtk_classes/check_button.rb'
-  require 'gtk_paradise/gtk_classes/cell_renderer_text.rb'
-  require 'gtk_paradise/gtk_classes/combo_box_text.rb'
-  require 'gtk_paradise/gtk_classes/entry.rb'
-  require 'gtk_paradise/gtk_classes/entry_completion.rb'
-  require 'gtk_paradise/gtk_classes/event_box.rb'
-  require 'gtk_paradise/gtk_classes/event_button.rb'
-  require 'gtk_paradise/gtk_classes/file_filter.rb'
-  require 'gtk_paradise/gtk_classes/file_selection.rb'
-  require 'gtk_paradise/gtk_classes/header_bar.rb'
-  require 'gtk_paradise/gtk_classes/image.rb'
-  require 'gtk_paradise/gtk_classes/list_store.rb'
-  require 'gtk_paradise/gtk_classes/menu.rb'
-  require 'gtk_paradise/gtk_classes/menu_bar.rb'
-  require 'gtk_paradise/gtk_classes/menu_item.rb'
-  require 'gtk_paradise/gtk_classes/popover.rb'
-  require 'gtk_paradise/gtk_classes/text_buffer.rb'
-  require 'gtk_paradise/gtk_classes/toggle_button.rb'
-  require 'gtk_paradise/gtk_classes/toolbar.rb'
-  require 'gtk_paradise/gtk_classes/tree_view.rb'
-  require 'gtk_paradise/gtk_classes/tree_view_column.rb'
-  require 'gtk_paradise/gtk_classes/widget.rb'
-
-  # ========================================================================= #
-  # Next, toplevel_methods/ files.
-  # ========================================================================= #
-  require 'gtk_paradise/toplevel_methods/main_file.rb'
-  require 'gtk_paradise/toplevel_methods/misc.rb'
-  require 'gtk_paradise/toplevel_methods/text_buffer_tags.rb'
-
-  # ========================================================================= #
-  # === is_not_decorated
-  # ========================================================================= #
-  def is_not_decorated
-    set_decorated(false)
-  end
-
-  # ========================================================================= #
-  # === scroll_up?
-  # ========================================================================= #
-  def scroll_up?(event)
-    ::Gtk.scroll_up_event?(event)
-  end
-
-  # ========================================================================= #
-  # === scroll_down?
-  # ========================================================================= #
-  def scroll_down?(event)
-    ::Gtk.scroll_down_event?(event)
-  end
-
-  # ========================================================================= #
-  # === gtk_list_store
-  #
-  # This method can be invoked like this:
-  #
-  #   gtk_list_store(String, Float)
-  #
-  # ========================================================================= #
-  def gtk_list_store(*i)
-    ::Gtk::ListStore.new(*i)
-  end; alias gtk_liststore gtk_list_store # === gtk_liststore
-       alias liststore     gtk_list_store # === liststore
-
-  # ========================================================================= #
-  # === populate_this_list_store3
-  #
-  # This variant works with 3 entries.
-  # ========================================================================= #
-  def populate_this_list_store3(
-      this_list_store, this_dataset
-    )
-    this_dataset.each { |first, second, third|
-      iter = this_list_store.append
-      iter.set_value(0, first.to_s)
-      iter.set_value(1, second.to_s)
-      iter.set_value(2, third.to_s)
-    }
-  end; alias populate_this_list_store_with_that_array3 populate_this_list_store3 # === populate_this_list_store_with_that_array3
-
-  # ========================================================================= #
-  # === gtk_vseparator
-  # ========================================================================= #
-  def gtk_vseparator
-    if use_gtk2?
-      ::Gtk::VSeparator.new
-    else
-      ::Gtk::Separator.new(:vertical)
-    end
-  end; alias top_to_bottom_separator gtk_vseparator # === top_to_bottom_separator
-       alias gtk_vertical_separator  gtk_vseparator # === gtk_vertical_separator
-
-  # ========================================================================= #
-  # === replace_with_proper_tags
-  # ========================================================================= #
-  def replace_with_proper_tags(i)
-    text = ::Gtk.replace_with_proper_tags(i)
-    _ = gtk_text(text)
-    _.do_markify
-    return _
-  end; alias replace_colours_with_html_colours replace_with_proper_tags # === replace_colours_with_html_colours
-       alias replace_html_colours              replace_with_proper_tags # === replace_html_colours
-
-  # ========================================================================= #
-  # === gtk_themed_icon
-  # ========================================================================= #
-  def gtk_themed_icon(
-      use_this_icon = 'mail-send-receive-symbolic'
-    )
-    button = gtk_button
-    # ======================================================================= #
-    # === Handle symbols next
-    # ======================================================================= #
-    if use_this_icon.is_a? Symbol
-      # ===================================================================== #
-      # We handle Symbols a bit differently here. If it is a Symbol and if
-      # that Symbol includes a '_' character then it is assumed that the
-      # user instead wants to use '-'. Thus, we convert the Symbols to
-      # the correct variant in this case.
-      #
-      # So, for instance, from :open_file to :open-file.
-      # ===================================================================== #
-      if use_this_icon.to_s.include? '_'
-        use_this_icon = use_this_icon.to_s.tr('_','-').to_sym
-      end
-    end
-    icon   = Gio::ThemedIcon.new(use_this_icon) 
-    image  = ::Gtk::Image.new(icon: icon, size: :button)
-    button.set_image(image)
-    return button
-  end; alias themed_icon      gtk_themed_icon # === themed_icon
-       alias icon_theme_image gtk_themed_icon # === icon_theme_image
-       alias icon_theme       gtk_themed_icon # === icon_theme
-
-  # ========================================================================= #
-  # === horizontal_spacer
-  # ========================================================================= #
-  def horizontal_spacer
-    ::Gtk.horizontal_spacer
-  end; alias hspacer               horizontal_spacer # === hspacer
-       alias gtk_hspacer           horizontal_spacer # === gtk_hspacer
-       alias gtk_horizontal_spacer horizontal_spacer # === gtk_horizontal_spacer
-
-  # ========================================================================= #
-  # === add_horizontal_spacer
-  # ========================================================================= #
-  def add_horizontal_spacer
-    add(gtk_horizontal_spacer)
-  end
-
-  # ========================================================================= #
-  # === gtk_spinner
-  # ========================================================================= #
-  def gtk_spinner
-    return ::Gtk::Spinner.new
-  end; alias default_spinner gtk_spinner # === default_spinner
-
-  # ========================================================================= #
-  # === return_inactive_spinner
-  # ========================================================================= #
-  def return_inactive_spinner
-    spinner = default_spinner
-    spinner.set_active(false)
-    return spinner
-  end; alias inactive_spinner return_inactive_spinner # === inactive_spinner
-
-  # ========================================================================= #
-  # === return_active_spinner
-  # ========================================================================= #
-  def return_active_spinner
-    spinner = default_spinner
-    spinner.set_active(true)
-    return spinner
-  end; alias active_spinner return_active_spinner # === active_spinner
-
-  # ========================================================================= #
-  # === gtk_message_dialog
-  #
-  # This method will create a new instance of Gtk::MessageDialog,
-  # without much further ado.
-  # ========================================================================= #
-  def gtk_message_dialog(
-      show_this_text = '',
-      parent_widget  = :new_window
-    )
-    case parent_widget
-    # ======================================================================= #
-    # === :new_window
-    # ======================================================================= #
-    when :new_window,
-         :window
-      parent_widget = ::Gtk::Window.new
-    end
-    # ======================================================================= #
-    # Instantiate a new message-dialog next.
-    # ======================================================================= #
-    if use_gtk2?
-      message_dialog = ::Gtk::MessageDialog.new(
-        parent_widget,
-        Gtk::Dialog::MODAL,
-        Gtk::MessageDialog::ERROR,
-        Gtk::MessageDialog::BUTTONS_CLOSE,
-        show_this_text
-      )
-    else # This is for ruby-gtk3, but it currently does not work properly.
-      message_dialog = ::Gtk::MessageDialog.new(
-        parent_widget,
-        Gtk::Dialog::MODAL,
-        Gtk::MessageDialog::ERROR,
-        Gtk::MessageDialog::BUTTONS_CLOSE,
-        show_this_text
-      )
-    end
-    # ======================================================================= #
-    # Then invoke:
-    #
-    #   message_dialog.run
-    #   message_dialog.destroy
-    #
-    # ======================================================================= #
-    return message_dialog
-  end; alias gtk_message    gtk_message_dialog # === gtk_message
-       alias message_box    gtk_message_dialog # === message_box
-       alias message_dialog gtk_message_dialog # === message_dialog
-
-  # ========================================================================= #
-  # === destroy_then_quit
-  # ========================================================================= #
-  def destroy_then_quit
-    signal_connect(:destroy) { ::Gtk.main_quit }
-  end; alias signal_destroy_then_quit destroy_then_quit # === signal_destroy_then_quit
-       alias exit_on_destroy_signal   destroy_then_quit # === exit_on_destroy_signal
-       alias exit_on_delete_event     destroy_then_quit # === exit_on_delete_event
-
-  # ========================================================================= #
-  # === upon_delete_event_quit_the_application
-  #
-  # This method can be used to "cleanly" exit a Gtk-application again.
-  # ========================================================================= #
-  def upon_delete_event_quit_the_application
-    signal_connect(:delete_event) { ::Gtk.main_quit }
-  end; alias on_delete_event_quit_the_application upon_delete_event_quit_the_application # === on_delete_event_quit_the_application
-       alias destroy_on_exit                      upon_delete_event_quit_the_application # === destroy_on_exit
-
-  # ========================================================================= #
-  # === exit_program
-  # ========================================================================= #
-  def exit_program
-    ::Gtk.main_quit
-  end; alias do_quit              exit_program # === do_quit
-       alias do_exit              exit_program # === do_exit
-       alias exit_the_application exit_program # === exit_the_application
-       alias exit_application     exit_program # === exit_application
-
-  # ========================================================================= #
-  # === is_mouse_button_release_event?
-  # ========================================================================= #
-  def is_mouse_button_release_event?(event)
-    event.respond_to?(:name?) and
-    event.name? == 'GDK_BUTTON_RELEASE'
-  end
-
-  # ========================================================================= #
-  # === set_width
-  # ========================================================================= #
-  def set_width(i)
-    if i.is_a?(String) and i.include?('%')
-      # ===================================================================== #
-      # Handle something like '80%'. Since as of October 2021 this also
-      # has to handle input such as '30% or minimum 300px'.
-      # ===================================================================== #
-      if i.include? ' '
-        if i.include? 'minimum'
-          splitted = i.split(' ')
-          minimum_value     = splitted.last.to_s.delete('px').to_f
-          assumed_new_value = splitted.first.delete('%').to_f
-          assumed_new_value = (max_width? * assumed_new_value) / 100.0
-          i = assumed_new_value
-          if minimum_value > assumed_new_value
-            i = minimum_value
-          end
-        end
-      else # this handles '50%'
-        i = (max_width? * i.delete('%').to_f) / 100.0
-      end
-    end
-    @width = i.to_i
-  end
-
-  # ========================================================================= #
-  # === gtk_image_menu_item
-  # ========================================================================= #
-  def gtk_image_menu_item(
-      use_this_image = ::Gtk::Stock::QUIT
-    )
-    if ::Gtk.use_gtk2?
-      ::Gtk::ImageMenuItem.new(use_this_image)
-    else
-      ::Gtk::ImageMenuItem.new(stock_id: use_this_image)
-    end
-  end; alias image_menu_item gtk_image_menu_item # === image_menu_item
-
-  require 'gtk_paradise/gtk_classes/status_icon.rb'
-  # ========================================================================= #
-  # === gtk_status_icon
-  #
-  # The first argument may be a path to an image.
-  # ========================================================================= #
-  def gtk_status_icon(
-      optional_file_path = nil
-    )
-    # ======================================================================= #
-    # Instantiate a new status-icon next:
-    # ======================================================================= #
-    status_icon = ::Gtk::StatusIcon.new
-    if optional_file_path
-      if optional_file_path.is_a? Symbol
-        status_icon.stock = ::Gtk::Stock.const_get(
-          optional_file_path.to_s.upcase.to_sym
-        )
-      else
-        if use_gtk2?
-          status_icon.use_this_image = optional_file_path
-        else
-          e 'status_icon.use_this_image = has not yet been adapted.'
-        end
-      end
-    end
-    return status_icon
-  end; alias status_icon        gtk_status_icon # === status_icon
-       alias return_status_icon gtk_status_icon # === return_status_icon
-
-  # ========================================================================= #
-  # === gtk_header_bar
-  #
-  # Invocation example:
-  #
-  #   header_bar = gtk_header_bar { :with_close_button }
-  #
-  # ========================================================================= #
-  def gtk_header_bar(&block)
-    _ = ::Gtk::HeaderBar.new
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      case yielded
-      # ===================================================================== #
-      # === :with_close_button
-      # ===================================================================== #
-      when :with_close_button,
-           :close_button
-        _.set_show_close_button(true) # Show the close-button too.
-      # ===================================================================== #
-      # === :with_close_button_and_inferred_title
-      # ===================================================================== #
-      when :with_close_button_and_inferred_title
-        _.set_show_close_button(true) # Show the close-button too.
-        _.set_title(title?)
-      end
-    end
-    return _
-  end; alias header_bar gtk_header_bar # === header_bar
-
-  # ========================================================================= #
-  # === return_top_bar
-  #
-  # This method can be customized via blocks such as:
-  #
-  #   return_default_header_bar { :with_close_button_and_inferred_title }
-  #
-  # ========================================================================= #
-  def return_top_bar(&block)
-    if block_given?
-      header_bar = gtk_header_bar(&block)
-    else
-      header_bar = gtk_header_bar { :with_close_button }
-    end
-    header_bar.spacing = 2
-    return header_bar
-  end; alias top_bar                   return_top_bar # === top_bar
-       alias default_header_bar        return_top_bar # === default_header_bar
-       alias default_top_bar           return_top_bar # === default_top_bar
-       alias gtk_top_bar               return_top_bar # === gtk_top_bar
-       alias return_default_header_bar return_top_bar # === return_default_header_bar
-
-  # ========================================================================= #
-  # === drag_start
-  #
-  # The source-widget must connect to the 'drag-data-get' signal.
-  # ========================================================================= #
-  def drag_start
-    drag_source_set(Gdk::ModifierType::BUTTON1_MASK |
-                    Gdk::ModifierType::BUTTON2_MASK,
-                    [['test', Gtk::TargetFlags::SAME_APP, 12345]],
-                    Gdk::DragAction::COPY |
-                    Gdk::DragAction::MOVE)
-  end
-
-  # ========================================================================= #
-  # === drag_stop
-  #
-  # The destination-widget must connect to the 'drag-data-received' signal. 
-  # ========================================================================= #
-  def drag_stop
-    drag_dest_set(Gtk::DestDefaults::MOTION |
-                  Gtk::DestDefaults::HIGHLIGHT,
-                  [['test', :same_app, 12345]],
-                  Gdk::DragAction::COPY |
-                  Gdk::DragAction::MOVE)
-  end
-
-  # ========================================================================= #
-  # === gtk_input_field
-  #
-  # This is essentially a wrapper over Gtk::Entry.
-  # ========================================================================= #
-  def gtk_input_field(&block)
-    ::Gtk.input_field(&block)
-  end; alias input_field gtk_input_field # === input_field
-
-  require 'gtk_paradise/gtk_classes/text_view.rb'
-  # ========================================================================= #
-  # === gtk_text_view
-  #
-  # Instantiate a new TreeView widget, by delegating towards Gtk.textview().
-  #
-  # Since as of November 2020 the first entry is the text-buffer that
-  # is to be used.
-  # ========================================================================= #
-  def gtk_text_view(
-      use_this_text_buffer = ::Gtk::TextBuffer.new,
-      left_margin          = 2,
-      right_margin         = 2,
-      is_editable          = true
-    )
-    ::Gtk.textview(
-      use_this_text_buffer,
-      left_margin,
-      right_margin,
-      is_editable
-    )
-  end; alias gtk_textview    gtk_text_view # === gtk_textview
-       alias gtk_textbox     gtk_text_view # === gtk_textbox
-       alias gtk_textarea    gtk_text_view # === gtk_textarea
-       alias gtk_text_area   gtk_text_view # === gtk_text_area
-       alias gtk_text_viewer gtk_text_view # === gtk_text_viewer
-       alias textview        gtk_text_view # === textview
-       alias text_view       gtk_text_view # === text_view
-
-  require 'gtk_paradise/gtk_classes/expander.rb'
-  # ========================================================================= #
-  # === gtk_expander
-  #
-  # The first argument is the text on the label that is to be used.
-  # ========================================================================= #
-  def gtk_expander(
-      text_on_the_label,
-      use_markup = false,
-      &block
-    )
-    if ::Gtk.use_gtk2?
-      expander = ::Gtk::Expander.new(text_on_the_label, use_markup)
-    else
-      expander = ::Gtk::Expander.new(text_on_the_label)
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      # ===================================================================== #
-      # === :widget
-      # ===================================================================== #
-      if yielded.has_key? :widget
-        expander.add(yielded.delete(:widget))
-      end
-    end
-    return expander
-  end
-
-  # ========================================================================= #
-  # === gtk_size_group
-  # ========================================================================= #
-  def gtk_size_group(i = :horizontal)
-    orientation_to_use = :horizontal
-    orientation_to_use = ::Gtk::SizeGroup::HORIZONTAL if use_gtk2?
-    case i
-    when :horizontal
-      return ::Gtk::SizeGroup.new(orientation_to_use)
-    end
-  end
-
-  require 'gtk_paradise/gtk_classes/search_bar.rb'
-  # ========================================================================= #
-  # === gtk_search_bar
-  #
-  # The first argument, which is optional, should be of class
-  # Gtk::SearchEntry if provided.
-  #
-  # Upstream API documentation can be seen here:
-  #
-  #   https://developer.gnome.org/gtk3/stable/GtkSearchBar.html
-  #
-  # ========================================================================= #
-  def gtk_search_bar(
-      optional_widget = nil
-    )
-    search_bar = ::Gtk::SearchBar.new
-    if optional_widget
-      search_bar.connect_entry(optional_widget)
-      search_bar.add(optional_widget)
-    end
-    return search_bar
-  end
-
-  # ========================================================================= #
-  # === remove_html
-  # ========================================================================= #
-  def remove_html(i)
-    return i.gsub(/\<.+?\>/,'')
-  end
-
-  # ========================================================================= #
-  # === word_wrap
-  #
-  # long_string.word_wrap(75)
-  # ========================================================================= #
-  def word_wrap(
-      string,
-      line_width       = 80,
-      optional_padding = ''
-    )
-    new_text = string.dup.gsub(
-      /(.{1,#{line_width}})(\s+|$)/, optional_padding+"\\1\n"
-    )
-    return new_text
-  end
-
-  # ========================================================================= #
-  # === drop_down_find_box
-  #
-  # This method will return an Array of the two widgets that may be
-  # useful, if the user wants to create a search-bar.
-  # ========================================================================= #
-  def drop_down_find_box
-    search_entry = gtk_search_entry
-    search_bar = gtk_search_bar(search_entry)
-    return [search_bar, search_entry]
-  end
-
-  # ========================================================================= #
-  # === gtk_search_entry
-  # ========================================================================= #
-  def gtk_search_entry
-    ::Gtk::SearchEntry.new
-  end; alias search_entry gtk_search_entry # === search_entry
-
-  # ========================================================================= #
-  # === modify_foreground
-  # ========================================================================= #
-  def modify_foreground(
-      colour = :steelblue,
-      state  = ::Gtk::StateType::NORMAL
-    )
-    colour = ::Gtk.colour_parse(colour)
-    modify_fg(
-      state, colour # Flip it here.
-    )
-  end
-
-  # ========================================================================= #
-  # === gtk_dialog
-  # ========================================================================= #
-  def gtk_dialog
-    ::Gtk::Dialog.new
-  end
-
-  # ========================================================================= #
-  # === gtk_toolbar
-  # ========================================================================= #
-  def gtk_toolbar
-    ::Gtk::Toolbar.new
-  end
-
-  # ========================================================================= #
-  # === gtk_state_normal
-  # ========================================================================= #
-  def gtk_state_normal
-    ::Gtk::StateType::NORMAL
-  end
-
-  # ========================================================================= #
-  # === gtk_colour_black
-  # ========================================================================= #
-  def gtk_colour_black
-    ::Gtk::Colours::BLACK
-  end
-
-  # ========================================================================= #
-  # === project_base_directory?
-  # ========================================================================= #
-  def project_base_directory?
-    ::Gtk.project_base_directory?
-  end
-
-  # ========================================================================= #
-  # === gtk_text
-  # ========================================================================= #
-  def gtk_text(i = '')
-    ::Gtk.text(i)
-  end
-
-  require 'gtk_paradise/gtk_classes/box.rb'
-  # ========================================================================= #
-  # === gtk_eventbox
-  #
-  # Wrapper to creating a new Gtk::EventBox instance.
-  # ========================================================================= #
-  def gtk_eventbox(i = nil)
-    ::Gtk.eventbox(i)
-  end; alias gtk_event_box gtk_eventbox # === gtk_event_box
-       alias event_box     gtk_eventbox # === event_box
-
-  # ========================================================================= #
-  # === gtk_vruler
-  # ========================================================================= #
-  def gtk_vruler
-    ::Gtk::VRuler.new
-  end
-
-  # ========================================================================= #
-  # === gtk_drawing_area
-  # ========================================================================= #
-  def gtk_drawing_area
-    ::Gtk::DrawingArea.new
-  end
-
-  # ========================================================================= #
-  # === create_entry_with_text_and_max_length
-  # ========================================================================= #
-  def create_entry_with_text_and_max_length(i = '')
-    ::Gtk.create_entry_with_text_and_max_length(i)
-  end
-
-  # ========================================================================= #
-  # === gtk_adjustment
-  # ========================================================================= #
-  def gtk_adjustment(*i)
-    ::Gtk::Adjustment.new(*i)
-  end
-
-  # ========================================================================= #
-  # === standard_file_chooser_dialog
-  # ========================================================================= #
-  def standard_file_chooser_dialog(title, widget)
-    ::Gtk.send(__method__, title, widget)
-  end
-
-  # ========================================================================= #
-  # === gtk_message_dialog_run_then_destroy
-  # ========================================================================= #
-  def gtk_message_dialog_run_then_destroy(
-      content_to_show = 'This functionality is not yet enabled.'
-    )
-    _ = gtk_message_dialog(content_to_show)
-    _.run
-    _.destroy
-    return _
-  end
-
-  # ========================================================================= #
-  # === create_paned_hbox_first_big
-  # ========================================================================= #
-  def create_paned_hbox_first_big(*i)
-    ::Gtk.create_paned_hbox_first_big(i)
-  end
-
-  # ========================================================================= #
-  # === directory_to_the_images?
-  #
-  # This method will return the directory to the images.
-  # ========================================================================= #
-  def directory_to_the_images?
-    IMG_DIR
-  end
-
-  # ========================================================================= #
-  # === gtk_tooltip_set_tip
-  # ========================================================================= #
-  def gtk_tooltip_set_tip(
-      widget,
-      text = ''
-    )
-    ::Gtk::Tooltips.new.set_tip(widget, text, nil)
-  end
-
-  # ========================================================================= #
-  # === gtk_expanded_expander
-  #
-  # This variant will expand the newly created gtk-expander at hand.
-  # ========================================================================= #
-  def gtk_expanded_expander(text = '', &block)
-    expander = gtk_expander(text, &block) # Create a new Gtk::Expander instance here.
-    expander.do_expand
-    return expander
-  end
-
-  # ========================================================================= #
-  # === gtk_password
-  #
-  # This variant can be used like a "password-protected input device".
-  # ========================================================================= #
-  def gtk_password(
-      use_this_as_invisibility_char = 42
-    )
-    password = gtk_entry
-    password.set_visibility(false)
-    password.invisible_char = use_this_as_invisibility_char # This is '*' in unicode.
-    return password 
-  end
-
-  # ========================================================================= #
-  # === white_background
-  # ========================================================================= #
-  def white_background
-    modify_background(:normal, :white)
-  end
-
-  # ========================================================================= #
-  # === gtk_button_xorg_buffer
-  #
-  # This will return a new instance of the xorg-buffer button.
-  # ========================================================================= #
-  def gtk_button_xorg_buffer(
-      optional_use_this_as_label = nil
-    )
-    require 'gtk_paradise/widgets/version_agnostic/button_xorg_buffer.rb'
-    return ::Gtk::ButtonXorgBuffer.new(optional_use_this_as_label)
-  end; alias button_xorg_buffer gtk_button_xorg_buffer # === button_xorg_buffer
-
-  # ========================================================================= #
-  # === use_gtk2?
-  # ========================================================================= #
-  def use_gtk2?
-    ::Gtk.use_gtk2?
-  end
-
-  # ========================================================================= #
-  # === gtk_file_filter
-  #
-  # A filter may be provided, such as:
-  #
-  #    '.pdf'
-  #
-  # As input.
-  # ========================================================================= #
-  def gtk_file_filter(
-      optional_file_filter_to_use = nil
-    )
-    _ = ::Gtk::FileFilter.new
-    if optional_file_filter_to_use
-      if optional_file_filter_to_use.is_a? Symbol
-        # Such as: :pdf_files
-        optional_file_filter_to_use = optional_file_filter_to_use.to_s
-      end
-      if optional_file_filter_to_use.include? '_'
-        optional_file_filter_to_use = optional_file_filter_to_use.split('_').first
-      end
-      _.name = "#{optional_file_filter_to_use} files"
-      _.add_pattern("*#{optional_file_filter_to_use}")
-    end
-    return _
-  end
-
-  # ========================================================================= #
-  # === create_clipboard
-  # ========================================================================= #
-  def create_clipboard
-    ::Gtk.create_clipboard
-  end
-
-  # ========================================================================= #
-  # === clipboard_text?
-  # ========================================================================= #
-  def clipboard_text?
-    ::Gtk.clipboard_text?
-  end
-
-  require 'gtk_paradise/toplevel_methods/tooltips.rb'
-  # ========================================================================= #
-  # === gtk_tooltip_widget
-  # ========================================================================= #
-  def gtk_tooltip_widget(
-      tooltip, widget
-    )
-    ::Gtk.tooltip_widget(
-      tooltip, widget
-    )
-  end; alias gtk_tooltip gtk_tooltip_widget # === gtk_tooltip
-
-  # ========================================================================= #
-  # === gtk_colour_grey
-  # ========================================================================= #
-  def gtk_colour_grey
-    ::Gtk::Colours::GREY
-  end
-
-  # ========================================================================= #
-  # === gtk_window
-  # ========================================================================= #
-  def gtk_window(
-      optional_title = nil
-    )
-    if optional_title
-      Gtk::Window.new(optional_title)
-    else
-      Gtk::Window.new
-    end
-  end
-
-  # ========================================================================= #
-  # === gtk_vbutton_box
-  #
-  # This variant is specifically for ruby-gtk2.
-  # ========================================================================= #
-  def gtk_vbutton_box(*optional_arguments)
-    box = ::Gtk::VButtonBox.new
-    if optional_arguments and !optional_arguments.empty?
-      optional_arguments.each {|entry| box.pack_start(entry, true, true) }
-    end
-    return box
-  end
-
-  # ========================================================================= #
-  # === gtk_hbutton_box
-  #
-  # This variant is specifically for ruby-gtk2.
-  # ========================================================================= #
-  def gtk_hbutton_box(*optional_arguments)
-    box = ::Gtk::HButtonBox.new
-    if optional_arguments and !optional_arguments.empty?
-      optional_arguments.each {|entry| box.pack_start(entry, true, true) }
-    end
-    return box
-  end
-
-  require 'gtk_paradise/gtk_classes/frame.rb'
-  # ========================================================================= #
-  # === gtk_frame
-  #
-  # This must be able to support a String, which is then used as the
-  # label, and a widget, in which case it will be embedded.
-  #
-  # Alternative usage example:
-  #
-  #   gtk_frame(small_scrolled_window) {{ title: 'Last exam question' }}
-  #
-  # ========================================================================= #
-  def gtk_frame(
-      optional_title = ''
-    )
-    if optional_title.to_s.start_with?('#<Gtk::') and
-      !optional_title.is_a?(String)
-      frame = ::Gtk::Frame.new
-      frame.add(optional_title)
-    else
-      frame = ::Gtk::Frame.new(optional_title)
-    end
-    # ======================================================================= #
-    # === Handle blocks given next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        # =================================================================== #
-        # === :title
-        # =================================================================== #
-        if yielded.has_key? :title
-          frame.set_text(yielded.delete(:title))
-        end
-      end
-    end
-    return frame
-  end
-
-  # ========================================================================= #
-  # === gtk_bold_frame
-  # ========================================================================= #
-  def gtk_bold_frame(i)
-    frame = gtk_frame(i)
-    frame.make_bold
-    return frame
-  end
-
-  # ========================================================================= #
-  # === gdk_screen
-  # ========================================================================= #
-  def gdk_screen
-    Gdk::Screen.default
-  end
-
-  # ========================================================================= #
-  # === gdk_selection_clipboard
-  # ========================================================================= #
-  def gdk_selection_clipboard
-    ::Gdk::Selection::CLIPBOARD
-  end
-
-  # ========================================================================= #
-  # === to_utf
-  # ========================================================================= #
-  def to_utf(i = '')
-    ::Gtk.to_utf8(i)
-  end
-
-  # ========================================================================= #
-  # === gtk_alignment
-  #
-  # The first argument is the uniform-padding value that is to be used.
-  #
-  # If more than one argument is given, the method will assign 
-  # the corresponding alignment.
-  # ========================================================================= #
-  def gtk_alignment(
-      a = 0.98,
-      b = nil,
-      c = nil,
-      d = nil
-    )
-    # ======================================================================= #
-    # The next three lines are to default to "uniform padding values".
-    # ======================================================================= #
-    case a
-    # ======================================================================= #
-    # === :center
-    #
-    # This is simply an alias really, to allow something like:
-    #
-    #   gtk_alignment(:center)
-    #
-    # ======================================================================= #
-    when :center
-      a = 0.5; b = 0.5; c = 0; d = 0
-    end
-    b = a if b.nil?
-    c = a if c.nil?
-    d = a if d.nil?
-    ::Gtk::Alignment.new(a, b, c, d)
-  end
-
-  # ========================================================================= #
-  # === allow_only_numbers
-  # ========================================================================= #
-  def allow_only_numbers(
-      gtk_entry_widget,
-      be_not_too_strict = true
-    )
-    ::Gtk.allow_only_numbers(
-      gtk_entry_widget,
-      be_not_too_strict
-    )
-  end
-
-  # ========================================================================= #
-  # === create_paned_vbox
-  # ========================================================================= #
-  def create_paned_vbox(*i)
-    ::Gtk.create_paned_vbox(i)
-  end
-
-  # ========================================================================= #
-  # === paned_hbox
-  # ========================================================================= #
-  def paned_hbox(*i)
-    ::Gtk.create_paned_hbox(i)
-  end; alias create_paned_hbox paned_hbox # === create_paned_hbox
-
-  # ========================================================================= #
-  # === paned_vbox
-  # ========================================================================= #
-  def paned_vbox(*i)
-    ::Gtk.create_paned_vbox(i)
-  end
-
-  # ========================================================================= #
-  # === unicode_horizontal_spacer
-  # ========================================================================= #
-  def unicode_horizontal_spacer
-    ::Gtk.unicode_horizontal_spacer
-  end; alias horizontal_unicode_bar unicode_horizontal_spacer # === horizontal_unicode_bar
-
-  # ========================================================================= #
-  # === gtk_resize_grip
-  #
-  # This method needs two widgets as input. It will then instantiate a
-  # new Gtk::VPaned instance.
-  #
-  # Typical usage example:
-  #
-  #   widget = gtk_resize_grip(@tree_view, @text_view_at_bottom)
-  #   pack_start(widget, true, true, 4)
-  #
-  # ========================================================================= #
-  def gtk_resize_grip(widget1, widget2)
-    # ======================================================================= #
-    # Since Gtk::VPaned has been deprecated in ruby-gtk3, we have to query
-    # the version of gtk in use next.
-    # ======================================================================= #
-    if ::Gtk.use_gtk2?
-      vpaned = ::Gtk::VPaned.new
-    else
-      vpaned = ::Gtk::Paned.new(:vertical)
-    end
-    vpaned.add1(widget1)
-    vpaned.add2(widget2)
-    return vpaned
-  end; alias gtk_resize_handle   gtk_resize_grip # === gtk_resize_handle
-       alias draggable_spacer    gtk_resize_grip # === draggable_spacer
-       alias horizontal_drag     gtk_resize_grip # === horizontal_drag
-       alias horizontal_dragger  gtk_resize_grip # === horizontal_dragger
-       alias draggable_hpane     gtk_resize_grip # === draggable_hpane
-       alias gtk_draggable_hpane gtk_resize_grip # === gtk_draggable_hpane
-
-  # ========================================================================= #
-  # === create_paned_vbox_last_big
-  # ========================================================================= #
-  def create_paned_vbox_last_big(*i)
-    ::Gtk.create_paned_vbox_last_big(i)
-  end
-
-  # ========================================================================= #
-  # === gtk_source_view
-  #
-  # Usage example:
-  #
-  #   gtk_sourceview { :sane_defaults }
-  #
-  # ========================================================================= #
-  def gtk_source_view(
-      optional_buffer = nil, &block
-    )
-    require 'gtk_paradise/gtk_classes/source_view.rb'
-    if optional_buffer.nil?
-      source_view = ::Gtk::SourceView.new
-    else
-      source_view = ::Gtk::SourceView.new(optional_buffer)
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      case yielded
-      # ===================================================================== #
-      # === :do_use_sane_defaults
-      # ===================================================================== #
-      when :do_use_sane_defaults,
-           :sane_defaults
-        source_view.do_use_sane_defaults
-      end
-    end
-    return source_view
-  end; alias gtk_sourceview gtk_source_view # === gtk_sourceview
-
-  # ========================================================================= #
-  # === use_gtk3?
-  # ========================================================================= #
-  def use_gtk3?
-    we_use_this_gtk_version? == :gtk3
-  end
-
-  require 'gtk_paradise/toplevel_methods/we_use_this_gtk_version.rb'
-  # ========================================================================= #
-  # === we_use_this_gtk_version?
-  # ========================================================================= #
-  def we_use_this_gtk_version?
-    ::Gtk.we_use_this_gtk_version?
-  end; alias we_use_which_gtk_version? we_use_this_gtk_version? # === we_use_which_gtk_version?
-
-  # ========================================================================= #
-  # === return_pwd
-  # ========================================================================= #
-  def return_pwd
-    "#{Dir.pwd}/".squeeze('/')
-  end
-
-  # ========================================================================= #
-  # === main_file?
-  #
-  # This is a wrapper over the toplevel-method that normally keeps track
-  # of the "active" file.
-  # ========================================================================= #
-  def main_file?
-    ::Gtk.main_file?
-  end; alias assigned_main_file? main_file? # === assigned_main_file?
-       alias filename?           main_file? # === filename?
-
-  # ========================================================================= #
-  # === gtk_hpaned
-  #
-  # Simply pass the widgets into this method - ideally only use two
-  # widgets though.
-  #
-  # An usage example for this method follows:
-  #
-  #   hpaned = gtk_hpaned(
-  #     widget1,
-  #     widget2
-  #   )
-  #
-  # Or:
-  #
-  #   hpaned = gtk_hpaned(
-  #     widget1,
-  #     widget2
-  #   ) {{ border_width: 5 }}
-  #
-  # ========================================================================= #
-  def gtk_hpaned(*optional_arguments)
-    if ::Gtk.use_gtk2?
-      hpaned = ::Gtk::HPaned.new
-    else
-      hpaned = ::Gtk::Paned.new(:horizontal)
-    end
-    if optional_arguments and !optional_arguments.empty?
-      optional_arguments.each {|widget|
-        hpaned.add(widget)
-      }
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        # =================================================================== #
-        # === :border_width
-        # =================================================================== #
-        if yielded.has_key? :border_width
-          set_border_width(
-            yielded.delete(:border_width)
-          )
-        end
-      end
-    end
-    return hpaned
-  end; alias gtk_draggable_vpane gtk_hpaned # === gtk_draggable_vpane
-       alias gtk_horizontal_pane gtk_hpaned # === gtk_horizontal_pane
-
-  # ========================================================================= #
-  # === gtk_vpaned
-  # ========================================================================= #
-  def gtk_vpaned(*optional_arguments)
-    if ::Gtk.use_gtk2?
-      vpaned = ::Gtk::VPaned.new
-    else
-      vpaned = ::Gtk::Paned.new(:vertical)
-    end
-    if optional_arguments and !optional_arguments.empty?
-      optional_arguments.each {|widget|
-        vpaned.add(widget)
-      }
-    end
-    return vpaned
-  end
-
-  # ========================================================================= #
-  # === Gtk::BaseModule.included
-  #
-  # This could be enabled if we want to act on a per-inclusion basis,
-  # via a hook.
-  # ========================================================================= #
-  # def self.included(i)
-  #   case i.name.to_s
-  #   when 'Gtk::BaseModuleAndAppModule'
-  #     # ======================================================================= #
-  #     # This is activated whenever Gtk::BaseModuleAndAppModule is 
-  #     # included.
-  #     # ======================================================================= #
-  #     puts "#{i} included #{self} - next work on CSS stuff."
-  #   end
-  # end
-
-  # ========================================================================= #
-  # === mouse_button_double_click?
-  #
-  # The argument should be an event.
-  # ========================================================================= #
-  def mouse_button_double_click?(event)
-    if ::Gtk.use_gtk2?
-      event.event_type == Gdk::Event::BUTTON2_PRESS and
-      event.button == 1
-    else
-      event.event_type == Gdk::EventType::BUTTON2_PRESS and
-      event.button == 1
-    end
-  end; alias double_click? mouse_button_double_click? # === double_click?
-
-  # ========================================================================= #
-  # === gtk_progress_bar
-  # ========================================================================= #
-  def gtk_progress_bar
-    _ = ::Gtk::ProgressBar.new
-    return _
-  end
-
-  # ========================================================================= #
-  # === gtk_base_module
-  # ========================================================================= #
-  def gtk_base_module
-    ::Gtk::BaseModule
-  end
-
-  # ========================================================================= #
-  # === gtk_hbox_with_vertical_pane
-  #
-  # This method will generate a hbox (horizontal box) which is separated
-  # by a vertical drag-pane.
-  # ========================================================================= #
-  def gtk_hbox_with_vertical_pane(
-      *i,
-      &block
-    )
-    if use_gtk2?
-      _ = ::Gtk::VPaned.new
-    else
-      _ = Gtk::Paned.new(:vertical)
-    end
-    _.add1(i.first)
-    _.add2(i.last)
-    return _
-  end; alias vpane_split     gtk_hbox_with_vertical_pane # === vpane_split
-       alias draggable_vbox  gtk_hbox_with_vertical_pane # === draggable_vbox
-       alias horizontal_pane gtk_hbox_with_vertical_pane # === horizontal_pane
-
-  # ========================================================================= #
-  # === set_this_widget
-  #
-  # Note that this will not work for every widget; the main use case is to
-  # leverage it for gtk-frame widgets.
-  # ========================================================================= #
-  def set_this_widget(i)
-    set_label_widget(i)
-  end
-
-  # ========================================================================= #
-  # === percentage_widget
-  # ========================================================================= #
-  def percentage_widget(
-      lower_bound = 50,
-      upper_bound = 100
-    )
-    current_value = (lower_bound.to_f * 100) / upper_bound
-    progress_bar = ::Gtk::ProgressBar.new
-    progress_bar.set_name('progressbar1') # Enable default styling here.
-    new_value = 100.0 / current_value
-    if new_value.is_a? Float
-      new_value = new_value.round(2)
-    end
-    progress_bar.set_fraction(new_value) # n%.
-    return progress_bar
-  end
-
-  # ========================================================================= #
-  # === percentage_widget_with_this_text
-  #
-  # Note that the :default symbol means to show the percentage value
-  # calculated.
-  # ========================================================================= #
-  def percentage_widget_with_this_text(
-      lower_bound = 50,
-      upper_bound = 100,
-      this_text   = :default
-    )
-    case this_text
-    when :default
-      this_text = (
-        (lower_bound.to_f * 100) / upper_bound
-      ).to_s.to_f.round(2).to_s+'%'
-    end
-    progress_bar = percentage_widget(lower_bound, upper_bound)
-    progress_bar.set_show_text(true)
-    progress_bar.set_text(this_text)
-    return progress_bar
-  end; alias percentage_widget_with_text percentage_widget_with_this_text # === percentage_widget_with_text
-
-  require 'gtk_paradise/gtk_classes/radio_menu_item.rb'
-  # ========================================================================= #
-  # === gtk_radio_menu_item
-  # ========================================================================= #
-  def gtk_radio_menu_item(
-      group_to_use = nil, label_to_use = ''
-    )
-    ::Gtk.gtk_radio_menu_item(
-      group_to_use, label_to_use
-    )
-  end
-
-  # ========================================================================= #
-  # === options
-  #
-  # This shall be similar to the HTML drop-down options menu. The user
-  # will make a selection.
-  #
-  # This method will return an Array; the first entry is the vbox that
-  # can be used, such as when you embed it into another gtk-application.
-  # The second entry is the array containing all the radio-buttons.
-  # These allow us to query the state.
-  #
-  # Usage example:
-  #
-  #    vbox, array_radio_buttons = options()
-  #
-  # ========================================================================= #
-  def options(*i)
-    return ::Gtk.options(i)
-  end; alias dropdown_menu options # === dropdown_menu
-
-  # ========================================================================= #
-  # === ungrab_application
-  #
-  # Not sure if this is in use right now.
-  # ========================================================================= #
-  def ungrab_application
-    Gdk.pointer_ungrab(Gdk::Event::CURRENT_TIME)
-  end
-
-  # ========================================================================= #
-  # === internal_hash?
-  #
-  # Query-method to obtain @internal_hash.
-  # ========================================================================= #
-  def internal_hash?
-    @internal_hash
-  end
-
-  # ========================================================================= #
-  # === xid_value?
-  # ========================================================================= #
-  def xid_value?
-    window.xid.to_s
-  end; alias xid? xid_value? # === xid?
-
-  # ========================================================================= #
-  # === gtk_tree_store
-  # ========================================================================= #
-  def gtk_tree_store(*i)
-    ::Gtk::TreeStore.new(i)
-  end
-
-  require 'gtk_paradise/gtk_classes/option_menu.rb'
-  # ========================================================================= #
-  # === gtk_option_menu
-  # ========================================================================= #
-  def gtk_option_menu
-    ::Gtk.gtk_option_menu
-  end
-
-  # ========================================================================= #
-  # === gtk_menu
-  # ========================================================================= #
-  def gtk_menu
-    ::Gtk::Menu.new
-  end
-
-  # ========================================================================= #
-  # === gtk_menu_item
-  #
-  # This can be used like so:
-  #
-  #   filem1 = gtk_menu_item('File') {{
-  #     submenu: filemenu
-  #   }}
-  #
-  # Or so:
-  #
-  #   gtk_menu_item(label: 'Test1')
-  #   gtk_menu_item('Test1')
-  #
-  # ========================================================================= #
-  def gtk_menu_item(
-      i             = 'File',
-      use_underline = false,
-      &block
-    )
-    if i and i.respond_to?(:include?) and i.include?('_')
-      use_underline = true
-    end
-    if ::Gtk.use_gtk2?
-      menu_item = ::Gtk::MenuItem.new(i, use_underline)
-    else # else for ruby-gtk3
-      hash = {}
-      if i.is_a? Hash
-        # In this case we can just pass-through, as-is.
-      else
-        i = { label: i } # And in that cased we have to turn it into a Hash first.
-      end
-      hash.merge!(i)
-      hash.merge!({use_underline: use_underline})
-      menu_item = ::Gtk::MenuItem.new(hash)
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        if yielded.has_key? :submenu
-          menu_item.set_submenu(yielded[:submenu])
-        end
-      elsif yielded.is_a? Symbol
-        case yielded
-        # =================================================================== #
-        # === :on_activate_quit
-        # =================================================================== #
-        when :on_activate_quit
-          menu_item.on_activate { Gtk.main_quit }
-        end
-      end
-    end
-    return menu_item
-  end; alias menu_item gtk_menu_item # === menu_item
-
-  # ========================================================================= #
-  # === pixbuf_loader
-  # ========================================================================= #
-  def pixbuf_loader
-    GdkPixbuf::PixbufLoader.new
-  end
-
-  # ========================================================================= #
-  # === abort_on_exception
-  # ========================================================================= #
-  def abort_on_exception
-    Thread.abort_on_exception = true
-  end
-
-  # ========================================================================= #
-  # === create_context_menu
-  #
-  # This method can be used to create dynamic context-menus
-  # "on the fly". These must be sufficiently flexible.
-  # ========================================================================= #
-  def create_context_menu(
-      parent_widget = nil
-    )
-    context_menu = gtk_menu
-    # ======================================================================= #
-    # === Handle blocks given to this method next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        # =================================================================== #
-        # === :actions
-        #
-        # This entry point associates the context-menu entries with
-        # specific "actions". These actions are typically simply
-        # methods that you can call.
-        # =================================================================== #
-        if yielded.has_key? :actions
-          yielded[:actions].each_pair {|title_to_use, method_to_call|
-            # =============================================================== #
-            # Example how this may look:
-            #
-            #   'FoobarAction1': :foobar_action1
-            #
-            # =============================================================== #
-            menu_item = gtk_menu_item(title_to_use)
-            context_menu << menu_item
-            menu_item.signal_connect(:activate) { |widget|
-              if parent_widget
-                case method_to_call
-                when :interactively_create_directory
-                  parent_widget.send(method_to_call.to_sym, parent_widget)
-                else # This is the default.
-                  parent_widget.send(method_to_call.to_sym)
-                end
-              end
-            }
-          }
-        # =================================================================== #
-        # === :numbered_actions
-        #
-        # This entry point will simply iterate over the elements and add
-        # a number, such as "1", "2" and so forth, to denote which number
-        # is associated with which particular Gtk::Menu entry.
-        # =================================================================== #
-        elsif yielded.has_key? :numbered_actions
-          index = 0
-          yielded[:numbered_actions].each_pair {|title_to_use, method_to_call| index += 1
-            menu_item = gtk_menu_item("(#{index}) #{title_to_use}")
-            context_menu << menu_item
-            menu_item.signal_connect(:activate) { |widget|
-              if parent_widget
-                case method_to_call
-                when :interactively_create_directory
-                  parent_widget.send(method_to_call.to_sym, parent_widget)
-                else # This is the default.
-                  parent_widget.send(method_to_call.to_sym)
-                end
-              end
-            }
-          }
-        end
-        # =================================================================== #
-        # === n_entries
-        # =================================================================== #
-        if yielded.has_key? :n_entries
-          yielded[:n_entries].times {|n_run|
-            menu_item = gtk_menu_item("Test#{n_run}")
-            context_menu << menu_item
-            menu_item.signal_connect(:activate) { |widget|
-              puts "#{widget.class} - #{menu_item.text?}"
-            }
-          }
-        end
-      end
-    end
-    context_menu.show_all
-    return context_menu
-  end; alias return_context_menu create_context_menu # === return_context_menu
-
-  # ========================================================================= #
-  # === gtk_coloured_bar
-  # ========================================================================= #
-  def gtk_coloured_bar
-    ::Gtk::ColouredBar.new
-  end
-
-  # ========================================================================= #
-  # === cell_renderer_progress
-  # ========================================================================= #
-  def cell_renderer_progress(i = nil)
-    _ = ::Gtk::CellRendererProgress.new
-    _.set_value(i) if i
-    return _
-  end
-
-  # ========================================================================= #
-  # === gtk_tree_view_column
-  #
-  # The second argument to this method should be the gtk cell-renderer,
-  # which defaults to a textual representation. This object can then
-  # also be manipulated via invocations such as:
-  #
-  #   renderer.foreground = "#ff0000"
-  #
-  # To use this, do something like this:
-  #
-  #   gtk_tree_view_column('Buy', gtk_cell_renderer, text: BUY_IT)
-  #   gtk_tree_view_column('Item', gtk_cell_renderer_centered_text, text: BUY_IT)
-  #
-  # ========================================================================= #
-  def gtk_tree_view_column(
-      title_of_the_column = 'Testing',
-      gtk_renderer_to_use = gtk_cell_renderer_text, # or gtk_cell_renderer_centered_text
-      text_position       = 0
-    )
-    # ======================================================================= #
-    # Not sure why the following code queried for a Hash. If I ever find
-    # out, I will note it down back here, but for now it is commented
-    # out. (06.12.2020)
-    #if text_position.is_a? Hash
-    #  if text_position.has_key? :text
-    #    text_position = text_position.delete(:text)
-    #  end
-    #elsif text_position.is_a? Integer
-    # ======================================================================= #
-    if text_position.is_a? Integer
-      text_position = { text: text_position }
-    end
-    ::Gtk::TreeViewColumn.new(
-      title_of_the_column,
-      gtk_renderer_to_use,
-      text_position
-    )
-  end
-
-  # ========================================================================= #
-  # === populate_this_list_store
-  #
-  # Note that this method currently only works for one or two entries,
-  # which explains the odd alias-name to this. At a later point we may
-  # change this, though.
-  #
-  # It is recommended to use the aliased name, aka:
-  #
-  #   populate_this_list_store2(@list_store, dataset_here)
-  #
-  # This is not as elegant, but at some point in the future we may
-  # change the main alias, but the numbered-variants such as _store2
-  # or _store3 will always remain backwards-compatible. Keep that
-  # in mind when using this method.
-  # ========================================================================= #
-  def populate_this_list_store(
-      this_list_store, this_dataset
-    )
-    this_dataset.each { |first, second|
-      iter = this_list_store.append
-      iter.set_value(0, first.to_s)
-      iter.set_value(1, second.to_s) if second
-    }
-  end; alias populate_this_list_store2                populate_this_list_store # === populate_this_list_store2
-       alias populate_this_list_store_with_that_array populate_this_list_store # === populate_this_list_store_with_that_array
-
-  # ========================================================================= #
-  # === check_for_a_manifest_yaml_file
-  #
-  # This method will query whether a file called manifest.yml exists. If so
-  # it will load this dataset and evaluate it. Unfortunately this does
-  # not work properly right now (February 2021); I may have to re-evaluate
-  # this again in the future.  
-  # ========================================================================= #
-  def check_for_a_manifest_yaml_file
-    _ = 'manifest.yml'
-    if @configuration
-      this_file = @configuration[1]+'/'+_
-      if File.exist? this_file
-        dataset = YAML.load_file(this_file)
-        # =================================================================== #
-        # Next, parse it.
-        # =================================================================== #
-        if dataset.has_key? 'buttons'
-          dataset['buttons'].each_pair {|name_of_the_instance_variable, value|
-            # =============================================================== #
-            # First refer to the Hash, so that we can re-use it a later time.
-            # =============================================================== #
-            hash = dataset['buttons'][name_of_the_instance_variable]
-            if name_of_the_instance_variable.frozen?
-              name_of_the_instance_variable = name_of_the_instance_variable.dup
-            end
-            unless name_of_the_instance_variable.start_with? '@'
-              name_of_the_instance_variable[0,0] = '@'
-            end
-            _ = gtk_button
-            instance_variable_set(name_of_the_instance_variable.to_sym, _)
-            hash.each_pair {|key, value|
-              case key
-              when 'text'
-                _.set_text(value)
-              when 'use_mnemonic'
-                old_text = _.text?
-                _.set_text(old_text, use_mnemonics: true)
-              when 'colour','color'
-                override_color(:normal, value.to_sym)
-              when 'tooltip'
-                _.hint = value
-              when 'weight'
-                if value == 'bold'
-                  _.make_bold
-                end
-              when 'width'
-                _.width_height(value, hash['height'])
-              end
-            }
-          }
-        end
-      end
-    end
-  end
-
-  require 'gtk_paradise/toplevel_methods/misc.rb'
-  # ========================================================================= #
-  # === return_editable_cell_renderer_text
-  # ========================================================================= #
-  def return_editable_cell_renderer_text
-    ::Gtk.return_editable_cell_renderer_text
-  end
-
-  # ========================================================================= #
-  # === response_type_ok?
-  # ========================================================================= #
-  def response_type_ok?(i)
-    i == Gtk::ResponseType::OK
-  end
-
-  # ========================================================================= #
-  # === gtk_colour_selection_dialog
-  # ========================================================================= #
-  def gtk_colour_selection_dialog(use_this_title = 'Select a color')
-    _ = ::Gtk::ColorSelectionDialog.new(title: use_this_title)
-    _colour_selection = _.color_selection
-    colour = _.current_rgba
-    e colour
-    return _
-  end; alias colour_selection_dialog gtk_colour_selection_dialog # === colour_selection_dialog
-
-  # ========================================================================= #
-  # === gtk_vbox
-  #
-  # The alias vbox exists, but I am not entirely sure whether this will
-  # be retained or not. The second variant, thus, for the time being,
-  # allows something like this:
-  #
-  #   vbox {
-  #     label 'Hello'
-  #     button 'World !'
-  #   }
-  #
-  # ========================================================================= #
-  def gtk_vbox(*i, &block)
-    if i.empty?
-      vbox = ::Gtk.vbox
-    elsif block_given? and i.empty?
-      vbox = ::Gtk.vbox(yield)
-    else
-      vbox = ::Gtk.vbox(i)
-    end
-    if block_given?
-      yielded = yield
-      if yielded.is_a?(Hash) and yielded.has_key?(:spacing)
-        vbox.spacing = yielded[:spacing]
-      end
-    end
-    return vbox 
-  end; alias vbox    gtk_vbox # === vbox
-       alias gtk_box gtk_vbox # === gtk_box
-
-  # ========================================================================= #
-  # === vte_terminal
-  #
-  # This method will instantiate a new vte-terminal.
-  #
-  # You can pass in a hash to the block, such as in this way:
-  #
-  #   terminal = vte_terminal {{ font: USE_THIS_FONT }}
-  #
-  # ========================================================================= #
-  def vte_terminal
-    terminal = Vte::Terminal.new
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        # =================================================================== #
-        # === :font
-        # =================================================================== #
-        if yielded.has_key? :font
-          terminal.use_this_font = yielded[:font]
-        end
-      end
-    end
-    return terminal
-  end
-
-  # ========================================================================= #
-  # === gtk_scrollbar
-  # ========================================================================= #
-  def gtk_scrollbar(a = :vertical, b = @terminal.vadjustment)
-    ::Gtk::Scrollbar.new(a, b)
-  end
-
-  # ========================================================================= #
-  # === gtk_pixbuf
-  #
-  # This is essentially just a wrapper over:
-  #
-  #   image = Gtk::Image.new(pixbuf: icon) 
-  #
-  # I am not sure whether it will be kept as it is, as the name is a
-  # bit of a misnomer.
-  # ========================================================================= #
-  def gtk_pixbuf(
-      i, optional_width = nil, optional_height = nil
-    )
-    if optional_width
-      ::Gtk::Image.new(pixbuf: i, width: optional_width, height: optional_height)
-    else
-      ::Gtk::Image.new(pixbuf: i)
-    end
-  end; alias gdk_pixbuf gtk_pixbuf # === gdk_pixbuf
-
-  # ========================================================================= #
-  # === pixbuf_from_file
-  # ========================================================================= #
-  def pixbuf_from_file(this_file)
-    GdkPixbuf::Pixbuf.new(file: this_file)
-  end
-
-  # ========================================================================= #
-  # === directory_content_widget
-  # ========================================================================= #
-  def directory_content_widget(
-      i = return_pwd
-    )
-    ::Gtk::DirectoryContentWidget.new(i)
-  end; alias return_directory_widget directory_content_widget # === return_directory_widget
-
-  # ========================================================================= #
-  # === button_hover_colour
-  # ========================================================================= #
-  def button_hover_colour(
-      i = '#cef0ea; /* This is a very light blue. */'
-    )
-    i = i.to_s.dup
-    in_file_css '
-    button:hover {
-      background: '+i+'
-    }'
-  end
-
-  # ========================================================================= #
-  # === gtk_switch
-  #
-  # This is a "toggle" button in the sense of having a switch state.
-  #
-  # The two possible states are "on" and "off".
-  # ========================================================================= #
-  def gtk_switch
-    ::Gtk::Switch.new
-  end
-
-  # ========================================================================= #
-  # === gtk_entry_completion
-  #
-  # This will create a new instance of Gtk::EntryCompletion.
-  #
-  # The first argument can be used to attach the completion-object to
-  # the widget. An Array can be passed as well.
-  # ========================================================================= #
-  def gtk_entry_completion(i = nil)
-    entry_completion = ::Gtk::EntryCompletion.new
-    if i and i.is_a?(Array)
-      list_store = ::Gtk::ListStore.new(String)
-      i.each { |entry|
-        iter = list_store.append
-        iter[0] = entry
-      }
-      entry_completion.model = list_store
-    end
-    return entry_completion
-  end
-
-  # ========================================================================= #
-  # === gtk_tree_view
-  #
-  # Usage examples:
-  #
-  #   @treeview = gtk_tree_view(@liststore)
-  #   @treeview = gtk_tree_view(@liststore) { :clickable_headers }
-  #
-  # ========================================================================= #
-  def gtk_tree_view(
-      optional_input = nil
-    )
-    if optional_input
-      widget = ::Gtk::TreeView.new(optional_input)
-    else
-      widget = ::Gtk::TreeView.new
-    end
-    if block_given?
-      yielded = yield
-      case yielded
-      # ===================================================================== #
-      # === :clickable_headers
-      # ===================================================================== #
-      when :clickable_headers
-        widget.headers_clickable = true
-      end
-    end
-    widget
-  end; alias gtk_treeview gtk_tree_view # === gtk_treeview
-       alias tree_view    gtk_tree_view # === tree_view
-
-  # ========================================================================= #
-  # === gtk_runner_module
-  # ========================================================================= #
-  def gtk_runner_module
-    ::Gtk::AppModule
-  end; alias gtk_app_module gtk_runner_module # === gtk_app_module
-
-  # ========================================================================= #
-  # === set_parent_widget
-  # ========================================================================= #
-  def set_parent_widget(i)
-    @parent_widget = i
-  end
-
-  # ========================================================================= #
-  # === gtk_hseparator
-  #
-  # This is a horizontal separator.
-  # ========================================================================= #
-  def gtk_hseparator
-    if use_gtk2?
-      ::Gtk::HSeparator.new
-    else
-      ::Gtk::Separator.new(:horizontal)
-    end
-  end; alias gtk_separator        gtk_hseparator # === gtk_separator
-       alias horizontal_separator gtk_hseparator # === horizontal_separator
-
-  # ========================================================================= #
-  # === override_normal_background_color
-  # ========================================================================= #
-  def override_normal_background_color(
-      colour_to_use = Gdk::RGBA.new(0.999, 0.999, 0.999, 1)
-    )
-    override_background_color(:normal, colour_to_use)
-  end
-
-  # ========================================================================= #
-  # === cliner
-  # ========================================================================= #
-  def cliner
-    e '=' * 80
-  end
-
-  # ========================================================================= #
-  # === Gtk::BaseModule.extended
-  #
-  # Whenever this module is extended, .reset_the_internal_variables()
-  # is called, in order to initialize @configuration and other
-  # important instance-variables.
-  # ========================================================================= #
-  def self.extended(i)
-    i.reset_the_internal_variables
-  end
-
-  # ========================================================================= #
-  # === gtk_source_buffer
-  # ========================================================================= #
-  def gtk_source_buffer
-    begin
-      ::Gtk::SourceBuffer.new
-    rescue LoadError => error
-      puts 'Gtk::SourceBuffer does not appear to be available.'
-      pp error
-    end
-  end; alias return_sourcecode gtk_source_buffer # === return_sourcecode
-
-  # ========================================================================= #
-  # === two_strings
-  #
-  # This is simply a list-store with two Strings per row.
-  # ========================================================================= #
-  def two_strings
-    gtk_list_store(
-      String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === three_strings
-  #
-  # This is simply a list-store with three Strings per row.
-  # ========================================================================= #
-  def three_strings
-    gtk_list_store(
-      String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === four_strings
-  # ========================================================================= #
-  def four_strings
-    gtk_list_store(
-      String, String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === five_strings
-  #
-  # This is simply a list-store with five Strings per row.
-  # ========================================================================= #
-  def five_strings
-    gtk_list_store(
-      String, String, String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === six_strings
-  #
-  # This is simply a list-store with six Strings per row.
-  # ========================================================================= #
-  def six_strings
-    gtk_list_store(
-      String, String, String, String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === seven_strings
-  #
-  # This is simply a list-store with seven Strings per row.
-  # ========================================================================= #
-  def seven_strings
-    gtk_list_store(
-      String, String, String, String, String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === eight_strings
-  #
-  # This is simply a list-store with eight Strings per row.
-  # ========================================================================= #
-  def eight_strings
-    gtk_list_store(
-      String, String, String, String, String, String, String, String, String, String
-    )
-  end
-
-  # ========================================================================= #
-  # === set_background
-  # ========================================================================= #
-  def set_background(
-      use_this_colour = :grey
-    )
-    use_this_colour = ::Gtk.colour_parse(use_this_colour)
-    if ::Gtk.use_gtk2?
-      modify_bg(
-        ::Gtk::StateType::NORMAL, use_this_colour
-      )
-    else
-      if use_this_colour.is_a? Gdk::Color
-        # =================================================================== #
-        # Convert it into RGB values next.
-        # =================================================================== #
-        array = [
-          (use_this_colour.red   * 100.0 / 65535) / 100,
-          (use_this_colour.green * 100.0 / 65535) / 100,
-          (use_this_colour.blue  * 100.0 / 65535) / 100,
-          1.0
-        ]
-        use_this_colour = Gdk::RGBA.new(*array)
-      end
-      override_background_color(:normal, use_this_colour)
-    end
-  end; alias background=           set_background # === background=
-       alias set_bg                set_background # === set_bg
-       alias background_colour     set_background # === background_colour
-       alias set_background_colour set_background # === set_background_colour
-
-  # ========================================================================= #
-  # === gtk_accel_group
-  # ========================================================================= #
-  def gtk_accel_group
-    ::Gtk::AccelGroup.new
-  end; alias gtk_accelgroup gtk_accel_group # === gtk_accelgroup
-
-  # ========================================================================= #
-  # === create_and_add_gtk_accel_group
-  # ========================================================================= #
-  def create_and_add_gtk_accel_group
-    accel_group = gtk_accel_group
-    add_accel_group(accel_group) if respond_to? :add_accel_group
-    return accel_group
-  end
-
-  # ========================================================================= #
-  # === gtk_cell_renderer_combo
-  # ========================================================================= #
-  def gtk_cell_renderer_combo
-    ::Gtk::CellRendererCombo.new
-  end
-
-  # ========================================================================= #
-  # === gtk_cell_renderer_pixbuf
-  # ========================================================================= #
-  def gtk_cell_renderer_pixbuf
-    ::Gtk::CellRendererPixbuf.new
-  end; alias cell_renderer_pixbuf gtk_cell_renderer_pixbuf # === cell_renderer_pixbuf
-
-  # ========================================================================= #
-  # === gtk_cell_renderer_centered_text
-  # ========================================================================= #
-  def gtk_cell_renderer_centered_text
-    _ = gtk_cell_renderer_text
-    _.center
-    return _
-  end
-
-  # ========================================================================= #
-  # === gtk_cell_renderer_text
-  # ========================================================================= #
-  def gtk_cell_renderer_text
-    ::Gtk::CellRendererText.new
-  end; alias gtk_cellrenderer_text gtk_cell_renderer_text # === gtk_cellrenderer_text
-       alias gtk_cell_renderer     gtk_cell_renderer_text # === gtk_cell_renderer
-
-  # ========================================================================= #
-  # === gtk_cell_renderer_right_aligned
-  # ========================================================================= #
-  def gtk_cell_renderer_right_aligned
-    _ = ::Gtk::CellRendererText.new
-    _.set_xalign(1.0)
-    return _
-  end
-
-  # ========================================================================= #
-  # === gtk_menu_bar
-  # ========================================================================= #
-  def gtk_menu_bar
-    ::Gtk::MenuBar.new
-  end
-
-  # ========================================================================= #
-  # === gtk_font_chooser_dialog
-  # ========================================================================= #
-  def gtk_font_chooser_dialog(use_this_title = nil)
-    _ = ::Gtk::FontChooserDialog.new
-    if use_this_title
-      _.set_title(use_this_title)
-      # Could also do: _.move(0, 0)
-    end
-    response = _.run # Run it at once.
-    if response == Gtk::ResponseType::OK
-      ::Gtk.set_main_file(_.font.to_s)
-    end
-    return _
-  end; alias font_chooser_dialog gtk_font_chooser_dialog # === font_chooser_dialog
-
-  # ========================================================================= #
-  # === gtk_dropdown
-  #
-  # This creates a "drop-down" box, a combo-box entry.
-  # ========================================================================= #
-  def gtk_dropdown(*i)
-    i.flatten!
-    dropdown_box = gtk_combo_box(true)
-    # Next, append every element given to this method.
-    i.each { |entry| dropdown_box.append_text(entry) }
-    return dropdown_box
-  end; alias gtk_dropdown_box gtk_dropdown # === gtk_dropdown_box
-
-  # ========================================================================= #
-  # === enable_these_key_combinations
-  #
-  # Right now this method requires a Hash. At some point in the future
-  # we may ease up on that constraint.
-  # ========================================================================= #
-  def enable_these_key_combinations(
-      hash
-    )
-    unless hash.is_a? Hash
-      e 'We need a Hash for now. This may change at a later moment in'
-      e 'time, though.'
-      exit
-    end
-    # ======================================================================= #
-    # The Hash that is passed into this method may look like this:
-    #
-    #  "ctrl+s"=>"save_the_buffer", :"strg+s"=>"save_the_buffer"}
-    #
-    # ======================================================================= #
-    hash.each_pair {|this_shortcut_is_to_be_used, call_this_method|
-      # ===================================================================== #
-      # Remove ' ' characters.
-      # ===================================================================== #
-      if this_shortcut_is_to_be_used.is_a?(String) and
-         this_shortcut_is_to_be_used.include?(' ')
-        # =================================================================== #
-        # Since as of 12.05.2021 we will remove ' '.
-        # =================================================================== #
-        if this_shortcut_is_to_be_used.frozen?
-          this_shortcut_is_to_be_used = this_shortcut_is_to_be_used.dup
-        end
-        this_shortcut_is_to_be_used.delete!(' ')
-      end
-      @parent_widget.keybinding(
-        this_shortcut_is_to_be_used,
-        call_this_method
-      )
-    }
-  end
-
-  # ========================================================================= #
-  # === gtk_text_buffer
-  #
-  # The argument to this method can be used as argument to set_text(), aka
-  # you can set a default (startup) text for this text-buffer instance.
-  # ========================================================================= #
-  def gtk_text_buffer(
-      optional_input = nil
-    )
-    text_buffer = ::Gtk::TextBuffer.new
-    if optional_input and optional_input.is_a?(String)
-      text_buffer.set_text(optional_input)
-    end
-    return text_buffer
-  end; alias text_buffer gtk_text_buffer # === text_buffer
-
-  # ========================================================================= #
-  # === app_chooser_button
-  # ========================================================================= #
-  def app_chooser_button(
-      i = 'x-scheme-handler/mailto'
-    )
-    ::Gtk::AppChooserButton.new(i)
-  end; alias choose_app app_chooser_button # === choose_app
-
-  # ========================================================================= #
-  # === string_list_store
-  # ========================================================================= #
-  def string_list_store
-    ::Gtk::ListStore.new(String)
-  end
-
-  # ========================================================================= #
-  # === return_numbered_lines_widget
-  #
-  # This method will yield - and return - the numbered-lines widget.
-  # ========================================================================= #
-  def return_numbered_lines_widget(
-      pass_this_hash = {
-        upper_range: 100
-      },
-      &block
-    )
-    unless Gtk.const_defined? :NumberedLines
-      require 'gtk_paradise/requires/numbered_lines.rb'
-    end
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Hash
-        pass_this_hash = yielded
-      end
-    end
-    return ::Gtk::NumberedLines.new { pass_this_hash }
-  end; alias return_widget_with_line_numbers return_numbered_lines_widget # === return_widget_with_line_numbers
-       alias return_numbered_lines_widget    return_numbered_lines_widget # === return_numbered_lines_widget
-
-  # ========================================================================= #
-  # === gtk_main_quit
-  # ========================================================================= #
-  def gtk_main_quit
-    ::Gtk.main_quit
-  end; alias gtk_quit      gtk_main_quit # === gtk_quit
-       alias gtk_main_exit gtk_main_quit # === gtk_main_exit
-
-  # ========================================================================= #
-  # === resize_based_on_width_and_height_attributes
-  #
-  # This method will resize based on .width? and .height? results.
-  # ========================================================================= #
-  def resize_based_on_width_and_height_attributes(
-      optional_arguments = nil
-    )
-    width  = width?
-    height = height?
-    if width.is_a?(String) and width.include?('%')
-      # ===================================================================== #
-      # Handle something like '80%'.
-      # ===================================================================== #
-      width = (max_width? * width.delete('%').to_f) / 100.0
-    end
-    if height.is_a?(String) and height.include?('%')
-      # ===================================================================== #
-      # Handle something like '80%'.
-      # ===================================================================== #
-      height = (max_height? * height.delete('%').to_f) / 100.0
-    end
-    case optional_arguments
-    # ======================================================================= #
-    # === :debug
-    # ======================================================================= #
-    when :debug
-      e 'Width and Height are: '+width.to_s+', '+height.to_s
-    end
-    set_size_request(width.to_i, height.to_i)
-  end; alias infer_the_size_automatically resize_based_on_width_and_height_attributes # === infer_the_size_automatically
-       alias infer_size_request           resize_based_on_width_and_height_attributes # === infer_size_request
-       alias determine_the_default_size   resize_based_on_width_and_height_attributes # === determine_the_default_size
-
-  # ========================================================================= #
-  # === padded_hbox
-  # ========================================================================= #
-  def padded_hbox
-    _ = ::Gtk.hbox
-    _.pad5px
-    return _
-  end
-
-  # ========================================================================= #
-  # === padded_vbox
-  # ========================================================================= #
-  def padded_vbox
-    _ = ::Gtk.vbox
-    _.pad5px
-    return _
-  end
-
-  # ========================================================================= #
-  # === set_title
-  # ========================================================================= #
-  def set_title(i)
-    @title = i
-  end
-
-  # ========================================================================= #
-  # === title?
-  # ========================================================================= #
-  def title?(i = @title)
-    i
-  end; alias my_title? title? # === my_title?
-
-  # ========================================================================= #
-  # === top_left
-  #
-  # This method may only work on Gtk::Window, I think.
-  # ========================================================================= #
-  def top_left
-    move(0, 0) if respond_to? :move
-  end
-
-  # ========================================================================= #
-  # === set_height
-  # ========================================================================= #
-  def set_height(i)
-    if i.is_a?(String) and i.include?('%')
-      # ===================================================================== #
-      # Handle something like '80%'.
-      # ===================================================================== #
-      i = (max_height? * i.delete('%').to_f) / 100.0
-    end
-    @height = i.to_i
-  end
-
-  # ========================================================================= #
-  # === height?
-  # ========================================================================= #
-  def height?(i = @height)
-    i
-  end
-
-  # ========================================================================= #
-  # === width?
-  # ========================================================================= #
-  def width?(i = @width)
-    i
-  end
-
-  # ========================================================================= #
-  # === gtk_statusbar_with_handle
-  # ========================================================================= #
-  def gtk_statusbar_with_handle
-    gtk_statusbar { :with_handle }
-  end
-
-  require 'gtk_paradise/gtk_classes/statusbar.rb'
-  # ========================================================================= #
-  # === gtk_statusbar
-  #
-  # Local documentation is available, on my system, via:
-  #
-  #   rf ruby gtk_statusbar
-  #   http://localhost:10000/gtk#gtk_statusbar
-  #
-  # Variants may include this:
-  #
-  #   gtk_statusbar { :with_resize_grip }
-  #   gtk_statusbar { :has_resize_grip }
-  #   gtk_statusbar { :resize_grip }
-  #   gtk_statusbar { :with_a_resize_grip }
-  #
-  # ========================================================================= #
-  def gtk_statusbar(
-      optional_use_this_as_status_bar = nil
-    )
-    statusbar = ::Gtk::Statusbar.new
-    if optional_use_this_as_status_bar
-      @status_bar_context_id = status_bar.get_context_id(optional_use_this_as_status_bar)
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      case yield
-      # ===================================================================== #
-      # === :with_resize_grip
-      # ===================================================================== #
-      when :with_resize_grip,
-           :with_a_resize_grip,
-           :has_resize_grip,
-           :resize_grip,
-           :with_handle,
-           :grip
-        statusbar.has_resize_grip = true if respond_to?(:has_resize_grip)
-      end
-    end
-    return statusbar # And return it here.
-  end; alias gtk_status_bar            gtk_statusbar # === gtk_status_bar
-       alias return_default_status_bar gtk_statusbar # === return_default_status_bar
-
-  # ========================================================================= #
-  # === interactive_change_the_font
-  #
-  # Unfortunately this does not work as I would have expected, in 2021 ...
-  # ========================================================================= #
-  def interactive_change_the_font
-    vbox = gtk_vbox
-    label = gtk_label('Enter the font:')
-    vbox << label
-    entry = gtk_entry
-    entry.center
-    vbox << entry
-    a_quit_button = gtk_button('_Quit')
-    vbox << a_quit_button
-    r = ::Gtk.run
-    r << vbox
-    r.top_left_then_run
-    a_quit_button.on_clicked {
-      set_font(entry.text?)
-      r.destroy
-    }
-  end
-
-  # ========================================================================= #
-  # === is_it_an_enter_key?
-  #
-  # This method will query whether the given event equals the enter-key.
-  #
-  # Two different keys may be used for that on most keyboard-devices,
-  # which explaines why two when-checks are done, ultimately.
-  # ========================================================================= #
-  def is_it_an_enter_key?(event)
-    case Gdk::Keyval.to_name(event.keyval)
-    when 'Return','KP_Enter'
-      return true
-    else
-      return false
-    end
-  end; alias enter_key?    is_it_an_enter_key? # === enter_key?
-       alias is_enter_key? is_it_an_enter_key? # === is_enter_key?
-
-  require 'gtk_paradise/gtk_classes/file_chooser_dialog.rb'
-  # ========================================================================= #
-  # === gtk_file_chooser_dialog
-  #
-  # This method is simply a wrapper over Gtk::FileChooserDialog.
-  # ========================================================================= #
-  def gtk_file_chooser_dialog(
-      label_to_use = '',
-      which_widget_to_use,
-      which_action_type,
-      whatever_here,
-      array_cancel,
-      array_accept
-    )
-    ::Gtk::FileChooserDialog.new(
-      label_to_use,
-      which_widget_to_use,
-      which_action_type,
-      whatever_here,
-      array_cancel,
-      array_accept
-    )
-  end
-
-  # ========================================================================= #
-  # === gtk_file_chooser_button
-  #
-  # The first argument to this method is the default text that is to
-  # appear on the file-chooser button.
-  #
-  # Currently (November 2020) you have to handle the click-event in
-  # your application.
-  #
-  # You can use the following line of code for this:
-  #
-  #   file_chooser = gtk_file_chooser_button
-  #   file_chooser.on_click { create_a_new_file_chooser_dialog(this_widget, use_this_text) }
-  #
-  # ========================================================================= #
-  def gtk_file_chooser_button(
-      use_this_text = 'Open File',
-      options_hash = {
-        use_tooltip_hint: true
-      }
-    )
-    _ = gtk_button(use_this_text)
-    # ======================================================================= #
-    # === Handle the Hash, the assumed second argument to this method
-    # ======================================================================= #
-    if options_hash.is_a? Hash
-      # ===================================================================== #
-      # === :use_tooltip_hint
-      # ===================================================================== #
-      if options_hash[:use_tooltip_hint]
-        _.hint = 'Click on this button to open a local file.'
-      end
-    end
-    return _
-  end; alias gtk_file_open_button       gtk_file_chooser_button # === gtk_file_open_button
-       alias return_file_chooser_button gtk_file_chooser_button # === return_file_chooser_button
-       alias default_choose_filer       gtk_file_chooser_button # === default_choose_filer
-
-  # ========================================================================= #
-  # === absolute_file_path
-  # ========================================================================= #
-  def absolute_file_path(i)
-    File.absolute_path(i)
-  end
-
-  # ========================================================================= #
-  # === add_a_horizontal_spacer
-  #
-  # This variant will automatically add the horizontal-spacer as-is.
-  # ========================================================================= #
-  def add_a_horizontal_spacer
-    add(horizontal_spacer)
-  end
-
-  # ========================================================================= #
-  # === vertical_spacer
-  # ========================================================================= #
-  def vertical_spacer
-    ::Gtk.vertical_spacer
-  end; alias vspacer     vertical_spacer # === vspacer
-       alias gtk_vspacer vertical_spacer # === gtk_vspacer
-
-  require 'gtk_paradise/toplevel_methods/spacer.rb'
-  # ========================================================================= #
-  # === spacer
-  # ========================================================================= #
-  def spacer
-    ::Gtk.spacer
-  end; alias gtk_spacer spacer # === gtk_spacer
-
-  # ========================================================================= #
-  # === create_skeleton_then_connect_skeleton
-  #
-  # Note that you may have to create your own methods called
-  # connect_skeleton() and connect_skeleton().
-  # ========================================================================= #
-  def create_skeleton_then_connect_skeleton
-    create_skeleton
-    connect_skeleton
-  end
-
-  # ========================================================================= #
-  # === window_or_vbox
-  #
-  # This is currently only a vbox. In the future this may be changed,
-  # but for now (November 2021) this is how it is.
-  #
-  # Note that currently the optional_menu argument is ignored.
-  # ========================================================================= #
-  def window_or_vbox(
-      optional_title  = '',
-      optional_width  = 800,
-      optional_height = 640,
-      optional_menu   =   0 # This may also be a Hash.
-    )
-    _ = vbox
-    if optional_title
-      _.set_title(optional_title) if _.respond_to?(:set_title)
-    end
-    if optional_width or optional_height
-      _.set_size_request(optional_width, optional_height)
-    end
-    return _
-  end
-
-  # ========================================================================= #
-  # === run_main
-  #
-  # This is simply a wrapper over Gtk.main. It was added
-  # ========================================================================= #
-  def run_main
-    Gtk.main
-  end
-
-  # ========================================================================= #
-  # === use_gtk?
-  #
-  # This is an ad-hoc method; it was used primarily to simplify transitioning
-  # into SimpleWidgets.
-  # ========================================================================= #
-  def use_gtk?
-    true
-  end
-
-  # ========================================================================= #
-  # === use_libui?
-  #
-  # Whether this object is making use of libui. This is logically false if
-  # we use gtk, but the reason this method was added was to be able to
-  # use different GUIs, so a simple check is useful for that purpose.
-  # ========================================================================= #
-  def use_libui?
-    false
-  end
-
-  # ========================================================================= #
-  # === icon_theme?
-  # ========================================================================= #
-  def icon_theme?
-    ::Gtk::IconTheme.default
-  end
-
-  # ========================================================================= #
-  # === text_then_entry
-  #
-  # This method will return a hbox, which in turn contains a text, and
-  # then an entry for user input.
-  #
-  # Three elements will be returned: the hbox, then the text (a gtk-label)
-  # and finally the entry (a gtk-entry).
-  #
-  # The method may be called with some variation, such as:
-  #
-  #   text_then_entry('Name of the card', padding: 5)
-  #
-  # ========================================================================= #
-  def text_then_entry(
-      this_text        = '',
-      use_this_padding = 0
-    )
-    hbox  = gtk_hbox
-    text  = gtk_text(this_text)
-    entry = gtk_entry
-    hbox.minimal(text,  use_this_padding)
-    hbox.minimal(entry, use_this_padding)
-    return [hbox, text, entry]
-  end
-
-  # ========================================================================= #
-  # === gtk_hbox
-  #
-  # Wrapper-method towards Gtk::HBox. In other words, this method will
-  # create a new horizontal-box.
-  #
-  # Note that you can also pass a Hash, as a block.
-  #
-  # Example:
-  #
-  #   hbox = gtk_hbox {{ spacing: 10 }}
-  #
-  # ========================================================================= #
-  def gtk_hbox(
-      *i,
-      &block
-    )
-    if i and i.is_a?(Array) and i.empty? and block_given?
-      i = [yield]
-    end
-    if i.is_a? Array
-      first = i.first
-      # ===================================================================== #
-      # === Handle the situation when the first element is a Hash
-      # ===================================================================== #
-      if first.is_a? Hash
-        new_result = []
-        # =================================================================== #
-        # {:label=>"File path:", :entry=>#<Gtk::Entry:0x7fae47a04cc0 ptr=0x7fae481e6450>}
-        # =================================================================== #
-        first.each_pair {|key, value|
-          case key
-          # ================================================================= #
-          # === :label
-          # ================================================================= #
-          when :label
-            new_result << ::Gtk.label(value)
-          # ================================================================= #
-          # === :entry
-          # ================================================================= #
-          when :entry
-            new_result << ::Gtk.entry # (value)
-          # ================================================================= #
-          # === :button
-          # ================================================================= #
-          when :button
-            new_result << ::Gtk.button
-          end
-        }
-        i = new_result unless new_result.empty?
-      end
-    end
-    i.flatten! if i.is_a? Array
-    ::Gtk.hbox(i, &block)
-  end; alias create_hbox gtk_hbox # === create_hbox
-       alias hbox        gtk_hbox # === hbox
-
-  # ========================================================================= #
-  # === create_a_new_file_chooser_dialog
-  #
-  # The first argument should be a Gtk::Window instance.
-  #
-  # Usage examples:
-  #
-  #   create_a_new_file_chooser_dialog {{ filter: '.pdf' }}
-  #   create_a_new_file_chooser_dialog {{ filter_for: '.pdb' }}
-  #   create_a_new_file_chooser_dialog {{ filter_for: '.md', additional_folders: '/Depot/j/' }}
-  #   create_a_new_file_chooser_dialog {{ filter_for: '.md', additional_folders: '/Depot/j/', start_dir: '/tmp/' }}
-  #
-  # ========================================================================= #
-  def create_a_new_file_chooser_dialog(
-      this_widget   = self,
-      use_this_text = 'Open File',
-      &block
-    )
-    action_open = :open
-    if ::Gtk.use_gtk2?
-      action_open = ::Gtk::FileChooser::ACTION_OPEN
-    end 
-    case this_widget
-    when nil
-      this_widget = self
-    end
-    # ======================================================================= #
-    # Assign to the @file_chooser_dialog variable next.
-    # ======================================================================= #
-    if ::Gtk.use_gtk2?
-      @file_chooser_dialog = FileChooserDialog.new(
-        use_this_text,
-        this_widget,
-        action_open,
-        nil,
-       [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL],
-       [Gtk::Stock::OPEN,   Gtk::Dialog::RESPONSE_ACCEPT]
-      )
-    else # else assume ruby-gtk3.
-      @file_chooser_dialog = FileChooserDialog.new(
-        title:   use_this_text,
-        action:  action_open,
-        buttons: [[Gtk::Stock::OPEN,   :accept],
-                  [Gtk::Stock::CANCEL, :cancel]]
-      )
-      # ===================================================================== #
-      # Give it a name - that way people can re-define the looks as-is
-      # via CSS.
-      # ===================================================================== #
-      @file_chooser_dialog.set_name('custom_file_chooser_dialog')
-    end
-    @file_chooser_dialog.current_folder = return_pwd
-    @file_chooser_dialog.show_hidden = true # Do show hidden files.
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      # ===================================================================== #
-      # === Handle Hashes next
-      # ===================================================================== #
-      if yielded.is_a? Hash
-        # =================================================================== #
-        # === additional_folders
-        #
-        # This can be used like so:
-        #
-        #   additional_folders: '/Depot/j/'
-        #
-        # =================================================================== #
-        if yielded.has_key? :additional_folders
-          _ = yielded[:additional_folders]
-          if _.is_a? Array
-            _.each {|this_entry|
-              @file_chooser_dialog.add_this_directory(this_entry)
-            }
-          else
-            @file_chooser_dialog.add_this_directory(_)
-          end
-        # =================================================================== #
-        # === additional_directories
-        #
-        # This is an alias to the above.
-        # =================================================================== #
-        elsif yielded.has_key? :additional_directories
-          _ = yielded[:additional_directories]
-          if _.is_a? Array
-            _.flatten.each {|this_entry|
-              @file_chooser_dialog.add_this_directory(this_entry)
-            }
-          else
-            @file_chooser_dialog.add_this_directory(_)
-          end
-        end
-        # =================================================================== #
-        # === :start_dir
-        #
-        # This allows us to use another start-directory.
-        # =================================================================== #
-        if yielded.has_key? :start_dir
-          _ = yielded[:start_dir].to_s
-          @file_chooser_dialog.cd_to(_)
-        # =================================================================== #
-        # === :start_directory
-        # =================================================================== #
-        elsif yielded.has_key? :start_directory
-          _ = yielded[:start_directory].to_s
-          @file_chooser_dialog.cd_to(_)
-        end
-        # =================================================================== #
-        # === :current_folder
-        #
-        # This is different to :start_directory, because the former only
-        # cds, whereas the entry here does both.
-        # =================================================================== #
-        if yielded.has_key? :current_folder
-          _ = yielded[:current_folder]
-          if _ and File.directory?(_)
-            @file_chooser_dialog.current_folder = _
-            @file_chooser_dialog.cd_to(_)
-          end
-        end
-        # =================================================================== #
-        # === :filter
-        #
-        # This allows us to filter towards a particular file-type.
-        # =================================================================== #
-        if yielded.has_key? :filter
-          _ = yielded[:filter]
-          @file_chooser_dialog.add_filter(
-            gtk_file_filter(_) # Apply the file-filter here.
-          )
-        # =================================================================== #
-        # === :filter_for
-        # =================================================================== #
-        elsif yielded.has_key? :filter_for
-          _ = yielded[:filter_for].to_s
-          @file_chooser_dialog.add_filter(
-            gtk_file_filter(_) # Apply the file-filter here.
-          )
-        end
-        # =================================================================== #
-        # === :extra_widget
-        # =================================================================== #
-        if yielded.has_key? :extra_widget
-          _ = yielded[:extra_widget]
-          @file_chooser_dialog.extra_widget = _
-        end
-        # =================================================================== #
-        # === :show_hidden
-        # =================================================================== #
-        if yielded.has_key? :show_hidden
-          _ = yielded[:show_hidden]
-          @file_chooser_dialog.show_hidden = _
-        end
-        # =================================================================== #
-        # === :show_hidden_files
-        # =================================================================== #
-        if yielded.has_key? :show_hidden_files
-          @file_chooser_dialog.show_hidden = true # Do show hidden files.
-        end
-      end
-    end
-    response_accept = Gtk::ResponseType::ACCEPT
-    if ::Gtk.use_gtk2?
-      response_accept = Gtk::Dialog::RESPONSE_ACCEPT
-    end
-    case @file_chooser_dialog.run
-    when response_accept 
-      filename = @file_chooser_dialog.filename
-      # ===================================================================== #
-      # We will next store the filename on the toplevel "namespace". This
-      # allows the user to query the designated file via a query-method.
-      #
-      # This can be queried via: Gtk.main_file?
-      # ===================================================================== #
-      ::Gtk.set_main_file(filename)
-    end
-    @file_chooser_dialog.destroy
-    return @file_chooser_dialog
-  end; alias new_file_chooser_dialog create_a_new_file_chooser_dialog # === new_file_chooser_dialog
-       alias open_local_file         create_a_new_file_chooser_dialog # === open_local_file
-       alias do_open_a_file          create_a_new_file_chooser_dialog # === do_open_a_file
-       alias look_for_a_local_file   create_a_new_file_chooser_dialog # === look_for_a_local_file
-
-  # ========================================================================= #
-  # === gtk_about_dialog
-  # ========================================================================= #
-  def gtk_about_dialog
-    ::Gtk::AboutDialog.new
-  end
-
-  require 'gtk_paradise/gtk_classes/hscale.rb'
-  # ========================================================================= #
-  # === gtk_hscale
-  # ========================================================================= #
-  def gtk_hscale(a = 0.5, b = 0, c = 0)
-    if a.is_a? Hash
-      if a.has_key? :n_digits
-        a = a[:n_digits]
-        a = ::Gtk::Adjustment.new(a, b, c, 0, 0, 0)
-      end
-    end
-    if ::Gtk.use_gtk2?
-      ::Gtk::HScale.new(a, b, c)
-    else
-      ::Gtk::Scale.new(:horizontal, a, b, c)
-    end
-  end; alias hscale gtk_hscale # === hscale
-
-  require 'gtk_paradise/gtk_classes/vscale.rb'
-  # ========================================================================= #
-  # === gtk_vscale
-  # ========================================================================= #
-  def gtk_vscale(a = 0.5, b = 0, c = 0)
-    if a.is_a? Hash
-      if a.has_key? :n_digits
-        a = a[:n_digits]
-        a = ::Gtk::Adjustment.new(a, b, c, 0, 0, 0)
-      end
-    end
-    if ::Gtk.use_gtk2?
-      ::Gtk::VScale.new(a, b, c)
-    else
-      ::Gtk::Scale.new(:vertical, a, b, c)
-    end
-  end; alias vscale gtk_vscale # === vscale
-
-end
-
-# =========================================================================== #
-# === Gtk.directory_to_the_images?
-# =========================================================================== #
-def self.directory_to_the_images?
-  ::Gtk::BaseModule::IMG_DIR
-end
-
-end