swing_paradise 0.1.46

data/lib/swing_paradise/base_module/base_module.rb

@@ -0,0 +1,993 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'swing_paradise/base_module/base_module.rb'
+# include SwingParadise::BaseModule
+# =========================================================================== #
+# (import tag, imports tag)
+# =========================================================================== #
+java_import java.awt.BorderLayout
+java_import java.awt.Color
+java_import java.awt.Component
+java_import java.awt.Dimension
+java_import java.awt.Font
+java_import java.awt.FlowLayout
+java_import java.awt.Frame
+java_import java.awt.GradientPaint
+java_import java.awt.Graphics
+java_import java.awt.GraphicsEnvironment
+java_import java.awt.Graphics2D
+java_import java.awt.GridBagLayout
+java_import java.awt.GridLayout
+java_import java.awt.Insets
+java_import java.awt.Point
+java_import java.awt.Rectangle
+java_import java.awt.Toolkit
+
+# =========================================================================== #
+# === Events come next - this includes being able to respond to key
+#     events
+# =========================================================================== #
+java_import java.awt.event.ActionEvent
+java_import java.awt.event.ActionListener
+java_import java.awt.event.KeyListener
+java_import java.awt.event.KeyAdapter
+java_import java.awt.event.KeyEvent
+java_import java.awt.event.MouseAdapter
+java_import java.awt.event.MouseEvent
+java_import java.awt.event.WindowAdapter
+java_import java.awt.event.WindowEvent
+
+java_import java.lang.System
+
+# =========================================================================== #
+# Next javax. components:
+# =========================================================================== #
+java_import javax.imageio.ImageIO
+java_import javax.swing.BorderFactory
+java_import javax.swing.Box
+java_import javax.swing.BoxLayout
+java_import javax.swing.ButtonGroup
+# java_import javax.swing.event
+java_import javax.swing.ImageIcon
+java_import javax.swing.JCheckBox
+java_import javax.swing.JColorChooser
+java_import javax.swing.JComboBox
+java_import javax.swing.JComponent
+java_import javax.swing.JDialog
+java_import javax.swing.JEditorPane
+java_import javax.swing.JFileChooser
+java_import javax.swing.JFrame
+java_import javax.swing.JLabel
+java_import javax.swing.JMenu
+java_import javax.swing.JMenuBar
+java_import javax.swing.JMenuItem
+java_import javax.swing.JTable
+java_import javax.swing.JTextArea
+java_import javax.swing.JTextField
+java_import javax.swing.JPanel
+java_import javax.swing.JPasswordField
+java_import javax.swing.JRadioButton
+java_import javax.swing.JScrollBar
+java_import javax.swing.JScrollPane
+java_import javax.swing.JSplitPane
+java_import javax.swing.SwingConstants
+java_import javax.swing.SwingUtilities
+java_import javax.swing.UIManager
+java_import javax.swing.border.EmptyBorder
+java_import javax.swing.border.EtchedBorder
+
+module SwingParadise
+
+module BaseModule # === SwingParadise::BaseModule
+
+  alias e puts
+
+  require 'swing_paradise/java_classes/border_factory/border_factory.rb'
+  require 'swing_paradise/java_classes/box/box.rb'
+  require 'swing_paradise/java_classes/jbutton/jbutton.rb'
+  require 'swing_paradise/java_classes/jcheckbox/jcheckbox.rb'
+  require 'swing_paradise/java_classes/jcomponent/jcomponent.rb'
+  require 'swing_paradise/java_classes/jcombobox/jcombobox.rb'
+  require 'swing_paradise/java_classes/jeditorpane/jeditorpane.rb'
+  require 'swing_paradise/java_classes/jfilechooser/jfilechooser.rb'
+  require 'swing_paradise/java_classes/jframe/jframe.rb'
+  require 'swing_paradise/java_classes/jlabel/jlabel.rb'
+  require 'swing_paradise/java_classes/jmenu/jmenu.rb'
+  require 'swing_paradise/java_classes/jmenubar/jmenubar.rb'
+  require 'swing_paradise/java_classes/jpanel/jpanel.rb'
+  require 'swing_paradise/java_classes/jscrollpane/jscrollpane.rb'
+  require 'swing_paradise/java_classes/jtextarea/jtextarea.rb'
+  require 'swing_paradise/java_classes/jtextfield/jtextfield.rb'
+  require 'swing_paradise/java_classes/default_table_model/default_table_model.rb'
+
+  require 'swing_paradise/toplevel_methods/misc.rb'
+  require 'swing_paradise/misc/misc.rb'
+
+  include SwingParadise
+
+  require 'fileutils'
+
+  begin
+    require 'colours'
+    include ::Colours
+  rescue LoadError; end
+
+  # ========================================================================= #
+  # === button_with_image
+  #
+  # This is a button with an image (also called an icon).
+  # ========================================================================= #
+  def button_with_image(
+      icon_location                                    = '',
+      optional_text                                    = '',
+      optional_widget_to_have_the_click_action_defined = nil,
+      &block
+    )
+    if icon_location and icon_location.is_a?(String)
+      icon_location = ImageIcon.new(icon_location)
+    end
+    if optional_text and !optional_text.empty?
+      button = JButton.new(optional_text, icon_location)
+    else
+      button = JButton.new(icon_location)
+    end
+    # ======================================================================= #
+    # === Handle blocks given to this method next
+    # ======================================================================= #
+    if block_given?
+      yielded = yield
+      # ===================================================================== #
+      # === Handle Hashes next
+      # ===================================================================== #
+      if yielded.is_a? Hash
+        # =================================================================== #
+        # === :font
+        # =================================================================== #
+        if yielded.has_key? :font
+          button.use_this_font = yielded.delete(:font)
+        end
+      else
+        button.on_clicked {
+          if optional_widget_to_have_the_click_action_defined
+            optional_widget_to_have_the_click_action_defined.send(yielded.to_sym)
+          else
+            send(yielded.to_sym)
+          end
+        }
+      end
+    end
+    return button    
+  end
+
+  # ========================================================================= #
+  # === jbutton                                                  (button tag)
+  #
+  # This method can be used to create a new button, aka a jbutton in
+  # java-swing parlance.
+  # ========================================================================= #
+  def jbutton(
+      i = '',
+      optional_widget_to_have_the_click_action_defined = nil,
+      &block
+    )
+    button = JButton.new(i)
+    # ======================================================================= #
+    # === Handle blocks given to this method next
+    # ======================================================================= #
+    if block_given?
+      yielded = yield
+      # ===================================================================== #
+      # === Handle Hashes next
+      # ===================================================================== #
+      if yielded.is_a? Hash
+        # =================================================================== #
+        # === :font
+        # =================================================================== #
+        if yielded.has_key? :font
+          button.use_this_font = yielded.delete(:font)
+        end
+      else
+        button.on_clicked {
+          if optional_widget_to_have_the_click_action_defined
+            optional_widget_to_have_the_click_action_defined.send(yielded.to_sym)
+          else
+            send(yielded.to_sym)
+          end
+        }
+      end
+    end
+    return button
+  end; alias button        jbutton # === button
+       alias create_button jbutton # === create_button
+
+  # ========================================================================= #
+  # === radio_button
+  # ========================================================================= #
+  def radio_button(
+      text                     = '',
+      selected_or_not_selected = false
+    )
+    case selected_or_not_selected
+    # ======================================================================= #
+    # === :is_selected
+    # ======================================================================= #
+    when :is_selected
+      selected_or_not_selected = true
+    end
+    JRadioButton.new(text, selected_or_not_selected)
+  end; alias radiobutton   radio_button # === radiobutton
+       alias jradio_button radio_button # === jradio_button
+
+  # ========================================================================= #
+  # === bold_button
+  # ========================================================================= #
+  def bold_button(
+      i = '',
+      optional_widget_to_have_the_click_action_defined = nil,
+      &block
+    )
+    _ = create_button(i, optional_widget_to_have_the_click_action_defined, &block)
+    _.setFont(_.getFont.deriveFont(Font::BOLD))
+    return _
+  end
+
+  # ========================================================================= #
+  # === quit_button
+  # ========================================================================= #
+  def quit_button(
+      use_this_text = 'Quit'
+    )
+    _ = button(use_this_text)
+    _.on_clicked { do_quit }
+    return _
+  end
+
+  # ========================================================================= #
+  # === esystem
+  # ========================================================================= #
+  def esystem(i = '')
+    e i; system i
+  end
+
+  # ========================================================================= #
+  # === cpr
+  #
+  # This is recursive copy.
+  # ========================================================================= #
+  def cpr(
+      from = return_pwd,
+      to   = '.'
+    )
+    FileUtils.cp_r(from, to, verbose: true)
+  end
+
+  # ========================================================================= #
+  # === defaul_table_model
+  # ========================================================================= #
+  def defaul_table_model(
+      first_argument   = nil,
+      optional_columns = nil
+    )
+    if optional_columns
+      javax.swing.table.DefaultTableModel.new(first_argument, optional_columns)
+    else
+      javax.swing.table.DefaultTableModel.new
+    end
+  end
+
+  # ========================================================================= #
+  # === jscroll_pane
+  #
+  # A JScrollPane provides a scrollable view of another widget. The
+  # JScrollPane manages a viewport, optional vertical and horizontal
+  # scroll bars, and optional row and column heading viewports.
+  # ========================================================================= #
+  def jscroll_pane(
+      child_widget,
+      vertical_scrollbar_policy   = :vertical_always,
+      horizontal_scrollbar_policy = :default
+    )
+    case vertical_scrollbar_policy
+    # ======================================================================= #
+    # === :vertical_always
+    # ======================================================================= #
+    when :vertical_always
+      vertical_scrollbar_policy = Java::JavaxSwing::ScrollPaneConstants::VERTICAL_SCROLLBAR_ALWAYS
+    end
+    case horizontal_scrollbar_policy
+    # ======================================================================= #
+    # === :default
+    # ======================================================================= #
+    when :default
+      horizontal_scrollbar_policy = Java::JavaxSwing::ScrollPaneConstants::HORIZONTAL_SCROLLBAR_ALWAYS
+    # ======================================================================= #
+    # === :horizontal_never
+    # ======================================================================= #
+    when :horizontal_never
+      horizontal_scrollbar_policy = Java::JavaxSwing::ScrollPaneConstants::HORIZONTAL_SCROLLBAR_NEVER
+    end
+    JScrollPane.new(
+      child_widget,
+      vertical_scrollbar_policy,
+      horizontal_scrollbar_policy
+    )
+  end; alias scroll_pane             jscroll_pane # === scroll_pane
+       alias scrollpane              jscroll_pane # === scrollpane
+       alias scrolled_window         jscroll_pane # === scrolled_window
+       alias scrolling               jscroll_pane # === scrolling
+       alias created_scrolled_window jscroll_pane # === created_scrolled_window
+       alias create_scrolled_window  jscroll_pane # === create_scrolled_window
+       alias default_scroll_pane     jscroll_pane # === default_scroll_pane
+
+  # ========================================================================= #
+  # === create_file_chooser
+  # ========================================================================= #
+  def create_file_chooser
+    JFileChooser.new
+  end
+
+  # ========================================================================= #
+  # === vbox
+  #
+  # A vertical box.
+  # ========================================================================= #
+  def vbox
+    javax.swing.Box.createVerticalBox
+  end; alias create_vbox vbox # === create_vbox
+
+  # ========================================================================= #
+  # === has_the_enter_key_been_pressed?
+  #
+  # This method assumes that a java-swing event was passed as argument.
+  # ========================================================================= #
+  def has_the_enter_key_been_pressed?(event)
+    event.getKeyCode == KeyEvent::VK_ESCAPE
+  end
+
+  # ========================================================================= #
+  # === entry
+  #
+  # This is simply a wrapper over JTextField.
+  # ========================================================================= #
+  def entry(
+      i             = '',
+      optional_size = nil
+    )
+    if optional_size
+      JTextField.new(i, optional_size) # This is similar to e. g. JTextField.new("", 20).
+    else
+      JTextField.new(i)
+    end
+  end; alias hcentered_entry  entry # === hcentered_entry
+       alias create_entry     entry # === create_entry
+       alias text_field       entry # === text_field
+       alias jtextfield       entry # === jtextfield
+       alias create_textfield entry # === create_textfield
+
+  # ========================================================================= #
+  # === default_close
+  # ========================================================================= #
+  def default_close
+    setDefaultCloseOperation(JFrame::EXIT_ON_CLOSE)
+  end
+
+  # ========================================================================= #
+  # === create_window_or_runner
+  # ========================================================================= #
+  def create_window_or_runner(
+      optional_widget = nil
+    )
+    frame = SwingParadise.create_frame(internal_width?, internal_height?)
+    if optional_widget
+      frame.add(optional_widget)
+    end
+    return frame
+  end; alias create_window create_window_or_runner # === create_window
+
+  # ========================================================================= #
+  # === empty_border
+  # ========================================================================= #
+  def empty_border(
+      a = 2, # This is the primary value - the most important value.
+      b = :default,
+      c = :default,
+      d = :default
+    )
+    if b == :default
+      b = a
+    end
+    if c == :default
+      c = a
+    end
+    if d == :default
+      d = a
+    end
+    EmptyBorder.new(a, b, c, d)
+  end
+
+  # ========================================================================= #
+  # === do_quit
+  #
+  # This method can be used as a more convenient do-exit method.
+  # ========================================================================= #
+  def do_quit(
+      use_this_as_the_exit_code = 0
+    )
+    System.exit(use_this_as_the_exit_code)
+  end
+
+  # ========================================================================= #
+  # === word_wrap
+  # ========================================================================= #
+  def word_wrap(
+      text,
+      line_width = 75
+    )
+    if line_width.is_a? Hash
+      # ===================================================================== #
+      # === :threshold
+      # ===================================================================== #
+      if line_width.has_key? :threshold
+        line_width = line_width.delete(:threshold)
+      end
+    end
+    result = text.scan(/\S.{0,#{line_width}}\S(?=\s|$)|\S+/).join(N)
+    return result
+  end
+
+  # ========================================================================= #
+  # === set_global_font
+  #
+  # This method can be used to set a global font for a jruby-SWING
+  # application.
+  # ========================================================================= #
+  def set_global_font(
+      use_this_font = Font.new('Hack', Font::PLAIN, 40)
+    )
+    SwingParadise.set_global_font(use_this_font)
+  end
+
+  # ========================================================================= #
+  # === use_jruby?
+  # ========================================================================= #
+  def use_jruby?
+    true
+  end
+
+  # ========================================================================= #
+  # === is_visible
+  # ========================================================================= #
+  def is_visible
+    setVisible(true)
+  end
+
+  # ========================================================================= #
+  # === password_field
+  # ========================================================================= #
+  def password_field(
+      i = ''
+    )
+    JPasswordField.new(i)
+  end
+
+  # ========================================================================= #
+  # === java_colour
+  #
+  # This method only works with symbols as input, such as :steelblue or
+  # :bisque.
+  #
+  # This method depends on the external gem called 'colours'.
+  #
+  # Usage examples:
+  #
+  #   use_this_colour = java_colour(:bisque)
+  #   use_this_colour = java_colour(:steelblue)
+  #
+  # ========================================================================= #
+  def java_colour(
+      use_this_symbol = :steelblue
+    )
+    begin
+      require 'colours/constants/file_constants.rb'
+    rescue LoadError; end
+    _ = ::Colours.file_html_colours
+    if File.exist? _
+      dataset = YAML.load_file(_)
+      if dataset.has_key? use_this_symbol.to_s
+        pointer = dataset[use_this_symbol.to_s]
+        return Color.new(pointer[0], pointer[1], pointer[2])
+      end
+    end
+    return nil # else we return nil.
+  end; alias java_color java_colour # === java_color
+
+  # ========================================================================= #
+  # === insets
+  # ========================================================================= #
+  def insets(n = 6)
+    Insets.new(n, n, n, n)
+  end
+
+  # ========================================================================= #
+  # === menu_item
+  # ========================================================================= #
+  def menu_item(i = '')
+    JMenuItem.new(i)
+  end
+
+  # ========================================================================= #
+  # === infer_the_namespace
+  #
+  # This will assume the true namespace from the inspectable name.
+  # ========================================================================= #
+  def infer_the_namespace
+    _ = inspect.to_s.delete('<')
+    if _.include? ' '
+      _ = _.split(' ').first.delete('#')
+      if _.include? ':'
+        _ = _.split(':')[0 .. -2].reject {|entry| entry.empty? }.join('::')
+      end
+    end
+    if @internal_hash.nil?
+      reset_the_internal_hash
+    end
+    @internal_hash[:namespace] = _ # And assign it here.
+  end
+
+  # ========================================================================= #
+  # === namespace?
+  # ========================================================================= #
+  def namespace?
+    @internal_hash[:namespace]
+  end
+
+  # ========================================================================= #
+  # === reset_the_internal_hash
+  # ========================================================================= #
+  def reset_the_internal_hash
+    @internal_hash = {}
+  end
+
+  # ========================================================================= #
+  # === bold_text
+  # ========================================================================= #
+  def bold_text(i = '')
+    _ = ::SwingParadise.text(i)
+    make_bold(_)
+    return _
+  end; alias bold_label  bold_text # === bold_label
+       alias create_text bold_text # === create_text
+
+  # ========================================================================= #
+  # === make_bold
+  # ========================================================================= #
+  def make_bold(i)
+    bold_font = Font.new(
+      i.getFont.getName,
+      Font::BOLD,
+      i.getFont.getSize
+    )
+    i.setFont(bold_font)
+    return i
+  end
+
+  # ========================================================================= #
+  # === hbox                                                       (hbox tag)
+  # ========================================================================= #
+  def hbox
+    Box.createHorizontalBox
+  end; alias create_hbox hbox # === create_hbox
+
+  # ========================================================================= #
+  # === jlabel
+  # ========================================================================= #
+  def jlabel(i = '')
+    JLabel.new(i)
+  end
+
+  # ========================================================================= #
+  # === return_pwd
+  # ========================================================================= #
+  def return_pwd
+    (Dir.pwd+'/').squeeze('/')
+  end
+
+  # ========================================================================= #
+  # === create_boxlayout
+  #
+  # BoxLayout in Java resides at javax.swing.BoxLayout.
+  #
+  # The first argument to this method should be the panel that contains
+  # the child elements.
+  #
+  # The second argument can have any of these values:
+  #
+  #   BoxLayout::X_AXIS
+  #   BoxLayout::Y_AXIS
+  #   BoxLayout::LINE_AXIS
+  #   BoxLayout::PAGE_AXIS
+  #
+  # The recommended API for using this method is this:
+  #
+  #   panel = create_boxlayout(:new_panel)
+  #
+  # ========================================================================= #
+  def create_boxlayout(
+      i,
+      use_this_axis = BoxLayout::PAGE_AXIS
+    )
+    case i
+    # ======================================================================= #
+    # === :new_panel
+    # ======================================================================= #
+    when :new_panel
+      i = create_panel
+    end
+    case use_this_axis
+    # ======================================================================= #
+    # === :north
+    # ======================================================================= #
+    when :north
+      use_this_axis = BorderLayout::NORTH
+    # ======================================================================= #
+    # === :west
+    # ======================================================================= #
+    when :west
+      use_this_axis = BorderLayout::WEST
+    # ======================================================================= #
+    # === :east
+    # ======================================================================= #
+    when :east
+      use_this_axis = BorderLayout::EAST
+    # ======================================================================= #
+    # === :south
+    # ======================================================================= #
+    when :south
+      use_this_axis = BorderLayout::SOUTH
+    end
+    box_layout = BoxLayout.new(i, use_this_axis)
+    i.setLayout(box_layout)
+    return i
+  end; alias new_boxlayout create_boxlayout # === new_boxlayout
+
+  # ========================================================================= #
+  # === this_file_was_not_found
+  #
+  # Use this to notify the user, whenever the open-gem was unable to
+  # find a file that was assumed to exist locally.
+  # ========================================================================= #
+  def this_file_was_not_found(i)
+    e "#{rev}No file called `#{sfile(i)}` was found. It "\
+      "is assumed to not exist."
+  end; alias no_file_exists_at    this_file_was_not_found # === no_file_exists_at
+       alias no_file_was_found_at this_file_was_not_found # === no_file_was_found_at
+
+  # ========================================================================= #
+  # === checkbox
+  #
+  # This method can be used to create a checkbox, in jruby-SWING.
+  # ========================================================================= #
+  def checkbox(
+      i = ''
+    )
+    return ::SwingParadise.create_checkbox(i)
+  end; alias jcheckbox       checkbox # === jcheckbox
+       alias create_checkbox checkbox # === create_checkbox
+
+  # ========================================================================= #
+  # === text
+  # ========================================================================= #
+  def text(i = '')
+    ::SwingParadise.text(i)
+  end; alias label text # === label
+
+  # ========================================================================= #
+  # === right_aligned_label
+  #
+  # Note that JLabel also has setHorizontalAlignment:
+  #
+  #    label.setHorizontalAlignment(SwingConstants::RIGHT)
+  #
+  # ========================================================================= #
+  def right_aligned_label(i = '')
+    return JLabel.new(i, SwingConstants::RIGHT)
+  end
+
+  # ========================================================================= #
+  # === jpanel
+  #
+  # Usage example:
+  #
+  #   panel = create_panel { :left }
+  #
+  # ========================================================================= #
+  def jpanel(
+      optional_layout_to_use = nil,
+      &block
+    )
+    if optional_layout_to_use
+      _ = JPanel.new(optional_layout_to_use)
+    else
+      _ = JPanel.new
+    end
+    if block_given?
+      yielded = yield
+      case yielded
+      # ===================================================================== #
+      # === :left
+      # ===================================================================== #
+      when :left
+        _.layout = FlowLayout.new(FlowLayout::LEFT)
+      end
+    end
+    return _
+  end; alias create_panel jpanel # === create_panel
+       alias new_panel    jpanel # === new_panel
+
+  # ========================================================================= #
+  # === combo_box
+  #
+  # You can pass an Array to this method; ideally an Array of Strings.
+  # ========================================================================= #
+  def combo_box(
+      optional_array = nil
+    )
+    _ = JComboBox.new
+    if optional_array and optional_array.is_a?(Array) and !optional_array.empty?
+      optional_array.each {|this_item|
+        _.addItem(this_item)
+      }
+      _.setSelectedIndex(0) # Always have the first entry selected.
+    end
+    return _
+  end; alias create_combo_box combo_box # === create_combo_box
+
+  # ========================================================================= #
+  # === create_grid
+  # ========================================================================= #
+  def create_grid(
+      argument1 = 3,
+      argument2 = 3
+    )
+    ::SwingParadise.create_grid(argument1, argument2)
+  end; alias grid create_grid # === grid
+
+  # ========================================================================= #
+  # === infer_the_size_based_on_constants
+  # ========================================================================= #
+  def infer_the_size_based_on_constants(
+      width  = WIDTH,
+      height = HEIGHT
+    )
+    set_size(
+      width,
+      height
+    )
+  end
+
+  # ========================================================================= #
+  # === jtextarea
+  # ========================================================================= #
+  def jtextarea(
+      optional_argument1 = nil,
+      optional_argument2 = nil
+    )
+    if optional_argument1.nil?
+      JTextArea.new
+    elsif optional_argument1 and optional_argument2
+      JTextArea.new(optional_argument1, optional_argument2)
+    end
+  end; alias create_textarea  jtextarea # === create_textarea
+       alias create_text_view jtextarea # === create_text_view
+
+  # ========================================================================= #
+  # === title_width_height_font
+  # ========================================================================= #
+  def title_width_height_font(
+      title,
+      width,
+      height,
+      font
+    )
+    set_internal_title(title)
+    set_internal_width(width)
+    set_internal_height(height)
+    set_internal_font(font)
+  end
+
+  # ========================================================================= #
+  # === set_internal_title
+  # ========================================================================= #
+  def set_internal_title(i)
+    @internal_title = i
+  end
+
+  # ========================================================================= #
+  # === set_internal_width
+  # ========================================================================= #
+  def set_internal_width(i)
+    @internal_width = i
+  end
+
+  # ========================================================================= #
+  # === set_internal_height
+  # ========================================================================= #
+  def set_internal_height(i)
+    @internal_height = i
+  end
+
+  # ========================================================================= #
+  # === height?
+  # ========================================================================= #
+  def height?
+    @internal_height
+  end; alias internal_height? height? # === internal_height?
+
+  # ========================================================================= #
+  # === width?
+  # ========================================================================= #
+  def width?
+    @internal_width
+  end; alias internal_width? width? # === internal_width?
+
+  # ========================================================================= #
+  # === internal_title?
+  # ========================================================================= #
+  def internal_title?
+    @internal_title
+  end; alias title? internal_title? # === title?
+
+  # ========================================================================= #
+  # === run_main
+  # ========================================================================= #
+  def run_main(
+      i = main_window?
+    )
+    i.exit_on_close
+    i.set_title(internal_title?)
+    i.set_size(internal_width?, internal_height?)
+    i.setLocationRelativeTo(nil)
+    i.show_all
+    return i
+  end
+
+  # ========================================================================= #
+  # === set_internal_font
+  # ========================================================================= #
+  def set_internal_font(i)
+    @internal_font = i
+  end
+
+  # ========================================================================= #
+  # The methods that come past this point are "deliberately" not useful.
+  # ========================================================================= #
+  def use_gtk_paradise_project_css_file; end
+
+  # ========================================================================= #
+  # === jruby_font
+  #
+  # Simply delegate towards SwingParadise.jruby_font().
+  # ========================================================================= #
+  def jruby_font(
+      i = 'Sans serif 28'
+    )
+    ::SwingParadise.jruby_font(i)
+  end; alias font jruby_font # === font
+
+  # ========================================================================= #
+  # === left_mouse_click?
+  # ========================================================================= #
+  def left_mouse_click?(event)
+    javax.swing.SwingUtilities.isLeftMouseButton(event)
+  end
+
+  # ========================================================================= #
+  # === middle_mouse_click?
+  # ========================================================================= #
+  def middle_mouse_click?(event)
+    javax.swing.SwingUtilities.isMiddleMouseButton(event)
+  end
+
+  # ========================================================================= #
+  # === right_mouse_click?
+  # ========================================================================= #
+  def right_mouse_click?(event)
+    javax.swing.SwingUtilities.isRightMouseButton(event)
+  end
+
+  # ========================================================================= #
+  # === platform?
+  #
+  # Little helper-method to find out whether we are running jruby or
+  # another operating system.
+  # ========================================================================= #
+  def platform?
+    case RUBY_PLATFORM
+    when /java/, /jruby/
+      :java
+    when /linux/ # This is for x86_64-linux, for instance.
+      :linux
+    else
+      :unknown
+    end
+  end
+
+  # ========================================================================= #
+  # === set_commandline_arguments
+  # ========================================================================= #
+  def set_commandline_arguments(i = '')
+    i = [i].flatten.compact
+    @commandline_arguments = i
+  end
+
+  # ========================================================================= #
+  # === commandline_arguments?
+  # ========================================================================= #
+  def commandline_arguments?
+    @commandline_arguments
+  end
+
+  # ========================================================================= #
+  # === first_argument?
+  # ========================================================================= #
+  def first_argument?
+    @commandline_arguments.first
+  end; alias first? first_argument? # === first?
+
+  # ========================================================================= #
+  # === create_menubar
+  # ========================================================================= #
+  def create_menubar
+    JMenuBar.new
+  end; alias create_menu_bar create_menubar # === create_menu_bar
+
+end
+
+# =========================================================================== #
+# === SwingParadise.create_checkbox
+# =========================================================================== #
+def self.create_checkbox(
+    i = ''
+  )
+  if i.is_a? Symbol
+    case i
+    # ======================================================================= #
+    # === :is_checked
+    # ======================================================================= #
+    when :is_checked
+      _ = JCheckBox.new
+      _.setSelected(true)
+    end
+  else
+    _ = JCheckBox.new(i)
+  end
+  return _
+end
+
+# =========================================================================== #
+# === SwingParadise.create_grid                                  (grid tag)
+#
+# You are encouraged to use something like '4x4' as input argument to
+# this method, e. g. to create a grid with 4 cells and 4 rows, thus
+# 16 elements in total.
+# =========================================================================== #
+def self.create_grid(
+    argument1 = 3,
+    argument2 = 3
+  )
+  if argument1.is_a?(String) and argument1.include?('x') # Support e. g. "2x2" as input.
+    splitted = argument1.split('x')
+    argument1 = splitted[0].to_i
+    argument2 = splitted[1].to_i
+  end
+  if argument1.is_a?(String) and argument1.empty?
+    argument1 = argument2.to_i
+  end
+  grid_layout = GridLayout.new(argument1, argument2)
+  panel = ::SwingParadise.create_panel(grid_layout)
+  return panel
+end; self.instance_eval { alias grid create_grid } # === SwingParadise.grid
+
+end