gtk_paradise 0.9.120 → 0.11.19

data/lib/gtk_paradise/app/{app_module.rb → app_module/app_module.rb}

@@ -11,7 +11,7 @@
 # You can also include this module into instances of Gtk::Window via
 # extend(). Look at the end of this file for an example in this regard.
 # =========================================================================== #
-# require 'gtk_paradise/app/app_module.rb'
+# require 'gtk_paradise/app/app_module/app_module.rb'
 # include Gtk::AppModule
 # =========================================================================== #
 module Gtk
@@ -29,9 +29,9 @@ module AppModule
   require 'fileutils'
   require 'yaml'
   require 'gtk_paradise/project/project.rb'
-  require 'gtk_paradise/toplevel_methods/determine_which_gtk_version_is_in_use.rb'
-  require 'gtk_paradise/toplevel_methods/keys.rb'
-  require 'gtk_paradise/toplevel_methods/roebe.rb'
+  require 'gtk_paradise/toplevel_methods/toplevel_methods.rb'
+  require 'gtk_paradise/toplevel_methods/screen_resolution.rb'
+  require 'gtk_paradise/gtk_classes/status_icon.rb'
 
   # ========================================================================= #
   # === DEFAULT_WIDTH
@@ -73,7 +73,7 @@ module AppModule
   # === internal_reset                                            (reset tag)
   # ========================================================================= #
   def internal_reset
-    initialize_the_internal_hash
+    initialize_the_internal_hash # Create and then populate @internal_hash here.
     handle_the_destroy_event
     try_to_load_the_configuration_file
     # ======================================================================= #
@@ -100,6 +100,13 @@ module AppModule
     # ======================================================================= #
     @internal_hash[:title] = nil
     # ======================================================================= #
+    # === :may_we_modify_the_title
+    #
+    # This can be disabled via a method call. If disabled then we will not
+    # allow the internal title-setter to rename the widget anymore.
+    # ======================================================================= #
+    @internal_hash[:may_we_modify_the_title] = true
+    # ======================================================================= #
     # === :width
     # ======================================================================= #
     set_width(DEFAULT_WIDTH)
@@ -108,6 +115,10 @@ module AppModule
     # ======================================================================= #
     set_height(DEFAULT_HEIGHT)
     # ======================================================================= #
+    # === :favicon
+    # ======================================================================= #
+    @internal_hash[:favicon] = nil
+    # ======================================================================= #
     # === :filename
     #
     # :filename is initially a "dummy" variable. It was added to allow
@@ -120,10 +131,6 @@ module AppModule
     # ======================================================================= #
     @internal_hash[:child_widget] = nil
     # ======================================================================= #
-    # === :favicon
-    # ======================================================================= #
-    @internal_hash[:favicon] = nil
-    # ======================================================================= #
     # === :border_width
     # ======================================================================= #
     @internal_hash[:border_width] = 0
@@ -145,111 +152,110 @@ module AppModule
        alias reset_internal_app_module initialize_the_internal_hash # === reset_internal_app_module
 
   # ========================================================================= #
-  # === create_accel_group
-  #
-  # Normally you dont need to change anything here.
-  # ========================================================================= #
-  def create_accel_group
-    @accel_group = ::Gtk::AccelGroup.new
-    add_accel_group(@accel_group) if respond_to?(:add_accel_group)
-  end; private :create_accel_group
-
-  # ========================================================================= #
-  # === set_favicon
+  # === set_width
   #
-  # Ensures that the icon exists before setting it.
+  # Use only this method when setting the @internal_hash[:width] variable.
   #
-  # Some symbol-shortcuts are allowed here, which are hardcoded towards
-  # my own system
+  # If we pass in a string that also includes a '%' character then
+  # we assume that the user wishes to use a percentage value derived
+  # from whatever Gdk::Screen.default returns.
   # ========================================================================= #
-  def set_favicon(i)
-    if i.nil? and is_on_roebe?
-      i = :default
-    end
-    if i.is_a?(String) and i.start_with?(':')
-      i = i.delete(':').to_sym
-    end
-    case i
-    # ======================================================================= #
-    # === :lotus
-    # ======================================================================= #
-    when :lotus
-      i = '/home/x/data/images/RPG/STD/LOTUS_MASKE.png'
-    # ======================================================================= #
-    # === :tabble_image
-    #
-    # This entry point is currently aliased to ":default" - thus, it is
-    # the default value.
-    # ======================================================================= #
-    when :tabble_image,
-         :tabble,
-         :default
-      i = ::Gtk::PROJECT_BASE_DIRECTORY+'images/misc/tabble.png'
-    # ======================================================================= #
-    # === :pc_favicon
-    # ======================================================================= #
-    when :pc_favicon
-      i = '/home/x/data/images/PC/PC_FAVICON.png'
-    # ======================================================================= #
-    # === :task_image
-    # ======================================================================= #
-    when :tasks_image,
-         :tasks
-      i = '/home/x/data/images/PC/TASKS.jpg'
-    # ======================================================================= #
-    # === :audio_favicon
-    # ======================================================================= #
-    when :audio_favicon
-      i = '/home/x/data/images/AUDIO/AUDIO_FAVICON.png'
-    end
+  def set_width(i = DEFAULT_WIDTH)
     if i
-      begin
-        if File.exist? i
-          @favicon = i
-        else
-          e "(in gtk_paradise/run.rb) No file exists at this location: `#{i}`"
-        end
-      rescue Exception => error
-        pp error
-        pp i
-      end
-    else
-      if is_on_roebe?
-        e 'Please provide an icon_location to the method set_favicon()'
+      # ===================================================================== #
+      # === Handle percentage values given to this method next
+      #
+      # These must be a String, and must include a '%' - otherwise it will
+      # not be handled in this method.
+      # ===================================================================== #
+      if i.is_a? String and i.include? '%'
+        i = i.to_f # This is percentage.
+        i = (::Gtk.max_width? * i) / 100
       end
+      i = i.first if i.is_a? Array
+      i = i.to_i
+      @internal_hash[:width] = i
     end
-    @internal_hash[:favicon] = i
-  end; alias set_icon_location set_favicon # === set_icon_location
-       alias icon_location=    set_favicon # === icon_location=
-       alias icon=             set_favicon # === icon?
-       alias set_this_favicon  set_favicon # === set_this_favicon
-       alias set_logo          set_favicon # === set_logo
-       alias favicon=          set_favicon # === favicon=
+  end; alias width= set_width # === width=
 
   # ========================================================================= #
-  # === favicon?
+  # === set_height
+  #
+  # Use only this method when wishing to set to @internal_hash[:height].
   # ========================================================================= #
-  def favicon?
-    @internal_hash[:favicon]
-  end
+  def set_height(i)
+    if i
+      if i.is_a? String and i.include? '%'
+        i = i.to_f # This is percentage.
+        i = (::Gtk.max_height? * i) / 100
+      end
+      i = i.to_i
+      @internal_hash[:height] = i
+    end
+  end; alias height= set_height # === height=
 
   # ========================================================================= #
-  # === connect_key
+  # === shortcut_keys                         (keybindings tag, shortcut tag)
   #
-  # This method can be used to simply map a String, such as 'alt+1' to
-  # a specific key combination. In fact: it is required that the input
-  # at hand includes a '+' character.
+  # Use this to add a new shortcut to your application.
   #
-  # Usage example:
+  # The second argument, `this_method`, specifies which method we will use 
+  # and invoke.
   #
-  #   connect_key('alt+1') { 'xid' }
+  # Usage examples:
+  #
+  #   r.add_shortcut(:q,  'name_of_method_that_will_be_called')
+  #   r.add_shortcut(:q,  'fill_up_buffer')
+  #   r.add_shortcut(:e,  'focus_entry', :alt)
+  #   r.add_shortcut('e', 'focus_entry', :shift)
+  #   r.add_shortcut(1,   'focus_entry(1)', :alt)
+  #   r.add_shortcut(0,   'invoke_this_method', :alt)
+  #
+  # Or with self:
+  #
+  #   self.add_shortcut(1, '@notebook.set_page(0)', :ctrl)
+  #
+  # An even simpler variant is the following API:
+  #
+  #   r.keybinding 'Alt+1', 'do_ask_new_question'
+  #   r.keybinding 'Alt+2', 'do_reveal_the_answer'
   #
   # ========================================================================= #
-  def connect_key(i)
-    splitted = i.split('+')
-    key      = splitted[0]
-    shortcut = splitted[1]
-    case key.to_sym
+  def shortcut_keys(
+      shortcut_key_to_use,
+      this_method,
+      modifier_key = :control,
+      &block
+    )
+    # ======================================================================= #
+    # Remove ' ' characters.
+    # ======================================================================= #
+    if shortcut_key_to_use.is_a?(String) and
+       shortcut_key_to_use.include?(' ')
+      # ===================================================================== #
+      # Since as of 12.05.2021 we will remove ' '.
+      # ===================================================================== #
+      shortcut_key_to_use.delete!(' ')
+    end
+    # ======================================================================= #
+    # Next handle cases such as "strg+s".
+    # ======================================================================= #
+    if (shortcut_key_to_use.is_a?(String) and
+        shortcut_key_to_use.include?('+')) or
+       (shortcut_key_to_use.is_a?(Symbol) and
+        shortcut_key_to_use.to_s.include?('+'))
+      splitted = shortcut_key_to_use.to_s.split('+')
+      modifier_key = splitted.first.to_sym
+      shortcut_key_to_use = splitted.last
+    end
+    case modifier_key
+    # ======================================================================= #
+    # === :strg_alt
+    # ======================================================================= #
+    when :strg_alt, # recall ourself
+         :strgalt
+      add_shortcut(shortcut_key_to_use, this_method, :strg)
+      modifier_key = Gdk::Window::MOD1_MASK # but pass through for ALT
     # ======================================================================= #
     # === :control
     # ======================================================================= #
@@ -262,57 +268,135 @@ module AppModule
          '',
          'strg',
          'string'
-      key = :control_mask
+      modifier_key = :control_mask
     # ======================================================================= #
     # === :alt
     # ======================================================================= #
-    when :alt
-      key = Gdk::Window::MOD1_MASK
+    when :alt, # This is the alt-key.
+         'Alt',
+         /^alt/
+      if ::Gtk.use_gtk2?
+        modifier_key = Gdk::Window::MOD1_MASK
+      else
+        modifier_key = :mod1_mask
+      end
     # ======================================================================= #
     # === :shift
     # ======================================================================= #
     when :shift,
          :pfeil_oben
-      key = Gdk::Window::SHIFT_MASK
+      modifier_key = Gdk::Window::SHIFT_MASK
     end
     # ======================================================================= #
-    # Obtain the shortcut-key next, which wraps over Gdk::Keyval.from_name().
+    # Obtain the proper shortcut key next.
     # ======================================================================= #
-    shortcut = Gtk.get_shortcut_key(key)
-    @accel_group.connect(shortcut, key, :visible) {
-    #   # then we use arguments
-    #   if this_method.include? '('
-    #     _ = this_method.split '('
-    #     method_name= _[0]
-    #     argument_to_it= _[1][0..-2] # get arguments
-    #     child_widget?.send(method_name, argument_to_it)
-    #   else
-    #     @child_widget.send(this_method)
-    #   end
-      e 'PRESSED!'
-    }
+    case shortcut_key_to_use
     # ======================================================================= #
-    # The next part is probably debug-related code, but I forgot to add
-    # a comment explaining what this code was supposed to be used for. :(
-    # result = yield if block_given? # Example: xid
-    # if result
-    #   e 'The result was:'
-    #   pp result
-    # end
+    # Match against Alt+1, Alt+2, Alt+3 and so forth.
+    #
+    # Regex to test this:
+    #
+    #   https://rubular.com/r/vA6bxNh9C2oB26
+    #
     # ======================================================================= #
-  end
+    when /^Alt\+(\d{1,2})/i,
+         /^Alt\+([A-Za-z←→])/i
+      modifier_key = :mod1_mask
+      if use_gtk2?
+        modifier_key = Gdk::Window::MOD1_MASK
+      end
+      shortcut_key_to_use = $1.to_s.dup
+    end
+    case modifier_key
+    when :Alt
+      modifier_key = :mod1_mask
+    end
+    shortcut_key_to_use = Gtk.get_shortcut_key(shortcut_key_to_use) # Gdk::Keyval.from_name()
+    # ======================================================================= #
+    # === Ensure that @accel_group exists
+    #
+    # Create a new accel-group if no prior accel group exists:
+    # ======================================================================= #
+    unless defined? @accel_group
+      create_accel_group
+    end
+    # ======================================================================= #
+    # Pass to the @accel_group next.
+    # ======================================================================= #
+    if use_gtk4?
+      e 'accel_group.connect() has not yet been added for ruby-gtk4.'
+      e 'It may be implemented at a later time.'
+    else
+      @accel_group.connect(shortcut_key_to_use, modifier_key, :visible) {
+        # then we use arguments
+        if this_method.include? '('
+          _ = this_method.split '('
+          method_name = _[0]
+          argument_to_it = _[1][0..-2] # get arguments
+          # =================================================================== #
+          # We send the method to the child widget next.
+          # =================================================================== #
+          child_widget?.send(method_name, argument_to_it)
+        else
+          if child_widget?.respond_to? this_method.to_sym
+            child_widget?.send(this_method)
+          else
+            case this_method.to_s
+            # ================================================================= #
+            # === exit_program
+            # ================================================================= #
+            when 'exit_program'
+              ::Gtk.main_quit
+            end
+          end
+        end
+      }
+    end
+  end; alias add_this_shortcut shortcut_keys # === add_this_shortcut
+       alias add_shortcut      shortcut_keys # === add_shortcut
+       alias keybinding        shortcut_keys # === keybinding
 
   # ========================================================================= #
-  # === shortcut
+  # === shortcuts
   #
-  # This variant requires a '+' character to be used.
+  # This method may be used like so:
   #
-  # Usage example:
+  #   r.shortcuts {
+  #     [1, 'click_on_button_number(0)', :alt], # for alt+1 key combination
+  #   }
+  #
+  # ========================================================================= #
+  def shortcuts(&block)
+    # ======================================================================= #
+    # === Handle blocks next
+    # ======================================================================= #
+    if block_given?
+      yielded = yield
+      if yielded.is_a? Array
+        yielded.each {|inner_array|
+          add_shortcut(
+            inner_array[0],
+            inner_array[1],
+            inner_array[2]
+          )
+        }
+      end
+    end
+  end
+
+  # ========================================================================= #
+  # === shortcut
+  #
+  # This variant requires a '+' character to be used.
+  #
+  # Usage example:
   #
   #   r.shortcut('alt+1') { 'focus_on(@entry_pid_number)' }
   #
   # ========================================================================= #
-  def shortcut(key_combination_to_use, &block)
+  def shortcut(
+      key_combination_to_use, &block
+    )
     splitted = key_combination_to_use.split('+')
     number = splitted.last.to_i
     modifier_key_to_use = splitted.first.to_sym
@@ -324,33 +408,72 @@ module AppModule
   end
 
   # ========================================================================= #
-  # === resize_to_child_widget_dimension
+  # === enable_quick_exit
+  #
+  # This method enables quick "alt+Q" key-combination to quit the
+  # application. Since as of September 2020, we also use strg+q 
+  # (which is ctrl+q, actually).
   # ========================================================================= #
-  def resize_to_child_widget_dimension
-    _ = child_widget?
-    if _
-      set_size_request(_.width?, _.height?)
-    end
-  end
+  def enable_quick_exit
+    add_shortcut(:q, 'exit_program', :alt)
+    add_shortcut(:q, 'exit_program', :strg)
+  end; alias easy_exit          enable_quick_exit # === easy_exit
+       alias easy_quit          enable_quick_exit # === easy_quit
+       alias quick_exit         enable_quick_exit # === quick_exit
+       alias enable_simple_exit enable_quick_exit # === enable_simple_exit
+       alias simple_exit        enable_quick_exit # === simple_exit
+       alias enable_easy_exit   enable_quick_exit # === enable_easy_exit
 
   # ========================================================================= #
-  # === window_position_none
+  # === status_icon
+  #
+  # This method add a StatusIcon to a gtk-widget.
   # ========================================================================= #
-  def window_position_none
+  def status_icon(
+      use_this_as_the_icon = favicon?
+    )
     if ::Gtk.use_gtk2?
-      i = Gtk::Window::POS_NONE
+      _ = ::Gtk::StatusIcon.new
+      _.use_this_image = use_this_as_the_icon
     else
-      i = :none
+      _ = ::Gtk::StatusIcon.new(filename: use_this_as_the_icon)
     end
-    set_window_position(i)
+    return _
   end
 
   # ========================================================================= #
-  # === set_font_in_use
+  # === set_background_colour
+  #
+  # This method (or an alias to this method) can be used to set the
+  # background colour.
   # ========================================================================= #
-  def set_font_in_use(i)
-    ::Gtk.set_font(i)
-  end
+  def set_background_colour(i)
+    if i
+      @internal_hash[:background_colour] = i.to_s
+      # ===================================================================== #
+      # Note that if we input an incorrect colour then this will fail. This
+      # explains the following code in the rescue-clause.
+      # ===================================================================== #
+      begin
+        parsed_colour = ::Gdk::Color.parse(@internal_hash[:background_colour])
+      rescue ArgumentError
+        @internal_hash[:background_colour] = 'white'
+        parsed_colour = ::Gdk::Color.parse('white')
+      end
+      if ::Gtk.use_gtk2?
+        modify_bg(::Gtk::STATE_NORMAL, parsed_colour)
+      else # else assume gtk3 is in use
+        if parsed_colour.is_a? Gdk::Color
+          parsed_colour = Gdk::RGBA.new(
+            parsed_colour.red,
+            parsed_colour.green,
+            parsed_colour.blue
+          )
+        end
+        override_background_color(:normal, parsed_colour)
+      end
+    end
+  end; alias background_colour set_background_colour # === background_colour
 
   # ========================================================================= #
   # === modify_bg
@@ -358,7 +481,8 @@ module AppModule
   # Modify the background here.
   # ========================================================================= #
   def modify_bg(
-      state, colour = 'lightblue'
+      state,
+      colour = 'lightblue'
     )
     if colour.is_a? String
       colour = Gdk::Color.parse(colour)
@@ -368,288 +492,416 @@ module AppModule
     if use_gtk2?
       super(state, colour)
     else
-      e 'Presently override_background_color(state, colour) is not implemented.'
+      e 'Presently override_background_color(state, colour) is '\
+        'not implemented.'
     end
   end
 
   # ========================================================================= #
-  # === do_maximize_width
+  # === original_width?
+  #
+  # Determine the default width of the screen on the target computer system.
   # ========================================================================= #
-  def do_maximize_width(
-      width  = max_width?,
-      height = height?
-    )
-    set_size_request(width, height)
+  def original_width?
+    Gdk::Screen.default.width
+  end; alias max_width? original_width? # === max_width?
+
+  # ========================================================================= #
+  # === disallow_resizing
+  #
+  # This method will prevent the user from resizing the window.
+  # ========================================================================= #
+  def disallow_resizing
+    set_resizable(false)
   end
 
   # ========================================================================= #
-  # === width_height
+  # === is_resizable
   # ========================================================================= #
-  def width_height(width, height)
-    set_size_request(width, height)
+  def is_resizable
+    self.resizable = true
   end
 
   # ========================================================================= #
-  # === top_middle
-  #
-  # Position the Gtk::Runner widget on the very top, but middle position.
-  #
-  # This must be calculated:
-  #
-  #   (1) first we must determine the max-width, and divide it by 2
-  #   (2) then we also need to determine the width of the widget
-  #       that will be spawned. This will default to a hardcoded
-  #       value, but Gtk::Runner can modify this accordingly
+  # === do_maximize
   #
+  # Use this when you want to maximize the window, to the full-screen.
   # ========================================================================= #
-  def top_middle(
-      use_this_subwidget_width = :default
-    )
-    case use_this_subwidget_width
-    # ======================================================================= #
-    # === :default
-    # ======================================================================= #
-    when :default
-      use_this_subwidget_width = 250
-    end
-    calculated_value  = Gdk::Screen.default.width / 2
-    calculated_value -= use_this_subwidget_width
-    move(calculated_value, 0)
-  end
+  def do_maximize
+    self.maximize
+  end; alias max do_maximize # === max
 
   # ========================================================================= #
-  # === top_middle_then_run
+  # === width?
   # ========================================================================= #
-  def top_middle_then_run(i = :default)
-    top_middle(i)
-    run
+  def width?
+    @internal_hash[:width]
   end
 
   # ========================================================================= #
-  # === accel_group?
-  #
-  # So that we can manipulate the AccelGroup.
+  # === height?
   # ========================================================================= #
-  def accel_group?
-    @accel_group
-  end; alias accel_group accel_group? # === accel_group
+  def height?
+    @internal_hash[:height]
+  end
 
   # ========================================================================= #
-  # === filename=
+  # === minimum_size
+  #
+  # This can be used to specify a minimum size. It is advised to pass
+  # a Hash.
   # ========================================================================= #
-  def filename=(i)
-    @internal_hash[:filename] = i
+  def minimum_size(
+      hash = {
+        width:  '25%',
+        height: '15%'
+      }
+    )
+    set_size_request(hash[:width], hash[:height])
   end
 
   # ========================================================================= #
-  # === filename?
+  # === max_resolution?
   # ========================================================================= #
-  def filename?
-    @internal_hash[:filename]
+  def max_resolution?
+    ::Gtk.screen_resolution?
   end
 
   # ========================================================================= #
-  # === shortcut_keys                         (keybindings tag, shortcut tag)
-  #
-  # Use this to add a new shortcut to your application.
-  #
-  # The second argument, `this_method`, specifies which method we will use 
-  # and invoke.
-  #
-  # Usage examples:
-  #
-  #   r.add_shortcut(:q,  'name_of_method_that_will_be_called')
-  #   r.add_shortcut(:q,  'fill_up_buffer')
-  #   r.add_shortcut(:e,  'focus_entry', :alt)
-  #   r.add_shortcut('e', 'focus_entry', :shift)
-  #   r.add_shortcut(1,   'focus_entry(1)', :alt)
-  #   r.add_shortcut(0,   'invoke_this_method', :alt)
-  #
-  # Or with self:
-  #
-  #   self.add_shortcut(1, '@notebook.set_page(0)', :ctrl)
+  # === position=
   #
-  # An even simpler variant is the following API:
+  # Usage example:
   #
-  #   r.keybinding 'Alt+1', 'do_ask_new_question'
-  #   r.keybinding 'Alt+2', 'do_reveal_the_answer'
+  #   .position = :mouse
   #
   # ========================================================================= #
-  def shortcut_keys(
-      shortcut_key_to_use,
-      this_method,
-      modifier_key = :control,
-      &block
-    )
+  def position=(i)
+    case i # case tag
     # ======================================================================= #
-    # Remove ' ' characters.
+    # === :mouse
     # ======================================================================= #
-    if shortcut_key_to_use.is_a?(String) and
-       shortcut_key_to_use.include?(' ')
-      # ===================================================================== #
-      # Since as of 12.05.2021 we will remove ' '.
-      # ===================================================================== #
-      shortcut_key_to_use.delete!(' ')
-    end
+    when :mouse
+      i = Gtk::Window::POS_MOUSE if ::Gtk.use_gtk2?
     # ======================================================================= #
-    # Next handle cases such as "strg+s".
+    # === :none
     # ======================================================================= #
-    if (shortcut_key_to_use.is_a?(String) and
-        shortcut_key_to_use.include?('+')) or
-       (shortcut_key_to_use.is_a?(Symbol) and
-        shortcut_key_to_use.to_s.include?('+'))
-      splitted = shortcut_key_to_use.to_s.split('+')
-      modifier_key = splitted.first.to_sym
-      shortcut_key_to_use = splitted.last
-    end
-    case modifier_key
+    when :none
+      i = Gtk::Window::POS_NONE if ::Gtk.use_gtk2?
     # ======================================================================= #
-    # === :strg_alt
+    # === :center_always
     # ======================================================================= #
-    when :strg_alt, # recall ourself
-         :strgalt
-      add_shortcut(shortcut_key_to_use, this_method, :strg)
-      modifier_key = Gdk::Window::MOD1_MASK # but pass through for ALT
+    when :center_always,
+         :always_center,
+         :center2,
+         nil
+      i = Gtk::Window::POS_CENTER_ALWAYS
     # ======================================================================= #
-    # === :control
+    # === :center_on_parent
     # ======================================================================= #
-    when :control,
-         :ctrl,
-         :strg,
-         :str,
-         nil,
-         :default,
-         '',
-         'strg',
-         'string'
-      modifier_key = :control_mask
+    when :center_on_parent
+      i = Gtk::Window::POS_CENTER_ON_PARENT
     # ======================================================================= #
-    # === :alt
+    # === :center
     # ======================================================================= #
-    when :alt, # This is the alt-key.
-         'Alt',
-         /^alt/
-      if ::Gtk.use_gtk2?
-        modifier_key = Gdk::Window::MOD1_MASK
-      else
-        modifier_key = :mod1_mask
-      end
+    when :center
+      i = Gtk::Window::POS_CENTER
+    else
+      e "We do not know: #{simp(i.to_s)}"
+    end
+    set_window_position(i)
+  end
+
+  require 'gtk_paradise/toplevel_methods/screen_resolution.rb'
+  # ========================================================================= #
+  # === resolution?
+  #
+  # Query the resolution of the target computer.
+  # ========================================================================= #
+  def resolution?
+    ::Gtk.resolution?
+  end
+
+  # ========================================================================= #
+  # === connect_key
+  #
+  # This method can be used to simply map a String, such as 'alt+1' to
+  # a specific key combination. In fact: it is required that the input
+  # at hand includes a '+' character.
+  #
+  # Usage example:
+  #
+  #   connect_key('alt+1') { 'xid' }
+  #
+  # ========================================================================= #
+  def connect_key(i)
+    unless i.include? '+'
+      e 'The input to connect_key() needs to have a "+" character.'
+      return
+    end
+    splitted = i.split('+')
+    key      = splitted[0]
+    shortcut = splitted[1]
+    case key.to_sym
     # ======================================================================= #
-    # === :shift
+    # === :control
     # ======================================================================= #
-    when :shift,
-         :pfeil_oben
-      modifier_key = Gdk::Window::SHIFT_MASK
-    end
+    when :control,
+         :ctrl,
+         :strg,
+         :str,
+         nil,
+         :default,
+         '',
+         'strg',
+         'string'
+      key = :control_mask
     # ======================================================================= #
-    # Obtain the proper shortcut key next.
+    # === :alt
     # ======================================================================= #
-    case shortcut_key_to_use
+    when :alt
+      key = Gdk::Window::MOD1_MASK
     # ======================================================================= #
-    # Match against Alt+1, Alt+2, Alt+3 and so forth.
-    #
-    # Regex to test this:
-    #
-    #   https://rubular.com/r/vA6bxNh9C2oB26
-    #
+    # === :shift
     # ======================================================================= #
-    when /^Alt\+(\d{1,2})/i,
-         /^Alt\+([A-Za-z←→])/i
-      if use_gtk2?
-        modifier_key = Gdk::Window::MOD1_MASK
-      else
-        modifier_key = :mod1_mask
-      end
-      shortcut_key_to_use = $1.to_s.dup
+    when :shift,
+         :pfeil_oben
+      key = Gdk::Window::SHIFT_MASK
     end
-    shortcut_key_to_use = Gtk.get_shortcut_key(shortcut_key_to_use) # Gdk::Keyval.from_name()
     # ======================================================================= #
-    # === Ensure that @accel_group exists
-    #
-    # Create a new accel-group if no prior accel group exists:
+    # Obtain the shortcut-key next, which wraps over Gdk::Keyval.from_name().
     # ======================================================================= #
-    unless defined? @accel_group
-      create_accel_group
-    end
+    shortcut = Gtk.get_shortcut_key(key)
+    @accel_group.connect(shortcut, key, :visible) {
+    #   # then we use arguments
+    #   if this_method.include? '('
+    #     _ = this_method.split '('
+    #     method_name= _[0]
+    #     argument_to_it= _[1][0..-2] # get arguments
+    #     child_widget?.send(method_name, argument_to_it)
+    #   else
+    #     @child_widget.send(this_method)
+    #   end
+      e 'PRESSED!'
+    }
     # ======================================================================= #
-    # Pass to the @accel_group next.
+    # The next part is probably debug-related code, but I forgot to add
+    # a comment explaining what this code was supposed to be used for. :(
+    # result = yield if block_given? # Example: xid
+    # if result
+    #   e 'The result was:'
+    #   pp result
+    # end
     # ======================================================================= #
-    @accel_group.connect(shortcut_key_to_use, modifier_key, :visible) {
-      # then we use arguments
-      if this_method.include? '('
-        _ = this_method.split '('
-        method_name = _[0]
-        argument_to_it = _[1][0..-2] # get arguments
-        # =================================================================== #
-        # We send the method to the child widget next.
-        # =================================================================== #
-        child_widget?.send(method_name, argument_to_it)
+  end
+
+  # ========================================================================= #
+  # === add_delete_event
+  #
+  # Register the :delete_event here.
+  # ========================================================================= #
+  def add_delete_event
+    if use_gtk4?
+      e 'The .delete_event() has not yet been added to ruby-gtk4.'
+      e 'At a later time this will be reviewed.'
+    else
+      signal_connect(:delete_event) { exit_application }
+    end
+  end
+
+  # ========================================================================= #
+  # === favicon?
+  # ========================================================================= #
+  def favicon?
+    @internal_hash[:favicon]
+  end
+
+  # ========================================================================= #
+  # === create_accel_group
+  #
+  # Normally you dont need to change anything here.
+  # ========================================================================= #
+  def create_accel_group
+    @accel_group = ::Gtk::AccelGroup.new
+    add_accel_group(@accel_group) if respond_to?(:add_accel_group)
+  end; private :create_accel_group
+
+  # ========================================================================= #
+  # === determine_the_title_from_the_child_widget
+  #
+  # The first argument is the widget that we will use, under the assumption
+  # that it will be the child-widget.
+  # ========================================================================= #
+  def determine_the_title_from_the_child_widget(
+      child_widget = child_widget?
+    )
+    if child_widget
+      if child_widget.respond_to?(:my_title?)
+        title = child_widget.my_title?
+        set_my_title_then_apply_it(title)
       else
-        if child_widget?.respond_to? this_method.to_sym
-          child_widget?.send(this_method)
-        else
-          case this_method.to_s
-          when 'exit_program'
-            ::Gtk.main_quit
-          end
-        end
+        e 'The child-widget (class '+child_widget.name.to_s+
+          ') does not respond to the method called .my_title?' unless child_widget.nil?
       end
-    }
-  end; alias add_this_shortcut shortcut_keys # === add_this_shortcut
-       alias keybinding        shortcut_keys # === keybinding
-       alias add_shortcut      shortcut_keys # === add_shortcut
+    else
+      e 'No child-widget was provided. Showing the caller() trace next:'
+      e
+      pp caller()
+      e
+    end
+  end; alias automatic_title                       determine_the_title_from_the_child_widget # === automatic_title
+       alias determine_the_title                   determine_the_title_from_the_child_widget # === determine_the_title
+       alias determine_the_title_automatically     determine_the_title_from_the_child_widget # === determine_the_title_automatically
+       alias infer_the_title_from_the_child_widget determine_the_title_from_the_child_widget # === infer_the_title_from_the_child_widget
+       alias title_from_child_widget               determine_the_title_from_the_child_widget # === title_from_child_widget
+       alias automatic_title                       determine_the_title_from_the_child_widget # === automatic_title
 
   # ========================================================================= #
-  # === show_then_run
+  # === enable_simple_exit_then_run
   # ========================================================================= #
-  def show_then_run
-    show_all
+  def enable_simple_exit_then_run
+    enable_simple_exit
     run
-  end; alias show_all_then_run show_then_run # === show_all_then_run
+  end
 
   # ========================================================================= #
-  # === top_left_show_all_then_run
+  # === set_global_font_size
+  #
+  # The first input-argument to this method should be a number.
   # ========================================================================= #
-  def top_left_show_all_then_run
-    top_left_and_show_all
-    run
-  end; alias top_left_show_all_then_run      top_left_show_all_then_run # === top_left_show_all_then_run
-       alias top_left_then_show_all_then_run top_left_show_all_then_run # === top_left_then_show_all_then_run
+  def set_global_font_size(
+      i                    = 20,
+      use_this_font_family = 'Sans'
+    )
+    Gtk::Settings.default.gtk_font_name = "#{use_this_font_family} #{i}"
+  end
 
   # ========================================================================= #
-  # === add_delete_event
-  #
-  # Register the :delete_event here.
+  # === handle_the_destroy_event
   # ========================================================================= #
-  def add_delete_event
-    signal_connect(:delete_event) { exit_application }
+  def handle_the_destroy_event
+    signal_connect(:destroy) { exit_application }
   end
 
   # ========================================================================= #
-  # === try_to_load_the_configuration_file
+  # === exit_application
+  #
+  # Use this to quit from an application.
   # ========================================================================= #
-  def try_to_load_the_configuration_file
-    path_to_the_configuration_file = 
-      'configuration_options_for_class_gtk_runner.yml'
-    _ = ::Gtk.project_base_directory?+
-        'yaml/'+
-        path_to_the_configuration_file
-    if File.exist? _
-      @internal_hash[:yaml_dataset] = YAML.load_file(_)
-      # ===================================================================== #
-      # Next check any configuration value - for now we only handle one
-      # setting.
-      # ===================================================================== #
-      if @internal_hash[:yaml_dataset].has_key? 'shall_we_enable_simple_exit_for_all_instances_of_gtk_runner'
-        if @internal_hash[:yaml_dataset]['shall_we_enable_simple_exit_for_all_instances_of_gtk_runner'] == true
-          enable_easy_exit
-        end
-      end
+  def exit_application
+    ::Gtk.main_quit
+  end; alias exit_program exit_application # === exit_program
+       alias do_quit      exit_application # === do_quit
+
+  # ========================================================================= #
+  # === interactively_create_directory
+  #
+  # This convenience method can be used to create a new directory.
+  # ========================================================================= #
+  def interactively_create_directory(
+      use_this_as_parent_widget
+    )
+    result = ''
+    text   = gtk_text(
+      'Input the name of the directory to be created:'
+    )
+    entry = gtk_entry
+    
+    popup_box = gtk_vbox
+    popup_box.set_padding(12)
+    popup_box.set_size_request(800, 240)
+    popup_box.set_font(:hack_20)
+    popup_box.minimal(text, 2)
+    popup_box.maximal(entry, 2)
+
+    dialog = ::Gtk::Dialog.new(parent:  use_this_as_parent_widget,
+                               title:   'Interactively create a directory',
+                               flags:   [:modal, :destroy_with_parent],
+                               buttons: [['_Cancel', :cancel],
+                                         ['_Create the directory', :ok]])
+    content_area = dialog.content_area
+    content_area.pack_start(popup_box)
+    content_area.show_all
+
+    response = dialog.run
+
+    case response
+    when :ok # This is <Gtk::ResponseType ok>
+      result << entry.text?
+    end
+
+    if File.directory? result
+      e 'The directory '+result+' already exists.'
     else
-      e 'No file exists at '+sfile(_)
+      e 'Creating the directory '+result+' next.'
+      FileUtils.mkdir_p(result)
     end
+
+    dialog.destroy
   end
 
+  # ========================================================================= #
+  # === set_my_title
+  #
+  # Use this method to set the title.
+  # ========================================================================= #
+  def set_my_title(
+      i = internal_title?
+    )
+    if @internal_hash[:may_we_modify_the_title]
+      i = __FILE__ if i == '__FILE__'
+      @internal_hash[:title] = i
+      # ======================================================================= #
+      # Next delegate towards apply_the_internal_title().
+      # ======================================================================= #
+      apply_the_internal_title
+    end
+  end; alias title                      set_my_title # === title
+       alias name=                      set_my_title # === name=
+       alias fancy_title                set_my_title # === fancy_title
+       alias set_my_title_then_apply_it set_my_title # === set_my_title_then_apply_it
+       alias set_title_then_apply       set_my_title # === set_title_then_apply
+
+  # ========================================================================= #
+  # === missing_the_internal_hash?
+  # ========================================================================= #
+  def missing_the_internal_hash?
+    _ = false
+    _ = true if defined?(:@internal_hash)
+    _ = true if @internal_hash.nil?
+    return _
+  end
+
+  # ========================================================================= #
+  # === border_width?
+  # ========================================================================= #
+  def border_width?
+    @internal_hash[:border_width]
+  end; alias padding? border_width? # === padding?
+
+  # ========================================================================= #
+  # === easy_exit_top_left_then_run
+  #
+  # This method combines the easy-exit functionality, with the "put widget
+  # window on the top left corner of the screen", before "running" the
+  # application at hand (aka, starting it).
+  # ========================================================================= #
+  def easy_exit_top_left_then_run
+    easy_exit
+    top_left_then_run
+  end; alias easy_exit_then_top_left_and_run          easy_exit_top_left_then_run # === easy_exit_then_top_left_and_run
+       alias enable_quick_exit_then_top_left_then_run easy_exit_top_left_then_run # === enable_quick_exit_then_top_left_then_run
+       alias easy_exit_then_top_left_then_run         easy_exit_top_left_then_run # === easy_exit_then_top_left_then_run
+
+  # ========================================================================= #
+  # === top_left_and_show_all
+  # ========================================================================= #
+  def top_left_and_show_all
+    top_left
+    show_all
+  end; alias top_left_then_show     top_left_and_show_all # === top_left_then_show
+       alias top_left_then_show_all top_left_and_show_all # === top_left_then_show_all
+       alias top_left_show_all      top_left_and_show_all # === top_left_show_all
+
   # ========================================================================= #
   # === top_left_then_run
   #
@@ -664,11 +916,11 @@ module AppModule
       &block
     )
     if optional_add_this_widget
+      # ===================================================================== #
+      # === Handle Hashes next. We have several "aliases" such as
+      #     :with, :with_this_widget or :use_this_widget.
+      # ===================================================================== #
       if optional_add_this_widget.is_a? Hash
-        # =================================================================== #
-        # === Handle Hashes next. We have several "aliases" such as
-        #     :with, :with_this_widget or :use_this_widget.
-        # =================================================================== #
         # =================================================================== #
         # === :use_this_widget
         #
@@ -712,404 +964,340 @@ module AppModule
       end
     end
     top_left
-    run
-  end; alias top_left_run           top_left_then_run # === top_left_run
-       alias move_top_left_then_run top_left_then_run # === move_top_left_then_run
-
-  # ========================================================================= #
-  # === easy_exit_top_left_then_run
-  #
-  # This method combines the easy-exit functionality, with the "put widget
-  # window on the top left corner of the screen", before "running" the
-  # application at hand (aka, starting it).
-  # ========================================================================= #
-  def easy_exit_top_left_then_run
-    easy_exit
-    top_left_then_run
-  end; alias easy_exit_then_top_left_and_run          easy_exit_top_left_then_run # === easy_exit_then_top_left_and_run
-       alias enable_quick_exit_then_top_left_then_run easy_exit_top_left_then_run # === enable_quick_exit_then_top_left_then_run
-       alias easy_exit_then_top_left_then_run         easy_exit_top_left_then_run # === easy_exit_then_top_left_then_run
-
-  require 'gtk_paradise/toplevel_methods/screen_resolution.rb'
-  # ========================================================================= #
-  # === resolution?
-  #
-  # Query the resolution of the target computer.
-  # ========================================================================= #
-  def resolution?
-    ::Gtk.resolution?
-  end
-
-  # ========================================================================= #
-  # === top_left_and_show_all
-  # ========================================================================= #
-  def top_left_and_show_all
-    top_left
-    show_all
-  end; alias top_left_then_show     top_left_and_show_all # === top_left_then_show
-       alias top_left_then_show_all top_left_and_show_all # === top_left_then_show_all
-       alias top_left_show_all      top_left_and_show_all # === top_left_show_all
-
-  # ========================================================================= #
-  # === position=
-  #
-  # Usage example:
-  #
-  #   .position = :mouse
-  #
-  # ========================================================================= #
-  def position=(i)
-    case i # case tag
-    # ======================================================================= #
-    # === :mouse
-    # ======================================================================= #
-    when :mouse
-      i = Gtk::Window::POS_MOUSE if ::Gtk.use_gtk2?
-    # ======================================================================= #
-    # === :none
-    # ======================================================================= #
-    when :none
-      i = Gtk::Window::POS_NONE if ::Gtk.use_gtk2?
-    # ======================================================================= #
-    # === :center_always
-    # ======================================================================= #
-    when :center_always,
-         :always_center,
-         :center2,
-         nil
-      i = Gtk::Window::POS_CENTER_ALWAYS
-    # ======================================================================= #
-    # === :center_on_parent
-    # ======================================================================= #
-    when :center_on_parent
-      i = Gtk::Window::POS_CENTER_ON_PARENT
-    # ======================================================================= #
-    # === :center
-    # ======================================================================= #
-    when :center
-      i = Gtk::Window::POS_CENTER
-    else
-      e "We do not know: #{simp(i.to_s)}"
-    end
-    set_window_position(i)
-  end
+    run
+  end; alias top_left_run           top_left_then_run # === top_left_run
+       alias move_top_left_then_run top_left_then_run # === move_top_left_then_run
 
   # ========================================================================= #
-  # === alt_shortcut
-  #
-  # This method enables a key-shortcut via the alt-key.
-  #
-  # The second argument is the method that you wish to call / invoke.
-  #
-  # Specific usage examples:
-  #
-  #   r.alt_key(1, 'focus_entry(1)')
-  #   r.alt_shortcut(1) { 'focus_entry(1)' }
-  #
+  # === try_to_load_the_configuration_file
   # ========================================================================= #
-  def alt_shortcut(
-      key_combination_to_use,
-      method_to_call = nil
+  def try_to_load_the_configuration_file(
+      path_to_the_configuration_file = 
+        'configuration_options_for_class_gtk_runner.yml'
     )
-    use_this_shortcut = "alt+#{key_combination_to_use}"
-    if block_given?
-      yielded = yield
-      method_to_call = yielded if method_to_call.nil?
-      shortcut(use_this_shortcut) { method_to_call }
+    _ = ::Gtk.project_base_directory?+
+        'yaml/'+
+        path_to_the_configuration_file
+    if File.exist? _
+      @internal_hash[:yaml_dataset] = YAML.load_file(_)
+      # ===================================================================== #
+      # Next check any configuration value - for now we only handle one
+      # setting.
+      # ===================================================================== #
+      if @internal_hash[:yaml_dataset].has_key? 'shall_we_enable_simple_exit_for_all_instances_of_gtk_runner'
+        if @internal_hash[:yaml_dataset]['shall_we_enable_simple_exit_for_all_instances_of_gtk_runner'] == true
+          enable_easy_exit
+        end
+      end
     else
-      shortcut(use_this_shortcut) { method_to_call }
+      e "No file exists at `#{sfile(_)}`."
     end
-  end; alias alt_key alt_shortcut # === alt_key
+  end
 
   # ========================================================================= #
-  # === feedback
-  #
-  # Just feedback some info to the user.
+  # === show_then_run
   # ========================================================================= #
-  def feedback
-    unless Object.const_defined? :Colours
-      begin
-        require 'colours'
-      rescue LoadError; end
-    end
-    e
-    e "  #{::Colours.rev}widget-width is:  #{::Colours.sfancy(@width)}"
-    e "  #{::Colours.rev}widget-height is: #{::Colours.sfancy(@height)}"
-    e
-  end
+  def show_then_run
+    show_all
+    run
+  end; alias show_all_then_run show_then_run # === show_all_then_run
 
   # ========================================================================= #
-  # === size=
+  # === accel_group?
   #
-  # Set width and height here. Input argument to this method should be an
-  # Array.
+  # So that we can manipulate the AccelGroup.
   # ========================================================================= #
-  def size=(array)
-    set_width(array[0])
-    set_height(array[1] )
+  def accel_group?
+    @accel_group
+  end; alias accel_group accel_group? # === accel_group
+
+  # ========================================================================= #
+  # === filename=
+  # ========================================================================= #
+  def filename=(i)
+    @internal_hash[:filename] = i
+  end; alias set_filename filename= # === set_filename
+
+  # ========================================================================= #
+  # === filename?
+  # ========================================================================= #
+  def filename?
+    @internal_hash[:filename]
   end
 
   # ========================================================================= #
-  # === original_width?
+  # === set_my_border_width
   #
-  # Determine the default width of the screen on the target computer system.
+  # Set the border-width for Gtk::Runner.
   # ========================================================================= #
-  def original_width?
-    Gdk::Screen.default.width
-  end; alias max_width? original_width? # === max_width?
+  def set_my_border_width(
+      i = 0
+    )
+    case i
+    when nil
+      i = 0
+    end
+    @internal_hash[:border_width] = i.to_i
+    set_border_width(@internal_hash[:border_width])
+  end; alias padding=        set_my_border_width # === padding=
+       alias border=         set_my_border_width # === border=
+       alias set_padding     set_my_border_width # === set_padding
+       alias set_border_size set_my_border_width # === set_border_size
 
   # ========================================================================= #
-  # === border_width?
+  # === middle_of_the_screen_then_run
+  #
+  # Use this method if you want to position the Gtk::App widget in the
+  # center of the screen, before calling .run() on it.
   # ========================================================================= #
-  def border_width?
-    @internal_hash[:border_width]
-  end; alias padding? border_width? # === padding?
+  def middle_of_the_screen_then_run
+    middle_of_the_screen
+    run
+  end; alias middle_then_run     middle_of_the_screen_then_run # === middle_then_run
+       alias start_in_the_middle middle_of_the_screen_then_run # === start_in_the_middle
 
   # ========================================================================= #
-  # === is_resizable
+  # === top_left_then_show_then_run
   # ========================================================================= #
-  def is_resizable
-    self.resizable = true
+  def top_left_then_show_then_run
+    top_left
+    show
+    run
   end
 
-  require 'gtk_paradise/toplevel_methods/screen_resolution.rb'
   # ========================================================================= #
-  # === max_resolution?
+  # === middle_of_the_screen
+  #
+  # This method allows the user to position the window in the middle of
+  # the screen.
   # ========================================================================= #
-  def max_resolution?
-    ::Gtk.screen_resolution?
+  def middle_of_the_screen(
+      use_this_as_the_positional_argument =
+        ::Gtk::WindowPosition::CENTER
+    ) 
+    set_window_position(
+      use_this_as_the_positional_argument
+    )
   end
 
   # ========================================================================= #
-  # === set_my_title
-  #
-  # Use this to set the title.
+  # === internal_hash?
   # ========================================================================= #
-  def set_my_title(
-      i = internal_title?
-    )
-    i = __FILE__ if i == '__FILE__'
-    @internal_hash[:title] = i
-    # ======================================================================= #
-    # Next delegate towards apply_the_internal_title().
-    # ======================================================================= #
-    apply_the_internal_title
-  end; alias title set_my_title # === title
-       alias name= set_my_title # === name=
+  def internal_hash?
+    @internal_hash
+  end; alias main_hash? internal_hash? # === main_hash?
+       alias hash?      internal_hash? # === hash?
 
   # ========================================================================= #
-  # === apply_the_internal_title
+  # === top_middle
+  #
+  # Position the Gtk::Runner widget on the very top, but middle position.
+  #
+  # This must be calculated properly:
+  #
+  #   (1) first we must determine the max-width of the monitor, and then
+  #       divide it by 2
+  #   (2) then we also need to determine the width of the widget
+  #       that will be spawned. This will default to a hardcoded
+  #       value, but Gtk::Runner can modify this accordingly via
+  #       the argument
   #
-  # This method should be used if you wish to apply the internally set title.
   # ========================================================================= #
-  def apply_the_internal_title(i = internal_title?)
-    if i and respond_to?(:set_title)
-      set_title(i)
+  def top_middle(
+      use_this_subwidget_width = :default # This argument can be a number.
+    )
+    case use_this_subwidget_width
+    # ======================================================================= #
+    # === :default
+    # ======================================================================= #
+    when :default
+      use_this_subwidget_width = 250
     end
+    calculated_value  = Gdk::Screen.default.width / 2
+    calculated_value -= use_this_subwidget_width
+    move(calculated_value, 0)
   end
 
   # ========================================================================= #
-  # === enable_quick_exit_then_run
+  # === top_middle_then_run
   # ========================================================================= #
-  def enable_quick_exit_then_run
-    enable_quick_exit
+  def top_middle_then_run(
+      i = :default
+    )
+    top_middle(i)
     run
   end
 
   # ========================================================================= #
-  # === set_background_colour
-  #
-  # This method (or an alias to this method) can be used to set the
-  # background colour.
+  # === top_left_show_all_then_run
   # ========================================================================= #
-  def set_background_colour(i)
-    if i
-      @internal_hash[:background_colour] = i.to_s
-      # ===================================================================== #
-      # Note that if we input an incorrect colour then this will fail. This
-      # explains the code in the rescue-clause.
-      # ===================================================================== #
-      begin
-        parsed_colour = ::Gdk::Color.parse(@internal_hash[:background_colour])
-      rescue ArgumentError
-        @internal_hash[:background_colour] = 'white'
-        parsed_colour = ::Gdk::Color.parse('white')
-      end
-      if ::Gtk.use_gtk2?
-        modify_bg(::Gtk::STATE_NORMAL, parsed_colour)
-      else # else assume gtk3 is in use.
-        override_background_color(:normal, parsed_colour)
-      end
-    end
-  end; alias background_colour set_background_colour # === background_colour
+  def top_left_show_all_then_run
+    top_left_and_show_all
+    run
+  end; alias top_left_show_all_then_run      top_left_show_all_then_run # === top_left_show_all_then_run
+       alias top_left_then_show_all_then_run top_left_show_all_then_run # === top_left_then_show_all_then_run
 
   # ========================================================================= #
-  # === determine_the_title_from_the_child_widget
+  # === feedback
   #
-  # The first argument is the widget that we will use, under the assumption
-  # that it will be the child-widget.
+  # Just feedback some info to the user.
   # ========================================================================= #
-  def determine_the_title_from_the_child_widget(
-      child_widget = child_widget?
-    )
-    if child_widget and child_widget.respond_to?(:my_title?)
-      title = child_widget.my_title?
-      set_title_then_apply(title)
-    else
-      e 'The child-widget (class '+child_widget.name.to_s+
-        ') does not respond to the method called .my_title?' unless child_widget.nil?
+  def feedback
+    unless Object.const_defined? :Colours
+      begin
+        require 'colours'
+      rescue LoadError; end
     end
-  end; alias automatic_title                       determine_the_title_from_the_child_widget # === automatic_title
-       alias determine_the_title                   determine_the_title_from_the_child_widget # === determine_the_title
-       alias determine_the_title_automatically     determine_the_title_from_the_child_widget # === determine_the_title_automatically
-       alias infer_the_title_from_the_child_widget determine_the_title_from_the_child_widget # === infer_the_title_from_the_child_widget
-       alias title_from_child_widget               determine_the_title_from_the_child_widget # === title_from_child_widget
-       alias automatic_title                       determine_the_title_from_the_child_widget # === automatic_title
+    e
+    e "  #{::Colours.rev}widget-width is:  #{::Colours.sfancy(@width)}"
+    e "  #{::Colours.rev}widget-height is: #{::Colours.sfancy(@height)}"
+    e
+  end
 
   # ========================================================================= #
-  # === set_title_then_apply
+  # === enable_quick_exit_then_run
   # ========================================================================= #
-  def set_title_then_apply(i)
-    set_my_title(i)
-    apply_the_internal_title
-  end; alias set_my_title_then_apply_it set_title_then_apply # === set_my_title_then_apply_it
+  def enable_quick_exit_then_run
+    enable_quick_exit
+    run
+  end
 
   # ========================================================================= #
-  # === missing_the_internal_hash?
+  # === type_hint=
   # ========================================================================= #
-  def missing_the_internal_hash?
-    _ = false
-    _ = true if defined?(:@internal_hash)
-    _ = true if @internal_hash.nil?
-    return _
+  def type_hint=(i = :dock)
+    window.type_hint = Gdk::WindowTypeHint[i]
   end
 
   # ========================================================================= #
-  # === internal_title?
+  # === register_sigint
   # ========================================================================= #
-  def internal_title?
-    @internal_hash[:title]
-  end; alias my_title? internal_title? # === my_title?
-       alias title?    internal_title? # === title?
+  def register_sigint
+    ::Gtk.register_sigint
+  end
 
   # ========================================================================= #
-  # === set_internal_title
+  # === set_internal_child_widget
   # ========================================================================= #
-  def set_internal_title(i)
-    @internal_hash[:title] = i
-  end
+  def set_internal_child_widget(i)
+    @internal_hash[:child_widget] = i
+  end; alias set_child_widget set_internal_child_widget # === set_internal_child_widget
 
   # ========================================================================= #
-  # === enable_simple_exit_then_run
+  # === child_widget?
   # ========================================================================= #
-  def enable_simple_exit_then_run
-    enable_simple_exit
-    run
-  end
+  def child_widget?
+    @internal_hash[:child_widget]
+  end; alias child_widget child_widget? # === child_widget
+       alias child?       child_widget? # === child?
 
   # ========================================================================= #
-  # === interactively_create_directory
+  # === top_left
   #
-  # This convenience method can be used to create a new directory.
+  # Position the Gtk::Runner widget on the very top left position.
   # ========================================================================= #
-  def interactively_create_directory(
-      use_this_as_parent_widget
-    )
-    result = ''
-    text   = gtk_text(
-      'Input the name of the directory to be created:'
-    )
-    entry = gtk_entry
-    
-    popup_box = gtk_vbox
-    popup_box.set_padding(12)
-    popup_box.set_size_request(800, 240)
-    popup_box.set_font(:hack_20)
-    popup_box.minimal(text, 2)
-    popup_box.maximal(entry, 2)
-
-    dialog = ::Gtk::Dialog.new(parent:  use_this_as_parent_widget,
-                               title:   'Interactively create a directory',
-                               flags:   [:modal, :destroy_with_parent],
-                               buttons: [['_Cancel', :cancel],
-                                         ['_Create the directory', :ok]])
-    content_area = dialog.content_area
-    content_area.pack_start(popup_box)
-    content_area.show_all
-
-    response = dialog.run
-
-    case response
-    when :ok # This is <Gtk::ResponseType ok>
-      result << entry.text?
-    end
-
-    if File.directory? result
-      e 'The directory '+result+' already exists.'
+  def top_left
+    if respond_to?(:move)
+    move(0, 0)
     else
-      e 'Creating the directory '+result+' next.'
-      FileUtils.mkdir_p(result)
+      pp __LINE__
+      e 'The widget does not respond to :move.'
     end
+  end; alias move_top_left top_left # === move_top_left
 
-    dialog.destroy
+  # ========================================================================= #
+  # === set_font_in_use
+  # ========================================================================= #
+  def set_font_in_use(i)
+    ::Gtk.set_font(i)
   end
 
   # ========================================================================= #
-  # === handle_the_destroy_event
+  # === width_height
   # ========================================================================= #
-  def handle_the_destroy_event
-    signal_connect(:destroy) { exit_application }
+  def width_height(width, height)
+    set_size_request(width, height)
   end
 
   # ========================================================================= #
-  # === exit_application
-  #
-  # Use this to quit from an application.
+  # === set_default_size
   # ========================================================================= #
-  def exit_application
-    ::Gtk.main_quit
-  end; alias exit_program exit_application # === exit_program
-       alias do_quit      exit_application # === do_quit
+  def set_default_size(
+      w = DEFAULT_WIDTH,
+      h = DEFAULT_HEIGHT
+    )
+    set_width(w)
+    set_height(h)
+  end
 
   # ========================================================================= #
-  # === set_global_font_size
-  #
-  # The first input-argument to this method should be a number.
+  # === do_maximize_width
   # ========================================================================= #
-  def set_global_font_size(
-      i, use_this_font_family = 'Sans'
+  def do_maximize_width(
+      width  = max_width?, # Obtain the max-width here.
+      height = height?
     )
-    Gtk::Settings.default.gtk_font_name = "#{use_this_font_family} #{i}"
+    set_size_request(width, height)
   end
 
   # ========================================================================= #
-  # === do_maximize
-  #
-  # Use this when you want to maximize the window, to the full-screen.
+  # === window_position_none
   # ========================================================================= #
-  def do_maximize
-    self.maximize
-  end; alias max do_maximize # === max
+  def window_position_none(
+      i = :none
+    )
+    if ::Gtk.use_gtk2?
+      i = Gtk::Window::POS_NONE
+    end
+    set_window_position(i)
+  end
 
   # ========================================================================= #
-  # === disallow_resizing
+  # === resize_to_child_widget_dimension
   #
-  # This method will prevent the user from resizing the window.
+  # This method can be used to resize to the child-widget's dimension.
   # ========================================================================= #
-  def disallow_resizing
-    set_resizable(false)
+  def resize_to_child_widget_dimension
+    _ = child_widget?
+    set_size_request(_.width?, _.height?) if _
   end
 
   # ========================================================================= #
-  # === minimum_size
+  # === alt_shortcut
+  #
+  # This method enables a key-shortcut via the alt-key.
+  #
+  # The second argument is the method that you wish to call / invoke.
+  #
+  # Specific usage examples:
+  #
+  #   r.alt_key(1, 'focus_entry(1)')
+  #   r.alt_shortcut(1) { 'focus_entry(1)' }
   #
-  # This can be used to specify a minimum size. It is advised to pass
-  # a Hash.
   # ========================================================================= #
-  def minimum_size(
-      hash = { width: '30%', height: '20%' }
+  def alt_shortcut(
+      key_combination_to_use,
+      method_to_call = nil
     )
-    set_size_request(hash[:width], hash[:height])
+    use_this_shortcut = "alt+#{key_combination_to_use}"
+    if block_given?
+      yielded = yield
+      method_to_call = yielded if method_to_call.nil?
+      shortcut(use_this_shortcut) { method_to_call }
+    else
+      shortcut(use_this_shortcut) { method_to_call }
+    end
+  end; alias alt_key alt_shortcut # === alt_key
+
+  # ========================================================================= #
+  # === size=
+  #
+  # Set width and height here. Input argument to this method should be an
+  # Array.
+  # ========================================================================= #
+  def size=(array)
+    set_width(array[0])
+    set_height(array[1])
   end
 
   # ========================================================================= #
@@ -1121,7 +1309,8 @@ module AppModule
   # boat cursor will be used.
   # ========================================================================= #
   def set_cursor(
-      which_cursor_to_use = :in_method_default
+      which_cursor_to_use =
+        :in_method_default
     )
     case which_cursor_to_use
     # ======================================================================= #
@@ -1225,12 +1414,24 @@ module AppModule
     # ======================================================================= #
     when :hand2
       cursor = Gdk::Cursor::HAND2
+    # ======================================================================= #
+    # === :heart
+    # ======================================================================= #
     when :heart
       cursor = Gdk::Cursor::HEART
+    # ======================================================================= #
+    # === :icon
+    # ======================================================================= #
     when :icon
       cursor = Gdk::Cursor::ICON
+    # ======================================================================= #
+    # === :iron
+    # ======================================================================= #
     when :iron
       cursor = Gdk::Cursor::IRON_CROSS
+    # ======================================================================= #
+    # === :default
+    # ======================================================================= #
     when :default_cursor,
          :default
       cursor = Gdk::Cursor::LEFT_PTR
@@ -1252,139 +1453,52 @@ module AppModule
       cursor = Gdk::Cursor::LEFTBUTTON
     # ======================================================================= #
     # === :left_angle
-    # ======================================================================= #
-    when :left_angle
-      cursor = Gdk::Cursor::LL_ANGLE
-    else
-      cursor = Gdk::Cursor::WATCH
-    end
-    unless which_cursor_to_use == 'rand'
-      window.set_cursor(Gdk::Cursor.new(cursor))
-    end
-  end
-
-  require 'gtk_paradise/toplevel_methods/register_sigint.rb'
-  # ========================================================================= #
-  # === register_sigint
-  # ========================================================================= #
-  def register_sigint
-    ::Gtk.register_sigint
-  end
-
-  # ========================================================================= #
-  # === type_hint=
-  # ========================================================================= #
-  def type_hint=(i = :dock)
-    window.type_hint = Gdk::WindowTypeHint[i]
-  end
-
-  # ========================================================================= #
-  # === child_widget?
-  # ========================================================================= #
-  def child_widget?
-    @internal_hash[:child_widget]
-  end; alias child_widget child_widget? # === child_widget
-       alias child?       child_widget? # === child?
-
-  require 'gtk_paradise/gtk_classes/status_icon.rb'
-  # ========================================================================= #
-  # === status_icon
-  #
-  # This method add a StatusIcon to a gtk-widget.
-  # ========================================================================= #
-  def status_icon(
-      use_this_as_the_icon = favicon?
-    )
-    if ::Gtk.use_gtk2?
-      _ = ::Gtk::StatusIcon.new
-      _.use_this_image = use_this_as_the_icon
-    else
-      _ = ::Gtk::StatusIcon.new(file: use_this_as_the_icon)
-    end
-    return _
-  end
-
-  # ========================================================================= #
-  # === top_left
-  #
-  # Position the Gtk::Runner widget on the very top left position.
-  # ========================================================================= #
-  def top_left
-    move(0, 0) if respond_to?(:move)
-  end; alias move_top_left top_left # === move_top_left
-
-  # ========================================================================= #
-  # === set_internal_child_widget
-  # ========================================================================= #
-  def set_internal_child_widget(i)
-    @internal_hash[:child_widget] = i
-  end; alias set_child_widget set_internal_child_widget # === set_internal_child_widget
-
-  # ========================================================================= #
-  # === enable_quick_exit
-  #
-  # This method enables quick "alt+Q" key-combination to quit the
-  # application. Since as of September 2020, we also use strg+q 
-  # (which is ctrl+q, actually).
-  # ========================================================================= #
-  def enable_quick_exit
-    add_shortcut(:q, 'exit_program', :alt)
-    add_shortcut(:q, 'exit_program', :strg)
-  end; alias easy_exit          enable_quick_exit # === easy_exit
-       alias quick_exit         enable_quick_exit # === quick_exit
-       alias enable_simple_exit enable_quick_exit # === enable_simple_exit
-       alias simple_exit        enable_quick_exit # === simple_exit
-       alias enable_easy_exit   enable_quick_exit # === enable_easy_exit
-
-  # ========================================================================= #
-  # === shortcuts
-  #
-  # This may be used like so:
-  #
-  #   r.shortcuts {
-  #     [1, 'click_on_button_number(0)', :alt],
-  #   }
-  #
-  # ========================================================================= #
-  def shortcuts(&block)
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a? Array
-        yielded.each {|inner_array|
-          add_shortcut(
-            inner_array[0],
-            inner_array[1],
-            inner_array[2]
-          )
-        }
-      end
+    # ======================================================================= #
+    when :left_angle
+      cursor = Gdk::Cursor::LL_ANGLE
+    else
+      cursor = Gdk::Cursor::WATCH
+    end
+    unless which_cursor_to_use == 'rand'
+      window.set_cursor(Gdk::Cursor.new(cursor))
     end
   end
 
   # ========================================================================= #
-  # === run                                     (run tag, start tag, def run)
+  # === infer_default_size
   #
-  # Start the application via this method.
+  # This variant will use the size from the child-widget. Thus, for this
+  # method to properly work, a child-widget has to exist.
   # ========================================================================= #
-  def run(
-      optional_show_all = true
-    )
-    if child_widget? and child_widget?.respond_to? :my_title?
-      set_my_title(child_widget?.my_title?)
+  def infer_default_size
+    if child_widget?
+      set_default_size(
+        child_widget?.width?,
+        child_widget?.height?
+      )
     end
-    show_all if optional_show_all
+  end; alias clever_size    infer_default_size # === clever_size
+       alias infer_the_size infer_default_size # === infer_the_size
+
+  # ========================================================================= #
+  # === automatic_size
+  #
+  # This method currently combines two methods. I am unsure whether this
+  # will be retained in the long run, but for now (2022) it will be
+  # retained as-is.
+  # ========================================================================= #
+  def automatic_size(
+      width  = width?,
+      height = height?
+    )
+    set_default_size(width.to_i, height.to_i)
     # ======================================================================= #
-    # The next code clause is probably no longer necessary, as .add() will
-    # handle these cases.
+    # The next line actually causes the resize-action.
     # ======================================================================= #
-    # if width? and height?
-    #   set_default_size(width?, height?)
-    # end
-    ::Gtk.main # Finally, run the application here.
-  end; alias start run # === start
+    set_size_request(width.to_i, height.to_i)
+  end; alias use_default_size_from_the_config_file    automatic_size # ===  use_default_size_from_the_config_file
+       alias determine_the_size_from_the_child_widget automatic_size # === determine_the_size_from_the_child_widget
+       alias size_from_child                          automatic_size # === size_from_child
 
   # ========================================================================= #
   # === automatic_size_then_automatic_title
@@ -1405,12 +1519,18 @@ module AppModule
        alias automatic                           automatic_size_then_automatic_title # === automatic
 
   # ========================================================================= #
-  # === internal_hash?
+  # === disallow_modification_of_the_title
   # ========================================================================= #
-  def internal_hash?
-    @internal_hash
-  end; alias main_hash? internal_hash? # === main_hash?
-       alias hash?      internal_hash? # === hash?
+  def disallow_modification_of_the_title
+    @internal_hash[:may_we_modify_the_title] = false
+  end
+
+  # ========================================================================= #
+  # === may_we_modify_the_title?
+  # ========================================================================= #
+  def may_we_modify_the_title?
+    @internal_hash[:may_we_modify_the_title]
+  end
 
   # ========================================================================= #
   # === <<                                                          (add tag)
@@ -1425,10 +1545,17 @@ module AppModule
   # too, via set_internal_child_widget().
   # ========================================================================= #
   def <<(child_widget)
-    initialize_the_internal_hash unless @internal_hash.is_a? Hash
+    unless @internal_hash.is_a? Hash
+      initialize_the_internal_hash
+    end
     builder = ::Gtk::Builder.new
     set_internal_child_widget(child_widget)
-    add_child(builder, child_widget) # add_child(builder, child, type)
+    unless use_gtk4?
+    # This part may have to be re-visited at a later time.
+    #   builder.set_child(child_widget)
+    # else
+      add_child(builder, child_widget) # add_child(builder, child, type)
+    end
     # ======================================================================= #
     # === Apply the ad-hoc CSS rules next
     #
@@ -1446,8 +1573,10 @@ module AppModule
     # ======================================================================= #
     # === :my_title?
     # ======================================================================= #
-    if child_widget.respond_to? :my_title?
-      set_title(child_widget.my_title?)
+    if child_widget and
+       child_widget.respond_to?(:my_title?) and
+       may_we_modify_the_title?
+      set_my_title(child_widget.my_title?)
     end
     # ======================================================================= #
     # === :width?
@@ -1476,7 +1605,8 @@ module AppModule
     # ======================================================================= #
     # === :border_size
     # ======================================================================= #
-    if child_widget.respond_to? :border_size?
+    if child_widget.respond_to?(:border_size?) and
+       child_widget.respond_to?(:set_border_width?)
       child_widget.set_border_width(child_widget.border_size?)
     end
     # ======================================================================= #
@@ -1578,158 +1708,193 @@ module AppModule
   end #; alias add << # === add
 
   # ========================================================================= #
-  # === width?
+  # === set_internal_title
   # ========================================================================= #
-  def width?
-    @internal_hash[:width]
+  def set_internal_title(i)
+    @internal_hash[:title] = i
   end
 
   # ========================================================================= #
-  # === height?
+  # === internal_title?
   # ========================================================================= #
-  def height?
-    @internal_hash[:height]
-  end
+  def internal_title?
+    @internal_hash[:title]
+  end; alias my_title? internal_title? # === my_title?
+       alias title?    internal_title? # === title?
 
   # ========================================================================= #
-  # === set_width
-  #
-  # Use only this method when setting @width.
+  # === apply_the_internal_title
   #
-  # If we pass in a string that also includes a '%' character then
-  # we assume that the user wishes to use Gdk::Screen.default instead.
-  # ========================================================================= #
-  def set_width(i = DEFAULT_WIDTH)
-    if i
-      # ===================================================================== #
-      # === Handle percentage values given to this method next
-      # ===================================================================== #
-      if i.is_a? String and i.include? '%'
-        i = i.to_f # This is percentage.
-        i = (Gdk::Screen.default.width * i) / 100
-      end
-      i = i.first if i.is_a? Array
-      i = i.to_i
-      @internal_hash[:width] = i
-    end
-  end; alias width= set_width # === width=
-
-  # ========================================================================= #
-  # === set_height
+  # This method should be used if you wish to apply the internally set title.
   #
-  # Use only this method when wishing to set to @height.
+  # It has a few if/else clauses largely because there was a bug in effect
+  # where .set_title() was not called properly. Now there is no way around
+  # notifying the user when something goes awry.
   # ========================================================================= #
-  def set_height(i)
+  def apply_the_internal_title(
+      i = internal_title?
+    )
     if i
-      if i.is_a? String and i.include? '%'
-        i = i.to_f # This is percentage.
-        i = (Gdk::Screen.default.height * i) / 100
+      if respond_to?(:set_title)
+        set_title(i)
+      else
+        e 'Input was given to '+__method__.to_s+' but the class does not'
+        e 'respond to .set_title().'
       end
-      i = i.to_i
-      @internal_hash[:height] = i
+    else
+      # e 'No title was given. This is unusual - please investigate the cause.'
+      # pp caller()
     end
-  end; alias height= set_height # === height=
-
-  # ========================================================================= #
-  # === automatic_size
-  # ========================================================================= #
-  def automatic_size(
-      width  = width?,
-      height = height?
-    )
-    set_default_size(width.to_i, height.to_i)
-    # ======================================================================= #
-    # The next line actually causes the resize-action.
-    # ======================================================================= #
-    set_size_request(width.to_i, height.to_i)
-  end; alias use_default_size_from_the_config_file    automatic_size # ===  use_default_size_from_the_config_file
-       alias determine_the_size_from_the_child_widget automatic_size # === determine_the_size_from_the_child_widget
-       alias size_from_child                          automatic_size # === size_from_child
+  end
 
   # ========================================================================= #
-  # === set_default_size
+  # === add_context_menu_with_the_default_accel_group
   # ========================================================================= #
-  def set_default_size(
-      w = DEFAULT_WIDTH,
-      h = DEFAULT_HEIGHT
-    )
-    set_width(w)
-    set_height(h)
+  def add_context_menu_with_the_default_accel_group
+    add_accel_group(@accel_group = gtk_accel_group)
+    enable_context_menu
   end
 
   # ========================================================================= #
-  # === set_my_border_width
+  # === set_favicon
   #
-  # Set the border-width for Gtk::Runner.
+  # Ensures that the icon exists before setting it.
+  #
+  # Some symbol-shortcuts are allowed here, which are hardcoded towards my
+  # own system.
   # ========================================================================= #
-  def set_my_border_width(i = 0)
+  def set_favicon(i)
+    if i.nil? and is_on_roebe?
+      i = :default
+    end
+    if i.is_a?(String) and i.start_with?(':')
+      i = i.delete(':').to_sym
+    end
     case i
-    when nil
-      i = 0
+    # ======================================================================= #
+    # === :RMC
+    # ======================================================================= #
+    when :RMC,
+         :rmc
+      i = ::Gtk.project_base_directory?+'images/misc/RMC.jpg'
+    # ======================================================================= #
+    # === :lotus
+    # ======================================================================= #
+    when :lotus
+      i = '/home/x/data/images/RPG/STD/LOTUS_MASKE.png'
+    # ======================================================================= #
+    # === :tabble_image
+    #
+    # This entry point is currently aliased to ":default" - thus, it is
+    # the default value.
+    # ======================================================================= #
+    when :tabble_image,
+         :tabble,
+         :default
+      i = ::Gtk.project_base_directory?+'images/misc/tabble.png'
+    # ======================================================================= #
+    # === :pc_favicon
+    # ======================================================================= #
+    when :pc_favicon
+      i = '/home/x/data/images/PC/PC_FAVICON.png'
+    # ======================================================================= #
+    # === :task_image
+    # ======================================================================= #
+    when :tasks_image,
+         :tasks
+      i = '/home/x/data/images/PC/TASKS.jpg'
+    # ======================================================================= #
+    # === :audio_favicon
+    # ======================================================================= #
+    when :audio_favicon
+      i = '/home/x/data/images/AUDIO/AUDIO_FAVICON.png'
     end
-    @internal_hash[:border_width] = i.to_i
-    set_border_width(@internal_hash[:border_width])
-  end; alias padding=        set_my_border_width # === padding=
-       alias border=         set_my_border_width # === border=
-       alias set_padding     set_my_border_width # === set_padding
-       alias set_border_size set_my_border_width # === set_border_size
-
-  # ========================================================================= #
-  # === top_left_then_show_then_run
-  # ========================================================================= #
-  def top_left_then_show_then_run
-    top_left
-    show
-    run
-  end
+    if i
+      begin
+        if File.exist? i
+          @internal_hash[:favicon] = i
+        else
+          e "(in gtk_paradise/run.rb) No file exists at this location: `#{i}`"
+        end
+      rescue Exception => error
+        pp error
+        pp i
+      end
+    else
+      if is_on_roebe?
+        e 'Please provide an icon_location to the method set_favicon()'
+      end
+    end
+    @internal_hash[:favicon] = i
+  end; alias set_icon_location set_favicon # === set_icon_location
+       alias icon_location=    set_favicon # === icon_location=
+       alias icon=             set_favicon # === icon?
+       alias set_this_favicon  set_favicon # === set_this_favicon
+       alias set_logo          set_favicon # === set_logo
+       alias favicon=          set_favicon # === favicon=
 
   # ========================================================================= #
-  # === middle_of_the_screen
+  # === default_width_and_height
+  #
+  # This variant is a bit different for two reasons:
+  #
+  #   (1) by default it will use a percentage value for both width
+  #       and height
+  #   (2) it will also do a set_size_request() to try to get the
+  #       new width and height; in particular this point is quite
+  #       different to the regular .width_height() method.
   #
-  # This method allows the user to position the window in the middle of
-  # the screen.
-  # ========================================================================= #
-  def middle_of_the_screen(
-      use_this_as_the_positional_argument = ::Gtk::WindowPosition::CENTER
-    ) 
-    set_window_position(use_this_as_the_positional_argument)
-  end
-
-  # ========================================================================= #
-  # === middle_of_the_screen_then_run
   # ========================================================================= #
-  def middle_of_the_screen_then_run
-    middle_of_the_screen
-    run
-  end; alias middle_then_run     middle_of_the_screen_then_run # === middle_then_run
-       alias start_in_the_middle middle_of_the_screen_then_run # === start_in_the_middle
+  def default_width_and_height(
+      width  = '80%',
+      height = '75%'
+    )
+    set_width(width)
+    set_height(height)
+    set_size_request(width?, height?)
+  end; alias default_width_height       default_width_and_height # === default_width_height
+       alias determine_width_and_height default_width_and_height # === determine_width_and_height
 
   # ========================================================================= #
-  # === infer_default_size
+  # === run                                     (run tag, start tag, def run)
   #
-  # This variant will use the size from the child-widget. Thus, for this
-  # method to properly work, a child-widget has to exist.
+  # Start the application via this method.
   # ========================================================================= #
-  def infer_default_size
-    if child_widget?
-      set_default_size(
-        child_widget?.width?,
-        child_widget?.height?
-      )
+  def run(
+      optional_show_all = true
+    )
+    show_all if optional_show_all
+    # ======================================================================= #
+    # The next code clause is probably no longer necessary, as .add() will
+    # handle these cases.
+    # ======================================================================= #
+    # if width? and height?
+    #   set_default_size(width?, height?)
+    # end
+    if use_gtk2? or use_gtk3?
+      ::Gtk.main # Finally, run the application here.
     end
-  end; alias clever_size    infer_default_size # === clever_size
-       alias infer_the_size infer_default_size # === infer_the_size
+  end; alias start run # === start
 
 end; end
 
 if __FILE__ == $PROGRAM_NAME
+  alias e puts
   require 'gtk3'
+  # require 'gtk_paradise/gtk_classes/widget.rb'
+  # require 'gtk_paradise/gtk_classes/window.rb'
+  require 'gtk_paradise/gtk_classes/window.rb'
+  e
+  e 'Testing Gtk::AppModule next:'
+  e
   window = Gtk::Window.new
   window.extend(Gtk::AppModule)
   window.internal_reset
-  window.internal_title?
-  window.set_internal_title('YO THERE')
+  e window.internal_title?
+  window.set_internal_title('YO THERE - THIS IS A GREAT TITLE!')
+  e window.internal_title?
   window.apply_the_internal_title
+  window.use_this_font = :hack_30
   window.add(Gtk::Label.new('This is a test.'))
   window.show_all
   window.top_left