gtk_paradise 0.9.120 → 0.12.25

data/lib/gtk_paradise/gtk_classes/widget.rb

@@ -8,53 +8,66 @@
 # =========================================================================== #
 module Gtk
 
-class Widget
+class Widget # === Gtk::Widget
 
-  require 'gtk_paradise/gtk_classes/colours/colours.rb'
   require 'gtk_paradise/toplevel_methods/determine_which_gtk_version_is_in_use.rb'
-  require 'gtk_paradise/toplevel_methods/spacer.rb'
 
   # ========================================================================= #
-  # === shadow_type_etched_in
+  # Next, call in gdk-specific modifications.
   # ========================================================================= #
-  def shadow_type_etched_in
-    set_shadow_type(::Gtk::SHADOW_ETCHED_IN)
-  end
+  require 'gtk_paradise/gdk/event_crossing.rb'
 
   # ========================================================================= #
-  # === add_css_class
+  # === width_height
   #
-  # This method can be used to quickly add a CSS class to a particular
-  # gtk-widget.
+  # This method is just a little wrapper over .set_size_request().
+  # ========================================================================= #
+  def width_height(
+      width  = 560,
+      height = 160
+    )
+    set_size_request(width, height)
+  end
+
+  # ========================================================================= #
+  # === same_minimal
   #
-  # Example how to use it via the gtk_paradise gem:
+  # This method can be used to group together several calls to
+  # .minimal(), along with proper padding.
+  # ========================================================================= #
+  def same_minimal(
+      padding_to_use = 0,
+      *these_widgets
+    )
+    these_widgets.flatten.each {|this_widget|
+      minimal(this_widget, padding_to_use)
+    }
+  end
+
+  # ========================================================================= #
+  # === align_to_center
   #
-  #   label = gtk_label('This is a test')
-  #   label.add_css_class('BG_black')
-  #   label.add_css_class('yellow')
-  #   label.css_class('bblack2')
+  # This method will align towards the center. Note that not all widgets
+  # respond to this naturally; it is best to use this for gtk-entry
+  # widgets and perhaps gtk-label and similar widgets.
   #
+  # Since as of May 2023 another approach is used: if the widget does
+  # not respond to .xalign= then another method will be called
+  # automatically. Unfortunately this does not work ...
   # ========================================================================= #
-  def add_css_class(i)
-    if respond_to? :style_context
-      if i.is_a?(String) and i.include? ' '
-        use_these_css_classes(i)
-      else
-        i = i.to_s if i.is_a? Symbol
-        style_context.add_class(i)
-        # =================================================================== #
-        # Always register it after it was added.
-        # =================================================================== #
-        ::Gtk.register_this_css_class_is_in_use(i)
-      end
-    end
-  end; alias css_class          add_css_class # === css_class
-       alias css                add_css_class # === css
-       alias set_class          add_css_class # === set_class
-       alias set_css_class      add_css_class # === set_css_class
-       alias add_this_css_class add_css_class # === add_this_css_class
-       alias add_css            add_css_class # === add_this_css_class
-       alias add_class          add_css_class # === add_class
+  def align_to_center
+    # if respond_to?(:xaling=)
+      self.xalign = 0.5
+    # else
+    #   self.halign = ::Gtk::Alignment.new(0.5, 0.5, 1.0, 1.0)
+    # end
+  end; alias align_to_the_center    align_to_center # === align_to_the_center
+       alias center                 align_to_center # === center
+       alias do_center              align_to_center # === do_center
+       alias to_center              align_to_center # === to_center
+       alias to_the_middle          align_to_center # === to_the_middle
+       alias align_into_the_middle  align_to_center # === align_into_the_middle
+       alias center_align           align_to_center # === center_align
 
   # ========================================================================= #
   # === scroll_up?
@@ -79,122 +92,871 @@ class Widget
   end; alias scroll_down_event? scroll_down? # === scroll_down_event?
 
   # ========================================================================= #
-  # === pack_without_expand                                     (minimal tag)
+  # === on_scroll_event
+  #
+  # This is the event that occurs when the mouse-scroll-wheel is clicked.
   # ========================================================================= #
-  def pack_without_expand(
-      widget,
-      padding_to_use = 0
-    )
-    # ======================================================================= #
-    # The second argument may be a Hash. If this is the case we check for
-    # it's "type".
-    # ======================================================================= #
-    if padding_to_use.is_a? Hash
-      work_on_a_copy = padding_to_use.dup # To avoid side-effects.
+  def on_scroll_event(&block)
+    signal_connect(:scroll_event, &block)
+  end; alias on_scrolled           on_scroll_event # === on_scrolled
+       alias on_scrolling          on_scroll_event # === on_scrolling
+       alias on_scrolling_event    on_scroll_event # === on_scrolling_event
+       alias on_mouse_scroll_event on_scroll_event # === on_mouse_scroll_event
+
+  # ========================================================================= #
+  # === yellow_background
+  #
+  # This method can be used to designate a light yellow background
+  # colour tone. It depends on support for CSS being available -
+  # thus, ruby-gtk2 does not work with this method.
+  # ========================================================================= #
+  def yellow_background
+    css_class('BG_light_yellow')
+  end; alias light_yellow_background    yellow_background # === light_yellow_background
+       alias light_yellowish_background yellow_background # === light_yellowish_background
+       alias yellowish_background       yellow_background # === yellowish_background
+
+  # ========================================================================= #
+  # === very_light_yellowish_background
+  #
+  # This is similar to yellow_background() defined above, but the difference
+  # will be that the yellow colour here will be very faint - even fainter
+  # than on the method defined above.
+  #
+  # This depends on CSS, so it will not work on ruby-gtk2.
+  # ========================================================================= #
+  def very_light_yellowish_background
+    css_class('BG_very_light_yellowish') 
+  end; alias yellowish_background2               very_light_yellowish_background # === yellowish_background2
+       alias background_yellow2                  very_light_yellowish_background # === background_yellow2
+       alias very_light_yellow_background_colour very_light_yellowish_background # === very_light_yellow_background_colour
+       alias very_light_yellow_background        very_light_yellowish_background # === very_light_yellow_background
+       alias BG_yellow                           very_light_yellowish_background # === very_light_yellow_background_colour
+       alias yello                               very_light_yellowish_background # === yello
+
+  # ========================================================================= #
+  # === clear_background
+  #
+  # This method will clear the background.
+  # ========================================================================= #
+  def clear_background
+    css_class('clear_background')
+  end; alias clear_border      clear_background # === clear_border
+       alias remove_background clear_background # === remove_background
+
+  # ========================================================================= #
+  # === pretty_tooltip
+  # ========================================================================= #
+  def pretty_tooltip(i)
+    if i and i.include?('&')
+      i = i.dup if i.frozen?
       # ===================================================================== #
-      # === :padding
+      # Oddly enough, ruby-gtk2 complains about this character.
+      #
+      # The warning was: "Gtk-WARNING **: Failed to set text from
+      # markup due to error parsing markup" [...] Entity did not 
+      # end with a semicolon; most likely you used an ampersand 
+      # character without intending to start an entity - escape 
+      # ampersand as &"
+      # So we do this ^^^.
       # ===================================================================== #
-      if work_on_a_copy.has_key? :padding
-        padding_to_use = work_on_a_copy[:padding]
-      end
+      i.gsub!(/&/, '&')
+    end
+    set_tooltip_markup(i)
+  end; alias pretty_tooltip= pretty_tooltip # === pretty_tooltip=
+       alias fancy_tooltip=  pretty_tooltip # === fancy_tooltip=
+       alias fancy_tooltips= pretty_tooltip # === fancy_tooltips=
+       alias hint=           pretty_tooltip # === hint=
+       alias info            pretty_tooltip # === info
+       alias popup_hint      pretty_tooltip # === popup_hint
+       alias fancy_tip       pretty_tooltip # === fancy_tip
+       alias fancy_hint      pretty_tooltip # === fancy_hint
+       alias fancy_hint=     pretty_tooltip # === fancy_hint=
+       alias set_hovertip    pretty_tooltip # === set_hovertip
+
+  # ========================================================================= #
+  # === add_or_append
+  # ========================================================================= #
+  def add_or_append(i)
+    if Gtk.do_we_use_gtk3?
+      add(i)
+    elsif Gtk.do_we_use_gtk4?
+      append(i)
     end
+  end
+
+  # ========================================================================= #
+  # === remove_css_class
+  #
+  # This method can be used to remove a particular CSS class from a 
+  # widget.
+  # ========================================================================= #
+  def remove_css_class(this_css_class)
+    context = style_context
+    context.remove_class(this_css_class)
+  end; alias remove_this_css_class remove_css_class # === remove_this_css_class
+       alias remove_CSS_class      remove_css_class # === remove_CSS_class
+
+  if Gtk.do_we_use_gtk4?
     # ======================================================================= #
-    # === Handle ruby-gtk2 first
+    # === set_border_width
     # ======================================================================= #
-    if ::Gtk.use_gtk2?
-      begin
-        pack_start(
-          widget,
-          false,
-          false,
-          padding_to_use
-        )
-      rescue ArgumentError => error
-        puts 'An error happened in '+__FILE__+' (method: pack_without_expand())'
-        pp error
-        puts 'caller() was:'
-        pp caller()
-        exit
-      end
-    else # else handle ruby-gtk3
-      pack_start(
-        widget,
-        expand:  false,
-        fill:    false,
-        padding: padding_to_use
-      )
+    def set_border_width(i = 5)
+      css_class("pad#{i}px")
     end
-  end; alias pack_minimal pack_without_expand # === pack_minimal
-       alias minimal      pack_without_expand # === minimal
-       alias append       pack_without_expand # === append
+  end
 
-  require 'gtk_paradise/fonts/fonts.rb'
   # ========================================================================= #
-  # === use_this_font=
+  # === on_hover_steelblue
   # ========================================================================= #
-  def use_this_font=(
-      i = 'EmojiOne Color 22'
-    )
-    if i.is_a?(String) or i.is_a?(Symbol)
-      i = ::Gtk.expand_this_font(i)
-      i = Pango::FontDescription.new(i.to_s)
-    end
-    if ::Gtk.use_gtk2?
-      modify_font(i)
-    else
-      override_font(i)
-    end
-  end; alias use_this_font        use_this_font= # === use_this_font
-       alias set_use_this_font    use_this_font= # === set_use_this_font
-       alias try_to_use_this_font use_this_font= # === try_to_use_this_font
-       alias fonty                use_this_font= # === fonty
+  def on_hover_steelblue
+    on_hover(__method__)
+  end
 
   # ========================================================================= #
-  # === align_to_right
+  # === limegreen
   # ========================================================================= #
-  def align_to_right
-    set_halign(:end) # halign=Gtk.Align.END
+  def limegreen
+    on_hover(__method__)
+  end; alias mediumaquamarine limegreen # === mediumaquamarine
+       alias khaki            limegreen # === khaki
+
+  # ========================================================================= #
+  # === lightgreen
+  # ========================================================================= #
+  def lightgreen
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === paleturquoise
+  # ========================================================================= #
+  def paleturquoise
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === lightblue
+  # ========================================================================= #
+  def lightblue
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === skyblue
+  # ========================================================================= #
+  def skyblue
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === lightpink
+  # ========================================================================= #
+  def lightpink
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === darkmagenta
+  # ========================================================================= #
+  def darkmagenta
+    on_hover(__method__)
+  end
+
+  # ========================================================================= #
+  # === tomato
+  # ========================================================================= #
+  def tomato
+    add_css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === darkblue
+  # ========================================================================= #
+  def darkblue
+    add_css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === darkgreen
+  # ========================================================================= #
+  def darkgreen
+    add_css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === khaki_background
+  # ========================================================================= #
+  def khaki_background
+    css_class('BG_khaki')
+  end
+
+  # ========================================================================= #
+  # === light_green_background
+  # ========================================================================= #
+  def light_green_background
+    css_class('BG_light_green')
+  end; alias lightgreen_background light_green_background # === lightgreen_background
+
+  # ========================================================================= #
+  # === azure_background
+  # ========================================================================= #
+  def azure_background
+    css_class('BG_azure')
+  end; alias bg_azure azure_background # === bg_azure
+
+  # ========================================================================= #
+  # === steelblue
+  # ========================================================================= #
+  def steelblue
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === royalblue
+  # ========================================================================= #
+  def royalblue
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === slateblue
+  # ========================================================================= #
+  def slateblue
+    css_class(__method__.to_s)
   end
 
   # ========================================================================= #
-  # === align_to_center
+  # === lightskyblue_background
+  # ========================================================================= #
+  def lightskyblue_background
+    css_class('BG_lightskyblue')
+  end; alias bg_lightblue          lightskyblue_background # === bg_lightblue
+       alias lightblue_background  lightskyblue_background # === lightblue_background
+       alias light_blue_background lightskyblue_background # === light_blue_background
+
+  # ========================================================================= #
+  # === light_pink_background
+  # ========================================================================= #
+  def light_pink_background
+    css_class('BG_lightpink')
+  end; alias lightpink_background light_pink_background # === lightpink_background
+
+  # ========================================================================= #
+  # === modify_to_this_font
+  #
+  # This will modify the font for that particular widget at hand.
+  #
+  # Usage example:
+  #
+  #   modify_this_font(:liberation)
+  #
+  # ========================================================================= #
+  def modify_to_this_font(
+      this_font = 'Sans 20'
+    )
+    this_font = ::Gtk.expand_this_font(this_font)
+    _ = Pango::FontDescription.new(this_font)
+    # if Gtk.are_we_using_gtk2?
+    #  modify_font(_)
+    #else
+      override_font(_)
+    #end
+  end; alias modify_this_font modify_to_this_font # === modify_this_font
+       alias font_to_use=     modify_to_this_font # === font_to_use=
+
+  # ========================================================================= #
+  # === complex_font
+  # ========================================================================= #
+  def complex_font(
+      this_font = 'Calibre 32'
+    )
+    this_font = ::Gtk.expand_this_font(this_font)
+    _ = Pango::FontDescription.new(this_font)
+    override_font(_)
+  end
+
+  # ========================================================================= #
+  # === bsteelblue1
+  # ========================================================================= #
+  def bsteelblue1
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === make_bold_font
+  #
+  # This makes use of CSS rules, so it will not work for ruby-gtk2 by
+  # default.
+  # ========================================================================= #
+  def make_bold_font
+    css_class 'bold_font'
+  end
+
+  # ========================================================================= #
+  # === bnavy1
+  #
+  # This will also have various aliases.
+  # ========================================================================= #
+  def bnavy1
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === bindigo1
+  # ========================================================================= #
+  def bindigo1
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === bdarkorchid1
+  # ========================================================================= #
+  def bdarkorchid1
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === blightgreen1
+  # ========================================================================= #
+  def blightgreen1
+    css_class(__method__.to_s)
+  end
+
+  # ========================================================================= #
+  # === bblack1px
+  # ========================================================================= #
+  def bblack1px
+    css_class('bblack1')
+  end; alias bblack1 bblack1px # === bblack1
+
+  # ========================================================================= #
+  # === bblack2px
+  # ========================================================================= #
+  def bblack2px
+    css_class('bblack2')
+  end; alias bblack2 bblack2px # === bblack2
+
+  # ========================================================================= #
+  # === bblack3px
+  # ========================================================================= #
+  def bblack3px
+    css_class('bblack3')
+  end; alias bblack3 bblack3px # === bblack3
+
+  # ========================================================================= #
+  # === bblack4px
+  # ========================================================================= #
+  def bblack4px
+    css_class('bblack4')
+  end; alias bblack4 bblack4px # === bblack4
+
+  # ========================================================================= #
+  # === bblack5px
+  # ========================================================================= #
+  def bblack5px
+    css_class('bblack5')
+  end; alias bblack5 bblack5px # === bblack5
+
+  # ========================================================================= #
+  # === hcenter
+  #
+  # The name "hcenter" is an abbreviation for "horizontal center" position.
+  #
+  # This variant has been confirmed to work for the gtk-hbox widget, in
+  # July 2022.
+  # ========================================================================= #
+  def hcenter(
+      i = :center
+    )
+    case i
+    # ======================================================================= #
+    # === :center
+    # ======================================================================= #
+    when :center
+      i = ::Gtk::Align::CENTER
+    end
+    set_halign(i) # Or Gtk::Align::CENTER
+  end; alias horizontal_center      hcenter # === horizontal_center
+       alias halign_center          hcenter # === halign_center
+       alias hjustify               hcenter # === hjustify
+       alias center_this_widget     hcenter # === center_this_widget
+       alias clever_center          hcenter # === clever_center
+       alias center_into_the_middle hcenter # === center_into_the_middle
+       alias centered_container     hcenter # === centered_container
+
+  require 'gtk_paradise/fonts/fonts.rb'
+  # ========================================================================= #
+  # === use_this_font=
+  # ========================================================================= #
+  def use_this_font=(
+      i = 'EmojiOne Color 22'
+    )
+    if i.is_a?(String) or i.is_a?(Symbol)
+      i = ::Gtk.expand_this_font(i)
+      i = Pango::FontDescription.new(i.to_s)
+    end
+    if ::Gtk.use_gtk2?
+      modify_font(i)
+    elsif ::Gtk.use_gtk3?
+      override_font(i)
+    elsif ::Gtk.use_gtk4?
+      puts 'override_font() has not yet been ported to ruby-gtk4  '\
+           'and the gtk_paradise gem.'
+    end
+  end; alias use_this_font        use_this_font= # === use_this_font
+       alias set_use_this_font    use_this_font= # === set_use_this_font
+       alias try_to_use_this_font use_this_font= # === try_to_use_this_font
+       alias fonty                use_this_font= # === fonty
+       alias font=                use_this_font= # === font=
+
+  # ========================================================================= #
+  # === do_focus
+  #
+  # This variant is a slightly nicer-looking variant compared to the
+  # .set_focus(true) variant.
+  # ========================================================================= #
+  def do_focus
+    set_focus(true)
+  end; alias do_focus_on_it do_focus # === do_focus_on_it
+       alias do_select      do_focus # === do_select
+
+  # ========================================================================= #
+  # === deselect
+  #
+  # Note that this method will NOT work on every gtk-widget; the primary
+  # use case has been for gtk-entry, but I figured that other gtk-widgets
+  # may benefit from this method as well, so it was added onto class
+  # Gtk::Widget.
+  # ========================================================================= #
+  def deselect
+    select_region(0, 0)
+  end; alias deselect_everything deselect # === deselect_everything
+       alias defocus             deselect # === defocus
+
+  # ========================================================================= #
+  # === remove_widgets
+  #
+  # This method will remove all child-widgets from a container.
+  # ========================================================================= #
+  def remove_widgets
+    children.each {|this_child_widget|
+      remove(this_child_widget)
+    }
+  end
+
+  # ========================================================================= #
+  # === set_background_colour
+  #
+  # This method can be used to designate a specific background colour
+  # for a Gtk::Button.
+  # ========================================================================= #
+  def set_background_colour(
+      i = :whitesmoke
+    )
+    if ::Gtk.use_gtk2?
+      modify_bg(
+        ::Gtk::STATE_NORMAL,
+        Gdk::Color.parse(i.to_s)
+      )
+    else
+      if i.is_a?(String) and i.start_with?('#') # Assume a hex-code in this event.
+        unless Object.const_defined?(:Colours)
+          begin
+            require 'colours'
+          rescue LoadError; end
+        end
+        i = ::Colours.convert_hex_code_to_RGBA_array(i)
+        i = Gdk::RGBA.new(*i)
+      elsif i.is_a? Gdk::Color
+        # =================================================================== #
+        # Convert it into RGB values next.
+        # =================================================================== #
+        array = [
+          (i.red   * 100.0 / 65535) / 100,
+          (i.green * 100.0 / 65535) / 100,
+          (i.blue  * 100.0 / 65535) / 100,
+          1.0
+        ]
+        i = Gdk::RGBA.new(*array)
+      end
+      override_background_color(:normal, i)
+    end
+    @background_colour = i
+  end; alias set_background_color        set_background_colour # === set_background_color
+       alias bg_colour                   set_background_colour # === bg_colour
+       alias bg_colour=                  set_background_colour # === bg_colour=
+       alias bg_color                    set_background_colour # === bg_colour
+       alias background                  set_background_colour # === background
+       alias background=                 set_background_colour # === background=
+       alias background_color            set_background_colour # === background_color
+       alias background_colour           set_background_colour # === background_colour
+       alias background_colour=          set_background_colour # === background_colour=
+       alias background_color=           set_background_colour # === background_color=
+       alias set_background              set_background_colour # === set_background
+       alias change_background_to        set_background_colour # === change_background_to
+       alias change_background_colour_to set_background_colour # === change_background_colour_to
+       alias change_background_color_to  set_background_colour # === change_background_color_to
+
+  # ========================================================================= #
+  # === on_hover
+  #
+  # This method can be used to modify the colour of a given widget, on
+  # a "on-hover" event.
+  #
+  # Usage example:
+  #
+  #   on_hover(:lightblue)
+  #
+  # ========================================================================= #
+  def on_hover(
+      this_colour = :lightgreen, &block
+    )
+    modify_background(
+      :on_hover, this_colour, &block
+    )
+  end; alias on_hover_colour on_hover # === on_hover_colour
+
+  # ========================================================================= #
+  # === modify_background
+  #
+  # This method will set the background colour for a widget in a
+  # particular state. All other style values are left untouched.
+  # See also Gtk::Widget#modify_style.
+  #
+  # The arguments are:
+  #
+  #   state:  the state(GtkStateType) for which to set the 
+  #           background color.
+  #
+  #   colour: the Gdk::Color to assign (does not need to 
+  #           be allocated).
+  #
+  # ========================================================================= #
+  def modify_background(
+      state,
+      colour = nil,
+      &block
+    )
+    # ======================================================================= #
+    # === Handle Hashes first, for the variable state
+    # ======================================================================= #
+    if colour.is_a? Hash
+      if colour.has_key? :colour
+        colour = colour.delete(:colour)
+      end
+    end
+    case state
+    # ======================================================================= #
+    # === :normal
+    #
+    # This entry point is the default entry point.
+    # ======================================================================= #
+    when :normal,
+         :default
+      if Gtk.do_we_use_gtk2?
+        state = ::Gtk::STATE_NORMAL
+      else
+        state = :normal
+      end
+    # ======================================================================= #
+    # === :active
+    # ======================================================================= #
+    when :active
+      if Gtk.do_we_use_gtk2?
+        state = ::Gtk::STATE_ACTIVE
+      else
+        state = :active
+      end
+    # ======================================================================= #
+    # === :prelight
+    # ======================================================================= #
+    when :prelight,
+         :hover,
+         :on_hover
+      if Gtk.do_we_use_gtk2?
+        state = ::Gtk::STATE_PRELIGHT
+      else
+        state = :prelight
+      end
+    end
+    # ======================================================================= #
+    # === Handle blocks next
+    # ======================================================================= #
+    if block_given?
+      yielded = yield
+      if yielded.is_a?(Symbol)
+        colour = yielded
+      end
+    end
+    if colour.is_a? Symbol
+      # ===================================================================== #
+      # Convert it into a Gtk::Colours representation. We could check if it
+      # is a valid html-colour, but for the time being we do not do this.
+      # ===================================================================== #
+      if Gtk.do_we_use_gtk2?
+        colour = ::Gtk.colour_parse(colour)
+        # =================================================================== #
+        # gtk3 now uses RGBA rather than Gdk.parse().
+        # RGBA stands for red, green, blue and alpha.
+        # The values go from 0.0 to 1.0. However had, it seems as if
+        # ruby-gtk3 also supports HTML colours directly, so no need
+        # to convert them.
+        # =================================================================== #
+      end
+    end
+    if Gtk.do_we_use_gtk2?
+      modify_bg(state, colour) # Delegate to the original method here.
+    # ======================================================================= #
+    # === Handle ruby-gtk4 next
+    # ======================================================================= #
+    elsif Gtk.do_we_use_gtk4?
+      css_class("hover_effect_#{colour}")
+    else # else assume ruby-gtk3 here.
+      override_background_color(state, colour)
+    end
+  end
+
+  # ========================================================================= #
+  # === enable_scroll_events
+  #
+  # This method will enable scroll-events for a particular widget, such
+  # as a Gtk::Entry instance.
+  #
+  # Note that set_events() is less flexible as it can not be used on
+  # widgets that have already been realized.
+  # ========================================================================= #
+  def enable_scroll_events
+    if ::Gtk.use_gtk2? # assume ruby-gtk2 here.
+      add_events(Gdk::EventMask::SCROLL_MASK)
+    else
+      add_events(:scroll_mask)
+    end
+  end; alias add_scroll_event enable_scroll_events # === add_scroll_event
+
+  # ========================================================================= #
+  # === set_scroll_event
+  # ========================================================================= #
+  def set_scroll_event
+    set_events(Gdk::EventMask::SCROLL_MASK) # Enable scroll-events here.
+  end
+
+  # ========================================================================= #
+  # === rounded_border
+  #
+  # This method can be used to "assign" a rounded border to a gtk-widget.
+  #
+  # This functionality depends on CSS rules.
+  #
+  # Usage examples:
+  #
+  #   .rounded_border('12px')
+  #   .rounded_border('12px', :default)
+  #   .rounded_border('12px', :default, '10px solid darkgreen')
+  #
+  # ========================================================================= #
+  def rounded_border(
+      i                 = 12,
+      use_this_CSS_name = :default,
+      regular_border    = '1px solid steelblue' # This has to be supplied by the user.
+    )
+    case use_this_CSS_name
+    when :default
+      use_this_CSS_name = '.border'
+    end
+    if use_this_CSS_name.frozen?
+      use_this_CSS_name = use_this_CSS_name.dup
+    end
+    css_rules_to_apply = "\n#{use_this_CSS_name}#{i.to_s.delete('px')} {\n".dup
+    css_rules_to_apply << '  border: '+regular_border.to_s.delete(';')+';'+"\n"
+    css_rules_to_apply << '  border-radius: '+i.to_s.delete('px')+'px;'+"\n"
+    css_rules_to_apply << "}\n"
+    ::Gtk.add_to_the_toplevel_CSS_string(css_rules_to_apply)
+    _ = "#{use_this_CSS_name}#{i.to_s.delete('px')}".delete('.')
+    css_class(_)
+  end
+
+  # ========================================================================= #
+  # === add_hspacer
+  # ========================================================================= #
+  def add_hspacer
+    add(horizontal_line)
+  end; alias add_horizontal_spacer add_hspacer # === add_horizontal_spacer
+
+  # ========================================================================= #
+  # === horizontal_line
+  # ========================================================================= #
+  def horizontal_line
+    return ::Gtk.horizontal_spacer
+  end
+
+  # ========================================================================= #
+  # === align_to_the_middle
+  # ========================================================================= #
+  def align_to_the_middle
+    if respond_to? :set_alignment # Must safeguard it.
+      set_alignment(0.5)
+    end
+  end
+
+  # ========================================================================= #
+  # === set_markify_text
+  #
+  # This method combines two different methods in one, aka .set_text()
+  # and then a call to .do_markify().
+  # ========================================================================= #
+  def set_markify_text(i)
+    set_text(i.to_s)
+    do_markify
+  end
+
+  # ========================================================================= #
+  # === align_into_the_center
+  # ========================================================================= #
+  def align_into_the_center
+    set_halign(::Gtk::Align::CENTER)
+  end
+
+  # ========================================================================= #
+  # === add_button_press_events
+  # ========================================================================= #
+  def add_button_press_events
+    if ::Gtk.use_gtk2?
+      add_events(Gdk::Event::BUTTON_PRESS_MASK)
+    elsif ::Gtk.use_gtk3? # else for ruby-gtk3
+      add_events(Gdk::EventMask::BUTTON_PRESS_MASK)
+    elsif ::Gtk.use_gtk4?
+      e '.add_events() has to be changed for ruby-gtk4.'
+    end
+  end; alias enable_context_menu_on_button_click_events add_button_press_events # === enable_context_menu_on_button_click_events
+       alias enable_context_menu                        add_button_press_events # === enable_context_menu
+
+  # ========================================================================= #
+  # === add_css_class
+  #
+  # This method can be used to quickly add a CSS class to a particular
+  # gtk-widget.
+  #
+  # Example how to use it via the gtk_paradise gem:
+  #
+  #   label = gtk_label('This is a test')
+  #   label.add_css_class('BG_black')
+  #   label.add_css_class('yellow')
+  #   label.css_class('bblack2')
+  #
+  # ========================================================================= #
+  def add_css_class(
+      i
+    )
+    if respond_to? :style_context
+      i = i.to_s if i.is_a? Symbol
+      add_to_the_CSS_style_context(i)
+      # ===================================================================== #
+      # Always register it after it was added.
+      # No, this can not be done - we need to add CSS rules elsewhere.
+      # ===================================================================== #
+      # ::Gtk.append_these_css_rules(i)
+    end
+  end; alias set_class          add_css_class # === set_class
+       alias set_css_class      add_css_class # === set_css_class
+       alias css_class          add_css_class # === css_class
+       alias css                add_css_class # === css
+       alias add_this_css_class add_css_class # === add_this_css_class
+       alias add_css            add_css_class # === add_this_css_class
+       alias add_class          add_css_class # === add_class
+
+  # ========================================================================= #
+  # === add_to_the_CSS_style_context
+  #
+  # This method must be guaranteed to work on style_context. Thus, it can
+  # only work properly if style_context() actually returns something useful.
+  # ========================================================================= #
+  def add_to_the_CSS_style_context(i)
+    style_context.add_class(i)
+  end
+
+  # ========================================================================= #
+  # === use_these_css_classes
+  #
+  # This method allows for some convenience in regards to using CSS
+  # classes. You can pass several CSS classes into this method.
+  #
+  # It is important to separate these CSS classes via a
+  # ' ' character specifically.
+  #
+  # Specific usage example:
+  #
+  #   @frame.use_these_css_classes('no_box_shadow bblack2 BG_black pad0px mar0px')
+  #
+  # ========================================================================= #
+  def use_these_css_classes(i)
+    # ======================================================================= #
+    # The input has to have a ' ' character, if this method is to work.
+    # ======================================================================= #
+    if i and i.include?(' ')
+      i.split(' ').each {|this_css_class|
+        css_class(this_css_class)
+      }
+    else
+      e 'The given input (`'+i.to_s+'`) does not have a " " character.'
+    end
+  end; alias use_these_CSS_classes use_these_css_classes # === use_these_CSS_classes
+       alias css_classes           use_these_css_classes # === css_classes
+
+  # ========================================================================= #
+  # === on_click_event
   #
-  # This method will align towards the center. Note that not all widgets
-  # respond to this naturally; it is best to use this for gtk-entry
-  # widgets and perhaps gtk-label and similar widgets.
-  # ========================================================================= #
-  def align_to_center
-    self.xalign = 0.5
-  end; alias align_to_the_center   align_to_center # === align_to_the_center
-       alias center                align_to_center # === center
-       alias do_center             align_to_center # === do_center
-       alias to_center             align_to_center # === to_center
-       alias to_the_middle         align_to_center # === to_the_middle
-       alias align_into_the_middle align_to_center # === align_into_the_middle
-       alias center_align          align_to_center # === center_align
-
-  # ========================================================================= #
-  # === enable_scroll_events
+  # This is a shortcut to respond to an on-click event, which is the
+  # left mouse click normally.
   #
-  # This method will enable scroll-events for a particular widget, such
-  # as a Gtk::Entry instance.
+  # You can enable this in your code by doing:
+  #
+  #   .on_click_event { :highlight_text }
+  #   .on_click_event { :deselect_text }
   #
-  # Note that set_events() is less flexible as it can not be used on
-  # widgets that have already been realized.
   # ========================================================================= #
-  def enable_scroll_events
-    if ::Gtk.use_gtk2? # assume ruby-gtk2 here.
-      add_events(Gdk::EventMask::SCROLL_MASK)
-    else
-      add_events(:scroll_mask)
+  def on_click_event
+    if block_given?
+      yielded = yield
+      case yielded
+      # ===================================================================== #
+      # === :highlight_text
+      # ===================================================================== #
+      when :highlight_text,
+           :select_everything,
+           :select_text
+        on_button_press_event { |widget, event|
+          set_focus(true)
+          select_region(0, -1)
+        }
+      # ===================================================================== #
+      # === :deselect_text
+      #
+      # This will deselect any selection on a gtk-entry. It is not as
+      # useful as the :highlight_text functionality, but I wanted to
+      # provide both, simply to quickly show how it is done.
+      # ===================================================================== #
+      when :deselect_text
+        on_button_press_event { |widget, event|
+          set_focus(true)
+          select_region(0, 0)
+        }
+      end 
     end
-  end; alias add_scroll_event enable_scroll_events # === add_scroll_event
+  end
 
   # ========================================================================= #
-  # === set_scroll_event
+  # === shadow_type_etched_in
   # ========================================================================= #
-  def set_scroll_event
-    set_events(Gdk::EventMask::SCROLL_MASK) # Enable scroll-events here.
+  def shadow_type_etched_in
+    set_shadow_type(::Gtk::SHADOW_ETCHED_IN)
+  end
+
+  # ========================================================================= #
+  # === align_to_right
+  # ========================================================================= #
+  def align_to_right
+    set_halign(:end) # halign=Gtk.Align.END
   end
 
   # ========================================================================= #
@@ -206,33 +968,6 @@ class Widget
        alias parse_markup enable_markup # === parse_markup
        alias markify      enable_markup # === markify
 
-  # ========================================================================= #
-  # === pretty_tooltip
-  # ========================================================================= #
-  def pretty_tooltip(i)
-    if i and i.include?('&')
-      i = i.dup if i.frozen?
-      # ===================================================================== #
-      # Oddly enough, ruby-gtk2 complains about this character.
-      # The warning was: "Gtk-WARNING **: Failed to set text from
-      # markup due to error parsing markup" [...] Entity did not 
-      # end with a semicolon; most likely you used an ampersand 
-      # character without intending to start an entity - escape 
-      # ampersand as &amp;"
-      # So we do this ^^^.
-      # ===================================================================== #
-      i.gsub!(/&/, '&amp;')
-    end
-    set_tooltip_markup(i)
-  end; alias pretty_tooltip= pretty_tooltip # === pretty_tooltip=
-       alias fancy_tooltip=  pretty_tooltip # === fancy_tooltip=
-       alias fancy_tooltips= pretty_tooltip # === fancy_tooltips=
-       alias hint=           pretty_tooltip # === hint=
-       alias info            pretty_tooltip # === info
-       alias popup_hint      pretty_tooltip # === popup_hint
-       alias fancy_tip       pretty_tooltip # === fancy_tip
-       alias set_hovertip    pretty_tooltip # === set_hovertip
-
   # ========================================================================= #
   # === enable_all_events
   #
@@ -255,17 +990,6 @@ class Widget
        alias enable_enter_event     enable_all_events # === enable_enter_event
        alias respond_to_enter_event enable_all_events # === respond_to_enter_event
 
-  # ========================================================================= #
-  # === on_scroll_event
-  #
-  # This is the event that occurs when the mouse-scroll-wheel is clicked.
-  # ========================================================================= #
-  def on_scroll_event(&block)
-    signal_connect(:scroll_event, &block)
-  end; alias on_scrolled           on_scroll_event # === on_scrolled
-       alias on_scrolling          on_scroll_event # === on_scrolling
-       alias on_mouse_scroll_event on_scroll_event # === on_mouse_scroll_event
-
   # ========================================================================= #
   # === on_mouse_button_clicked
   # ========================================================================= #
@@ -354,25 +1078,6 @@ class Widget
   end; alias on_right_mouse_button_click       on_right_mouse_button_clicked # === on_right_mouse_button_click
        alias on_right_mouse_button_click_event on_right_mouse_button_clicked # === on_right_mouse_button_click_event
 
-  # ========================================================================= #
-  # === on_hover
-  #
-  # This method can be used to modify the colour of a given widget, on
-  # a "on-hover" event.
-  #
-  # Usage example:
-  #
-  #   on_hover(:lightblue)
-  #
-  # ========================================================================= #
-  def on_hover(
-      this_colour = :lightgreen, &block
-    )
-    modify_background(
-      :on_hover, this_colour, &block
-    )
-  end; alias on_hover_colour on_hover # === on_hover_colour
-
   # ========================================================================= #
   # === padding=
   # ========================================================================= #
@@ -380,39 +1085,6 @@ class Widget
     set_border_width(i)
   end; alias padding padding= # === padding
 
-  # ========================================================================= #
-  # === hcenter
-  #
-  # The name "hcenter" is an abbreviation for "horizontal center" position.
-  # ========================================================================= #
-  def hcenter(
-      i = :center
-    )
-    case i
-    when :center
-      i = ::Gtk::Align::CENTER
-    end
-    set_halign(i) # Or Gtk::Align::CENTER
-  end; alias horizontal_center hcenter # === horizontal_center
-       alias halign_center     hcenter # === halign_center
-       alias hjustify          hcenter # === hjustify
-
-  # ========================================================================= #
-  # === add_hspacer
-  # ========================================================================= #
-  def add_hspacer
-    add(::Gtk.horizontal_spacer)
-  end; alias add_horizontal_spacer add_hspacer # === add_horizontal_spacer
-
-  # ========================================================================= #
-  # === align_to_the_middle
-  # ========================================================================= #
-  def align_to_the_middle
-    if respond_to? :set_alignment # Must safeguard it.
-      set_alignment(0.5)
-    end
-  end
-
   # ========================================================================= #
   # === connect_to
   #
@@ -439,17 +1111,6 @@ class Widget
     signal_connect(:changed, &block)
   end; alias on_changed_event on_changed # === on_changed_event
 
-  # ========================================================================= #
-  # === do_focus
-  #
-  # This variant is a slightly nicer-looking variant compared to the
-  # .set_focus(true) variant.
-  # ========================================================================= #
-  def do_focus
-    set_focus(true)
-  end; alias do_focus_on_it do_focus # === do_focus_on_it
-       alias do_select      do_focus # === do_select
-
   # ========================================================================= #
   # === on_switch_page
   #
@@ -461,30 +1122,11 @@ class Widget
        alias on_switched_tab on_switch_page # === on_switched_tab
 
   # ========================================================================= #
-  # === use_these_css_classes
-  #
-  # This method allows for some convenience in regards to using CSS
-  # classes. You can pass several CSS classes into this method.
-  #
-  # It is important to separate these CSS classes via a
-  # ' ' character specifically.
-  #
-  # Specific usage example:
-  #
-  #   @frame.use_these_css_classes('no_box_shadow bblack2 BG_black pad0px mar0px')
-  #
+  # === pad0px
   # ========================================================================= #
-  def use_these_css_classes(i)
-    # The input has to have a ' ' character, if this method is to work.
-    if i and i.include?(' ')
-      i.split(' ').each {|this_css_class|
-        css_class(this_css_class)
-      }
-    else
-      e 'The given input ('+i.to_s+') does not have a " " character.'
-    end
-  end; alias use_these_CSS_classes use_these_css_classes # === use_these_CSS_classes
-       alias css_classes           use_these_css_classes # === css_classes
+  def pad0px
+    css_class('pad0px')
+  end
 
   # ========================================================================= #
   # === pad1px
@@ -550,80 +1192,150 @@ class Widget
   end
 
   # ========================================================================= #
-  # === pad10px
+  # === pad10px
+  # ========================================================================= #
+  def pad10px
+    css_class('pad10px')
+  end
+
+  # ========================================================================= #
+  # === pad11px
+  # ========================================================================= #
+  def pad11px
+    css_class('pad11px')
+  end
+
+  # ========================================================================= #
+  # === pad12px
+  # ========================================================================= #
+  def pad12px
+    css_class('pad12px')
+  end
+
+  # ========================================================================= #
+  # === pad13px
+  # ========================================================================= #
+  def pad13px
+    css_class('pad13px')
+  end
+
+  # ========================================================================= #
+  # === pad14px
+  # ========================================================================= #
+  def pad14px
+    css_class('pad14px')
+  end
+
+  # ========================================================================= #
+  # === pad15px
+  # ========================================================================= #
+  def pad15px
+    css_class('pad15px')
+  end
+
+  # ========================================================================= #
+  # === pad16px
+  # ========================================================================= #
+  def pad16px
+    css_class('pad16px')
+  end
+
+  # ========================================================================= #
+  # === pad17px
+  # ========================================================================= #
+  def pad17px
+    css_class('pad17px')
+  end
+
+  # ========================================================================= #
+  # === pad18px
+  # ========================================================================= #
+  def pad18px
+    css_class('pad18px')
+  end
+
+  # ========================================================================= #
+  # === pad19px
+  # ========================================================================= #
+  def pad19px
+    css_class('pad19px')
+  end
+
+  # ========================================================================= #
+  # === pad20px
   # ========================================================================= #
-  def pad10px
-    css_class('pad10px')
+  def pad20px
+    css_class('pad20px')
   end
 
   # ========================================================================= #
-  # === pad11px
+  # === mar1px
   # ========================================================================= #
-  def pad11px
-    css_class('pad11px')
+  def mar1px
+    css_class('mar1px')
   end
 
   # ========================================================================= #
-  # === pad12px
+  # === mar2px
   # ========================================================================= #
-  def pad12px
-    css_class('pad12px')
+  def mar2px
+    css_class('mar2px')
   end
 
   # ========================================================================= #
-  # === pad13px
+  # === mar3px
   # ========================================================================= #
-  def pad13px
-    css_class('pad13px')
+  def mar3px
+    css_class('mar3px')
   end
 
   # ========================================================================= #
-  # === pad14px
+  # === mar4px
   # ========================================================================= #
-  def pad14px
-    css_class('pad14px')
+  def mar4px
+    css_class('mar4px')
   end
 
   # ========================================================================= #
-  # === pad15px
+  # === mar5px
   # ========================================================================= #
-  def pad15px
-    css_class('pad15px')
+  def mar5px
+    css_class('mar5px')
   end
 
   # ========================================================================= #
-  # === pad16px
+  # === mar6px
   # ========================================================================= #
-  def pad16px
-    css_class('pad16px')
+  def mar6px
+    css_class('mar6px')
   end
 
   # ========================================================================= #
-  # === pad17px
+  # === mar7px
   # ========================================================================= #
-  def pad17px
-    css_class('pad17px')
+  def mar7px
+    css_class('mar7px')
   end
 
   # ========================================================================= #
-  # === pad18px
+  # === mar8px
   # ========================================================================= #
-  def pad18px
-    css_class('pad18px')
+  def mar8px
+    css_class('mar8px')
   end
 
   # ========================================================================= #
-  # === pad19px
+  # === mar9px
   # ========================================================================= #
-  def pad19px
-    css_class('pad19px')
+  def mar9px
+    css_class('mar9px')
   end
 
   # ========================================================================= #
-  # === pad20px
+  # === mar10px
   # ========================================================================= #
-  def pad20px
-    css_class('pad20px')
+  def mar10px
+    css_class('mar10px')
   end
 
   require 'gtk_paradise/colours/parse.rb'
@@ -745,52 +1457,6 @@ class Widget
     end
   end
 
-  # ========================================================================= #
-  # === bblack1px
-  # ========================================================================= #
-  def bblack1px
-    css_class('bblack1')
-  end; alias bblack1 bblack1px # === bblack1
-
-  # ========================================================================= #
-  # === bblack2px
-  # ========================================================================= #
-  def bblack2px
-    css_class('bblack2')
-  end; alias bblack2 bblack2px # === bblack2
-
-  # ========================================================================= #
-  # === bblack3px
-  # ========================================================================= #
-  def bblack3px
-    css_class('bblack3')
-  end; alias bblack3 bblack3px # === bblack3
-
-  # ========================================================================= #
-  # === bblack4px
-  # ========================================================================= #
-  def bblack4px
-    css_class('bblack4')
-  end; alias bblack4 bblack4px # === bblack4
-
-  # ========================================================================= #
-  # === bblack5px
-  # ========================================================================= #
-  def bblack5px
-    css_class('bblack5')
-  end; alias bblack5 bblack5px # === bblack5
-
-  # ========================================================================= #
-  # === remove_css_class
-  #
-  # This method can be used to remove a particular CSS class from a 
-  # widget.
-  # ========================================================================= #
-  def remove_css_class(this_css_class)
-    context = style_context
-    context.remove_class(this_css_class)
-  end; alias remove_this_css_class remove_css_class # === remove_this_css_class
-
   # ========================================================================= #
   # === sync_connect
   #
@@ -822,6 +1488,13 @@ class Widget
     )
     if ::Gtk.use_gtk2?
       pack_start(widget, true, true, padding_to_use)
+    elsif ::Gtk.use_gtk4?
+      append(widget)
+      if padding_to_use
+        css_class(
+          'pad'+padding_to_use.to_s+'px'
+        )
+      end
     else
       pack_start(widget, expand: true, fill: true, padding: padding_to_use)
     end
@@ -868,20 +1541,6 @@ class Widget
     set_border_width(8)
   end
 
-  # ========================================================================= #
-  # === intelligent_exit
-  # ========================================================================= #
-  def intelligent_exit
-    signal_connect(:destroy) { ::Gtk.main_quit }
-  end
-
-  # ========================================================================= #
-  # === quit_on_child_exited_signal
-  # ========================================================================= #
-  def quit_on_child_exited_signal
-    signal_connect(:child_exited) { gtk_main_quit }
-  end
-
   # ========================================================================= #
   # === on_button_press_event
   # ========================================================================= #
@@ -889,48 +1548,6 @@ class Widget
     signal_connect(:button_press_event, &block)
   end
 
-  # ========================================================================= #
-  # === on_click_event
-  #
-  # This is a shortcut to respond to an on-click event, which is the
-  # left mouse click normally.
-  #
-  # You can enable this in your code by doing:
-  #
-  #   .on_click_event { :highlight_text }
-  #   .on_click_event { :deselect_text }
-  #
-  # ========================================================================= #
-  def on_click_event
-    if block_given?
-      yielded = yield
-      case yielded
-      # ===================================================================== #
-      # === :highlight_text
-      # ===================================================================== #
-      when :highlight_text,
-           :select_everything,
-           :select_text
-        on_button_press_event { |widget, event|
-          set_focus(true)
-          select_region(0, -1)
-        }
-      # ===================================================================== #
-      # === :deselect_text
-      #
-      # This will deselect any selection on a gtk-entry. It is not as
-      # useful as the :highlight_text functionality, but I wanted to
-      # provide both, simply to quickly show how it is done.
-      # ===================================================================== #
-      when :deselect_text
-        on_button_press_event { |widget, event|
-          set_focus(true)
-          select_region(0, 0)
-        }
-      end 
-    end
-  end
-
   # ========================================================================= #
   # === on_key_pressed
   #
@@ -952,61 +1569,6 @@ class Widget
        alias on_enter_key_clicked                   on_key_pressed # === on_enter_key_clicked
        alias on_the_enter_key_was_pressed           on_key_pressed # === on_the_enter_key_was_pressed
 
-  # ========================================================================= #
-  # === set_background_colour
-  #
-  # This method can be used to designate a specific background colour
-  # for a Gtk::Button.
-  # ========================================================================= #
-  def set_background_colour(
-      i = :whitesmoke
-    )
-    if ::Gtk.use_gtk2?
-      modify_bg(
-        ::Gtk::STATE_NORMAL,
-        Gdk::Color.parse(i.to_s)
-      )
-    else
-      if i.is_a? Gdk::Color
-        # =================================================================== #
-        # Convert it into RGB values next.
-        # =================================================================== #
-        array = [
-          (i.red   * 100.0 / 65535) / 100,
-          (i.green * 100.0 / 65535) / 100,
-          (i.blue  * 100.0 / 65535) / 100,
-          1.0
-        ]
-        i = Gdk::RGBA.new(*array)
-      end
-      override_background_color(:normal, i)
-    end
-    @background_colour = i
-  end; alias set_background_color        set_background_colour # === set_background_color
-       alias bg_colour                   set_background_colour # === bg_colour
-       alias bg_colour=                  set_background_colour # === bg_colour=
-       alias bg_color                    set_background_colour # === bg_colour
-       alias background                  set_background_colour # === background
-       alias background=                 set_background_colour # === background=
-       alias background_color            set_background_colour # === background_color
-       alias background_colour           set_background_colour # === background_colour
-       alias background_colour=          set_background_colour # === background_colour=
-       alias background_color=           set_background_colour # === background_color=
-       alias set_background              set_background_colour # === set_background
-       alias change_background_to        set_background_colour # === change_background_to
-       alias change_background_colour_to set_background_colour # === change_background_colour_to
-       alias change_background_color_to  set_background_colour # === change_background_color_to
-
-  # ========================================================================= #
-  # === clear_background
-  #
-  # This method will clear the border.
-  # ========================================================================= #
-  def clear_background
-    css_class('clear_background')
-  end; alias clear_border      clear_background # === clear_border
-       alias remove_background clear_background # === remove_background
-
   # ========================================================================= #
   # === do_focus
   # ========================================================================= #
@@ -1015,85 +1577,45 @@ class Widget
   end
 
   # ========================================================================= #
-  # === background_colour?
-  # ========================================================================= #
-  def background_colour?
-    return @background_colour
-  end
-
-  # ========================================================================= #
-  # === simple_markup
-  # ========================================================================= #
-  def simple_markup(*i)
-    _ = ''.dup
-    i.flatten.each_slice(2).each {|text_to_display, colour_to_use|
-      if colour_to_use
-        _ << '<span weight="bold" foreground="'+colour_to_use.to_s+'">'+
-             text_to_display.to_s+'</span>'
-      else
-        _ << text_to_display.to_s
-      end
-    }
-    set_markup(_)
-  end
-
-  # ========================================================================= #
-  # === focus_in_event
-  # ========================================================================= #
-  def focus_in_event(&block)
-    signal_connect(:focus_in_event, &block)
-  end; alias on_focus_in_event focus_in_event # === on_focus_in_event
-
-  # ========================================================================= #
-  # === add_button_press_events
-  # ========================================================================= #
-  def add_button_press_events
-    if ::Gtk.use_gtk2?
-      add_events(Gdk::Event::BUTTON_PRESS_MASK)
-    else # else for ruby-gtk3
-      add_events(Gdk::EventMask::BUTTON_PRESS_MASK)
-    end
-  end; alias enable_context_menu_on_button_click_events add_button_press_events # === enable_context_menu_on_button_click_events
-       alias enable_context_menu                        add_button_press_events # === enable_context_menu
-
-  # ========================================================================= #
-  # === set_font
-  #
-  # This is a slightly simpler way to set the font. We also allow for
-  # Symbols here, such as :hack_25. This refers to the font called "Hack",
-  # with a size of 25. Not all symbols are enabled, mind you - I only use
-  # some, but may extend more over the coming months and years.
-  # ========================================================================= #
-  def set_font(
-      i = :dejavu_condensed_50
-    )
-    if i.is_a? Symbol
-      i = ::Gtk.expand_this_font(i)
-    end
-    i = Pango::FontDescription.new(i)
-    if ::Gtk.use_gtk2?
-      modify_font(i)
-    else
-      override_font(i)
-    end
-  end; alias font set_font # === font
+  # === background_colour?
+  # ========================================================================= #
+  def background_colour?
+    return @background_colour
+  end
 
   # ========================================================================= #
-  # === width_height
+  # === simple_markup
   # ========================================================================= #
-  def width_height(
-      width  = 500,
-      height = 150
-    )
-    set_size_request(width, height)
+  def simple_markup(*i)
+    _ = ''.dup
+    i.flatten.each_slice(2).each {|text_to_display, colour_to_use|
+      if colour_to_use
+        _ << '<span weight="bold" foreground="'+colour_to_use.to_s+'">'+
+             text_to_display.to_s+'</span>'
+      else
+        _ << text_to_display.to_s
+      end
+    }
+    set_markup(_)
   end
 
+  # ========================================================================= #
+  # === focus_in_event
+  # ========================================================================= #
+  def focus_in_event(&block)
+    signal_connect(:focus_in_event, &block)
+  end; alias on_focus_in_event focus_in_event # === on_focus_in_event
+
   # ========================================================================= #
   # === grey_out
+  #
+  # This is typically used for gtk-button, to "grey" out the button, thus
+  # make it no longer sensitive to user-input change.
   # ========================================================================= #
   def grey_out
     set_sensitive(false)
-  end; alias not_sensitive grey_out # === not_sensitive
+  end; alias not_sensitive  grey_out # === not_sensitive
+       alias is_insensitive grey_out # === is_insensitive
 
   # ========================================================================= #
   # === grey_in
@@ -1112,6 +1634,8 @@ class Widget
 
   # ========================================================================= #
   # === transition_change_background_to
+  #
+  # The first argument should be the target colour.
   # ========================================================================= #
   def transition_change_background_to(
       to_this_colour     = :lightgreen,
@@ -1173,7 +1697,6 @@ class Widget
     signal_connect(:key_press_event, &block)
   end
 
-  require 'gtk_paradise/toplevel_methods/tooltips.rb'
   # ========================================================================= #
   # === tooltip=
   # ========================================================================= #
@@ -1188,101 +1711,6 @@ class Widget
     signal_connect(:value_changed, &block)
   end
 
-  # ========================================================================= #
-  # === modify_background
-  #
-  # This method will set the background colour for a widget in a
-  # particular state. All other style values are left untouched.
-  # See also Gtk::Widget#modify_style.
-  #
-  # The arguments are:
-  #
-  #   state:  the state(GtkStateType) for which to set the 
-  #           background color.
-  #
-  #   colour: the Gdk::Color to assign (does not need to 
-  #           be allocated).
-  #
-  # ========================================================================= #
-  def modify_background(
-      state,
-      colour = nil,
-      &block
-    )
-    # ======================================================================= #
-    # === Handle Hashes first, for the variable state
-    # ======================================================================= #
-    if colour.is_a? Hash
-      if colour.has_key? :colour
-        colour = colour.delete(:colour)
-      end
-    end
-    case state
-    # ======================================================================= #
-    # === :normal
-    #
-    # This entry point is the default entry point.
-    # ======================================================================= #
-    when :normal,
-         :default
-      if Gtk.do_we_use_gtk2?
-        state = ::Gtk::STATE_NORMAL
-      else
-        state = :normal
-      end
-    # ======================================================================= #
-    # === :active
-    # ======================================================================= #
-    when :active
-      if Gtk.do_we_use_gtk2?
-        state = ::Gtk::STATE_ACTIVE
-      else
-        state = :active
-      end
-    # ======================================================================= #
-    # === :prelight
-    # ======================================================================= #
-    when :prelight,
-         :hover,
-         :on_hover
-      if Gtk.do_we_use_gtk2?
-        state = ::Gtk::STATE_PRELIGHT
-      else
-        state = :prelight
-      end
-    end
-    # ======================================================================= #
-    # === Handle blocks next
-    # ======================================================================= #
-    if block_given?
-      yielded = yield
-      if yielded.is_a?(Symbol)
-        colour = yielded
-      end
-    end
-    if colour.is_a? Symbol
-      # ===================================================================== #
-      # Convert it into a Gtk::Colours representation. We could check if it
-      # is a valid html-colour, but for the time being we do not do this.
-      # ===================================================================== #
-      if Gtk.do_we_use_gtk2?
-        colour = ::Gtk.colour_parse(colour)
-        # =================================================================== #
-        # gtk3 now uses RGBA rather than Gdk.parse().
-        # RGBA stands for red, green, blue and alpha.
-        # The values go from 0.0 to 1.0. However had, it seems as if
-        # ruby-gtk3 also supports HTML colours directly, so no need
-        # to convert them.
-        # =================================================================== #
-      end
-    end
-    if Gtk.do_we_use_gtk2?
-      modify_bg(state, colour) # Delegate to the original method here.
-    else
-      override_background_color(state, colour)
-    end
-  end
-
   # ========================================================================= #
   # === tooltip
   #
@@ -1296,7 +1724,7 @@ class Widget
     )
     if ::Gtk.use_gtk2?
       ::Gtk::Tooltips.new.set_tip(self, text_for_the_tooltip, nil)
-    else # else assume ruby-gtk3.
+    else # else assume ruby-gtk3 or ruby-gtk4.
       if text_for_the_tooltip.is_a? String
         text_for_the_tooltip = { text: text_for_the_tooltip }
       end
@@ -1305,41 +1733,6 @@ class Widget
   end; alias use_this_tooltip tooltip # === use_this_tooltip
        # alias tooltip=         tooltip # === tooltip=
 
-  # ========================================================================= #
-  # === modify_to_this_font
-  #
-  # This will modify the font for that particular widget at hand.
-  #
-  # Usage example:
-  #
-  #   modify_this_font(:liberation)
-  #
-  # ========================================================================= #
-  def modify_to_this_font(
-      this_font = 'Sans 20'
-    )
-    this_font = ::Gtk.expand_this_font(this_font)
-    _ = Pango::FontDescription.new(this_font)
-    if Gtk.are_we_using_gtk2?
-      modify_font(_)
-    else
-      override_font(_)
-    end
-  end; alias modify_this_font modify_to_this_font # === modify_this_font
-       alias font_to_use=     modify_to_this_font # === font_to_use=
-
-  # ========================================================================= #
-  # === deselect
-  #
-  # Note that this method will NOT work on every gtk-widget; the primary
-  # use case has been for gtk-entry, but I figured that other gtk-widgets
-  # may benefit from this method as well, so it was added onto class
-  # Gtk::Widget.
-  # ========================================================================= #
-  def deselect
-    select_region(0, 0)
-  end
-
   # ========================================================================= #
   # === read_only
   # ========================================================================= #
@@ -1402,12 +1795,16 @@ class Widget
   # ========================================================================= #
   # === make_bold
   #
-  # This method can be used to make a widget bold.
+  # This method can be used to make a widget bold. In ruby-gtk4 this has
+  # changed, though. I am not 100% positive yet, but I think it has
+  # changed.
   # ========================================================================= #
   def make_bold
-    override_font(
-      Pango::FontDescription.new('bold')
-    )
+    # if use_gtk3?
+      override_font(
+        Pango::FontDescription.new('bold')
+      )
+    #end
   end; alias bold make_bold # === bold
 
   # ========================================================================= #
@@ -1419,4 +1816,119 @@ class Widget
     signal_connect(:toggled, &block)
   end
 
+  # ========================================================================= #
+  # === quit_on_child_exited_signal
+  # ========================================================================= #
+  def quit_on_child_exited_signal
+    signal_connect(:child_exited) { gtk_main_quit }
+  end
+
+  # ========================================================================= #
+  # === intelligent_exit
+  # ========================================================================= #
+  def intelligent_exit
+    signal_connect(:destroy) { ::Gtk.main_quit }
+  end
+
+  # ========================================================================= #
+  # === pack_without_expand                                     (minimal tag)
+  # ========================================================================= #
+  def pack_without_expand(
+      widget,
+      padding_to_use = 0
+    )
+    # ======================================================================= #
+    # The second argument may be a Hash. If this is the case we check for
+    # it's "type".
+    # ======================================================================= #
+    if padding_to_use.is_a? Hash
+      work_on_a_copy = padding_to_use.dup # To avoid side-effects.
+      # ===================================================================== #
+      # === :padding
+      # ===================================================================== #
+      if work_on_a_copy.has_key? :padding
+        padding_to_use = work_on_a_copy[:padding]
+      end
+    end
+    # ======================================================================= #
+    # === Handle ruby-gtk2 first
+    # ======================================================================= #
+    if ::Gtk.use_gtk2?
+      begin
+        pack_start(
+          widget,
+          false,
+          false,
+          padding_to_use
+        )
+      rescue ArgumentError => error
+        puts 'An error happened in '+__FILE__+' (method: pack_without_expand())'
+        pp error
+        puts 'caller() was:'
+        pp caller()
+        exit
+      end
+    elsif ::Gtk.use_gtk4?
+      # ===================================================================== #
+      # === Handle ruby-gtk4 here
+      # ===================================================================== #
+      append(
+        widget
+      )
+      if padding_to_use
+        css_class(
+          'pad'+padding_to_use.to_s+'px'
+        )
+      end
+    else # else handle ruby-gtk3
+      pack_start(
+        widget,
+        expand:  false,
+        fill:    false,
+        padding: padding_to_use
+      )
+    end
+  end; alias pack_minimal pack_without_expand # === pack_minimal
+       alias minimal      pack_without_expand # === minimal
+    # ======================================================================= #
+    # In the past we added an alias called append(). This is not
+    # possible in ruby gtk4.
+    # ======================================================================= #
+    unless ::Gtk.use_gtk4?
+       alias append       pack_without_expand # === append
+    end
+
+  # ========================================================================= #
+  # === set_font
+  #
+  # This is a slightly simpler way to set the font. We also allow for
+  # Symbols here, such as :hack_25. This refers to the font called "Hack",
+  # with a size of 25. Not all symbols are enabled, mind you - I only use
+  # some, but may extend more over the coming months and years.
+  # ========================================================================= #
+  def set_font(
+      i = :dejavu_condensed_50
+    )
+    if i.is_a? Symbol
+      i = ::Gtk.expand_this_font(i)
+    end
+    i = Pango::FontDescription.new(i)
+    if ::Gtk.use_gtk2?
+      modify_font(i)
+    elsif ::Gtk.use_gtk3?
+      override_font(i)
+    elsif ::Gtk.use_gtk4?
+      # ===================================================================== #
+      # Add it as a CSS rule next:
+      # ===================================================================== #
+      use_this_new_CSS_rule = '.font_'+i.to_s.downcase.tr(' ','_')+' {
+  font-family: '+i.to_s+';
+}
+'
+      css_class(use_this_new_CSS_rule)
+    else
+      e 'Unknown engine in use.'
+    end
+  end; alias font set_font # === font
+
 end; end