libui_paradise 0.2.49 → 0.4.13

data/lib/libui_paradise/fiddle/{pointer.rb → fiddle.rb}

@@ -8,250 +8,99 @@
 # really not recommended to do this.
 #
 # A cleaner solution would be to modify just in-place, such as via
-# refinements, but I don't quite like the syntax of refinements,
-# so I opted for the simpler toplevel modification instead.
+# refinements, but I don't quite like the syntax of refinements, so
+# I opted for the simpler toplevel modification instead.
 # =========================================================================== #
-# require 'libui_paradise/fiddle/pointer.rb'
+# require 'libui_paradise/fiddle/fiddle.rb'
 # =========================================================================== #
 module Fiddle
 
 class Pointer # === Fiddle::Pointer
 
-  require 'libui_paradise/extensions/counters.rb'
+  require 'libui_paradise/toplevel_methods/hash_fiddle_pointer_widgets.rb'
+  require 'libui_paradise/toplevel_methods/toplevel_counters.rb'
 
   # ========================================================================= #
-  # === on_changed
-  #
-  # The idea for this method is to respond to on-changed events, in
-  # particular on a spinbox. Currently it is enabled for a few
-  # widgets, including :entry. This may be expanded at a later time
-  # to add on-changed support for more widgets.
-  #
-  # For a combobox we may have to use this code:
-  #
-  #   LibUI.combobox_on_selected
-  #     UI.spinbox_on_changed(self, spinbox_changed_callback, nil)
-  #   end
-  #
-  # Be sure to pass the proc object into the method, in a block.
-  #
-  # Usage examples:
-  #
-  #   text_entry.on_changed { text_changed_callback }
-  #   slider.on_changed { slider_changed_callback }
-  #
-  # ========================================================================= #
-  def on_changed(&block)
-    current_widget = available_pointers?[self.object_id] # This will be an Array.
-    _pointer = current_widget.first # Not used currently in this method.
-    type     = current_widget.last
-    case type
-    # ======================================================================= #
-    # === :entry
-    # ======================================================================= #
-    when :entry
-      LibUI.entry_on_changed(self, block.call, nil)
-    # ======================================================================= #
-    # === :multiline_entry
-    # ======================================================================= #
-    when :multiline_entry
-      LibUI.multiline_entry_on_changed(self, block.call, nil)
-    # ======================================================================= #
-    # === :spinbox
-    # ======================================================================= #
-    when :spinbox
-      LibUI.spinbox_on_changed(self, block.call, nil)
-    # ======================================================================= #
-    # === :slider
-    #
-    # This is for a slider bar.
-    # ======================================================================= #
-    when :slider
-      LibUI.slider_on_changed(self, block.call, nil)
-    # ======================================================================= #
-    # === :colour_button
-    # ======================================================================= #
-    when :colour_button
-      LibUI.color_button_on_changed(self, block.call, nil)
-    # ======================================================================= #
-    # === :combobox
-    # ======================================================================= #
-    when :combobox
-      LibUI.combobox_on_selected(self, block.call, nil)
-    else
-      e 'Not registered type in .on_changed(): '+type.to_s
-    end
-  end
-
-  # ========================================================================= #
-  # === fraction=
-  #
-  # This is mostly a wrapper to reach ruby-gtk3 compatibility.
+  # === available_pointers?
   # ========================================================================= #
-  def fraction=(i = '')
-    i = i * 100
-    set_value(i)
-  end
+  def available_pointers?
+    ::LibuiParadise.hash_fiddle_pointer_widgets?
+  end; alias main_hash?                   available_pointers? # === main_hash?
+       alias hash_fiddle_pointer_widgets? available_pointers? # === hash_fiddle_pointer_widgets?
 
   # ========================================================================= #
-  # === set_text
-  #
-  # This method can be used to set the text of a particular libui-widget,
-  # in particular entries.
+  # === clear
   # ========================================================================= #
-  def set_text(
-      display_this_text = '', # This is the text that will be used.
-      type              = nil
+  def clear(
+      current_widget = available_pointers?[self.object_id] # This will be an Array.
     )
+    _pointer = current_widget.first # Not used currently in this method.
+    type     = current_widget.last
+
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    this_widget = hash[object_id].first
+    hash = hash_fiddle_pointer_widgets?
     if type.nil?
       type = hash[object_id].last # This should be :grid. But it is not used here.
     end
     case type
     # ======================================================================= #
-    # === :new_progress_bar
-    # ======================================================================= #
-    when :new_progress_bar
-      # This currently does nothing.
-    # ======================================================================= #
     # === :multiline_entry
-    #
-    # This is a text-view widget actually.
     # ======================================================================= #
     when :multiline_entry
-      LibUI.multiline_entry_set_text(
-        this_widget,
-        display_this_text.to_s
-      )
-    # ======================================================================= #
-    # === :text
-    # ======================================================================= #
-    when :text,
-         :label
-      LibUI.label_set_text(
-        this_widget,
-        display_this_text.to_s
-      )
-    # ======================================================================= #
-    # === :textview
-    # ======================================================================= #
-    when :textview
-      LibUI.multiline_entry_set_text(
-        this_widget,
-        display_this_text.to_s
-      )
-    # ======================================================================= #
-    # === :entry
-    # ======================================================================= #
-    when :entry
-      LibUI.entry_set_text(
-        this_widget,
-        display_this_text.to_s
-      )
+      ::LibUI.multiline_entry_set_text(self, '')
     # ======================================================================= #
-    # === :search_entry
+    # === :combobox
     #
-    # This is specifically for a search-entry.
+    # This currently does not work; it depends on libui-ng, which has not
+    # yet been added completely.
     # ======================================================================= #
-    when :search_entry
-      LibUI.entry_set_text(
-        this_widget,
-        display_this_text.to_s
-      )
+    when :combobox
+    #   LibUI.multiline_entry_set_text(
+    #     this_widget,
+    #     display_this_text.to_s
+    #   )
     else
-      puts 'Unhandled case in set_text(): '+
-           type.to_s
+      puts "Unhandled case in clear(): "\
+           "#{type}"
     end
-  end; alias set_content set_text # === set_content
+  end
 
   # ========================================================================= #
-  # === text?
-  #
-  # This method queries the content of any widget that may contain text, in
-  # particular entries such as a gtk-entry.
+  # === is_read_only
   # ========================================================================= #
-  def text?(
-      type = nil
+  def is_read_only(
+      current_widget = available_pointers?[self.object_id] # This will be an Array.
     )
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    if type.nil?
-      # ===================================================================== #
-      # In this case we must determine the type in use.
-      # ===================================================================== #
-      if hash.has_key? object_id
-        type = hash[object_id].last # The last entry contains the type.
-      end
-    end
+    _pointer = current_widget.first # Not used currently in this method.
+    type     = current_widget.last
     case type
     # ======================================================================= #
-    # === :new_progress_bar
-    #
-    # This is actually a progress-bar.
+    # === :entry
     # ======================================================================= #
-    when :new_progress_bar,
-         :progress_bar
-      return LibUI.progress_bar_value(self).to_s
+    when :entry
+      ::LibUI.entry_set_read_only(self, 1)
     # ======================================================================= #
     # === :multiline_entry
-    #
-    # This is, I believe, synonymous to :textview.
-    # ======================================================================= #
-    when :multiline_entry,
-         :textview
-      return LibUI.multiline_entry_text(self).to_s
-    # ======================================================================= #
-    # === :combobox
     # ======================================================================= #
-    when :combobox
-      return LibUI.combobox_selected(self).to_s
-    else # This is the "historic" default. May have to be removed one day.
-      return LibUI.entry_text(self).to_s
+    when :multiline_entry
+      ::LibUI.multiline_entry_set_read_only(self, 1)
+    else
+      pp 'The caller in is_read_only() will be shown next:'
+      puts
+      pp caller()
+      puts
+      puts "#{type} (class #{type.class}) is not yet implemented in .padded=."
+      puts
     end
-  end; alias buffer?   text? # === buffer?
-       alias selected? text? # === selected?
-       alias value?    text? # === value?
+  end; alias readonly                           is_read_only # === readonly
+       alias the_user_may_not_modify_this_entry is_read_only # === the_user_may_not_modify_this_entry
 
   # ========================================================================= #
-  # === set_value
-  #
-  # This method has initially been created to assign a value to a
-  # spinbutton. That way the following API is made possible:
-  #
-  #   spinbutton.set_value(42)
-  #
+  # === new_row
   # ========================================================================= #
-  def set_value(
-      new_value
-    )
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    this_widget = hash[object_id].first
-    type = hash[object_id].last
-    case type
-    # ======================================================================= #
-    # === :new_progress_bar
-    #
-    # This is actually a progress-bar.
-    # ======================================================================= #
-    when :new_progress_bar,
-         :progress_bar
-      LibUI.progress_bar_set_value(this_widget, new_value.to_i)
-    # ======================================================================= #
-    # === :spinbox
-    # ======================================================================= #
-    when :spinbox
-      LibUI.spinbox_set_value(
-        this_widget,
-        new_value.to_i # Must be an Integer.
-      )
-    else
-      e 'Not registered type: '+type.to_s
-    end
-  end; alias value=          set_value # === value=
-       alias start_position= set_value # === start_position=
+  def new_row
+    ::LibuiParadise.new_row
+  end
 
   # ========================================================================= #
   # === right                                                     (right tag)
@@ -264,7 +113,7 @@ class Pointer # === Fiddle::Pointer
       yspan = 1
     )
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
+    hash = hash_fiddle_pointer_widgets?
     type = hash[object_id].last # The last entry contains the type.
     case left
     # ======================================================================= #
@@ -303,202 +152,225 @@ class Pointer # === Fiddle::Pointer
           valign:  0
         }
       )
-      LibuiParadise.counter_left += 1
+      # ===================================================================== #
+      # And we must add a new row next:
+      # ===================================================================== #
+      LibuiParadise.new_row
     else
     end
   end
 
   # ========================================================================= #
-  # === left                                                       (left tag)
+  # === ui_grid_append
+  #
+  # This method can be used to append onto a grid in LibUI.
+  #
+  # Usage example:
+  #
+  #   grid.grid_append(text('Right'), 1, 0, 1, 1, 0, 0.5, 1, 0)
+  #
   # ========================================================================= #
-  def left(
-      widget,
-      left  = LibuiParadise.counter_left?,
-      top   = LibuiParadise.counter_top?,
-      xspan = 1,
-      yspan = 1
+  def ui_grid_append(
+      widget_to_append,
+      left    = LibuiParadise.left_counter?,
+      top     = LibuiParadise.top_counter?,
+      xspan   = 1,
+      yspan   = 1,     # 
+      hexpand = 0, # A "boolean". 0 means false here.
+      halign  = 0,
+      vexpand = 0, # A "boolean". 0 means false here, 1 means true, and thus "do expand".
+      valign  = 0
     )
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    type = hash[object_id].last # The last entry contains the type.
-    case left
     # ======================================================================= #
-    # === :default
+    # The signature in Go is:
+    #
+    #   Append(child Control, left, top int, xspan, yspan int, hexpand bool, halign Align, vexpand bool, valign Align)
+    #
     # ======================================================================= #
-    when :default
-      left = LibuiParadise.counter_left?
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    this_widget = hash[object_id].first
+    _type       = hash[object_id].last # This should be :grid. But it is not used here.
+    if (left == LibuiParadise.left_counter?)
+      LibuiParadise.increment_the_left_counter
     end
-    case top
-    # ======================================================================= #
-    # === :default
-    # ======================================================================= #
-    when :default
-      top = LibuiParadise.counter_top?
-    end
-    case type
-    # ======================================================================= #
-    # === :vbox
-    # ======================================================================= #
-    when :vbox
-      add(widget)
     # ======================================================================= #
-    # === :grid
+    # left, top, xspan, yspan, hexpand, halign, vexpand, valign
+    #  0,    0,    2,     1,      0,      0,       1,      0
     # ======================================================================= #
-    when :grid
-      hash_grid(
-        widget,
-        {
-          left:    left,
-          top:     top,
-          xspan:   xspan,
-          yspan:   yspan,
-          hexpand: 0,
-          halign:  0,
-          vexpand: 0,
-          valign:  0
-        }
-      )
-      LibuiParadise.counter_left += 1
-    else
-    end
-  end
-
-  # ========================================================================= #
-  # === new_row
-  # ========================================================================= #
-  def new_row
-    LibuiParadise.counter_left = 0
-    LibuiParadise.counter_top += 1
-  end
+    LibUI.grid_append(
+      this_widget,
+      widget_to_append, # This is the widget that will be added (appended) onto the grid-widget.
+      left,
+      top,
+      xspan,
+      yspan,
+      hexpand,
+      halign,
+      vexpand,
+      valign
+    )
+  end; alias grid_append ui_grid_append # === grid_append
 
   # ========================================================================= #
-  # === hash_grid
-  #
-  # Usage example:
+  # === show_then_main_then_quit
   #
-  #   hash_grid(text('Yo6'), { left: 0, top: 3, xspan: 1, yspan: 1, hexpand: 0, halign: 0, vexpand: 0, valign: 0 })
+  # This method ultimately combines three other method calls, or even
+  # four, since as of December 2023.
   #
+  # The argument that this method accepts is the main window.
   # ========================================================================= #
-  def hash_grid(
-      pass_this_widget,
-      hash = {}
+  def show_then_main_then_quit(
+      optional_widget = nil
     )
-    array_to_be_passed = []
     # ======================================================================= #
-    # === :left
+    # First handle non-nil arguments given.
     # ======================================================================= #
-    if hash.has_key? :left
-      array_to_be_passed << hash[:left]
-    else
-      array_to_be_passed << 0
-    end
-    # ======================================================================= #
-    # === :top
-    # ======================================================================= #
-    if hash.has_key? :top
-      array_to_be_passed << hash[:top]
-    else
-      array_to_be_passed << 0
+    if optional_widget
+      self << optional_widget
     end
-    # ======================================================================= #
-    # === :xspan
-    # ======================================================================= #
-    if hash.has_key? :xspan
-      array_to_be_passed << hash[:xspan]
-    else
-      array_to_be_passed << 0
+    ::LibUI.control_show(self)
+    main_then_quit
+  end; alias elegant_exit           show_then_main_then_quit # === elegant_exit
+       alias complex_finalizer      show_then_main_then_quit # === complex_finalizer
+       alias intelligent_close_down show_then_main_then_quit # === intelligent_close_down
+       alias intelligent_quit       show_then_main_then_quit # === intelligent_quit
+       alias intelligent_exit       show_then_main_then_quit # === intelligent_exit
+
+  # ========================================================================= #
+  # === text?
+  #
+  # This method queries the content of any widget that may contain text, in
+  # particular entries such as a gtk-entry.
+  # ========================================================================= #
+  def text?(
+      type = nil
+    )
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    if type.nil?
+      # ===================================================================== #
+      # In this case we must determine the type in use.
+      # ===================================================================== #
+      if hash.has_key? object_id
+        type = hash[object_id].last # The last entry contains the type.
+      end
     end
+    case type
     # ======================================================================= #
-    # === :yspan
+    # === :label
     # ======================================================================= #
-    if hash.has_key? :yspan
-      array_to_be_passed << hash[:yspan]
-    else
-      array_to_be_passed << 0
-    end
+    when :label
+      return LibUI.label_text(self).to_s
     # ======================================================================= #
-    # === :hexpand
+    # === :new_progress_bar
+    #
+    # This is actually a progress-bar.
     # ======================================================================= #
-    if hash.has_key? :hexpand
-      array_to_be_passed << hash[:hexpand]
-    else
-      array_to_be_passed << 0
-    end
+    when :new_progress_bar,
+         :progress_bar
+      return LibUI.progress_bar_value(self).to_s
     # ======================================================================= #
-    # === :halign
+    # === :multiline_entry
+    #
+    # This is, I believe, synonymous to :textview.
     # ======================================================================= #
-    if hash.has_key? :halign
-      array_to_be_passed << hash[:halign]
-    else
-      array_to_be_passed << 0
-    end
+    when :multiline_entry,
+         :textview
+      return LibUI.multiline_entry_text(self).to_s
     # ======================================================================= #
-    # === :vexpand
+    # === :combobox
     # ======================================================================= #
-    if hash.has_key? :vexpand
-      array_to_be_passed << hash[:vexpand]
-    else
-      array_to_be_passed << 0
+    when :combobox
+      return LibUI.combobox_selected(self).to_s
+    else # This is the "historic" default. May have to be removed one day.
+      return LibUI.entry_text(self).to_s
     end
+  end; alias buffer?   text? # === buffer?
+       alias value?    text? # === value?
+       alias selected? text? # === selected?
+
+  # ========================================================================= #
+  # === on_toggled
+  # ========================================================================= #
+  def on_toggled(&block)
+    current_widget = available_pointers?[self.object_id] # This will be an Array.
+    _pointer = current_widget.first # Not used currently in this method.
+    type     = current_widget.last
+    case type
     # ======================================================================= #
-    # === :valign
+    # === :checkbox
     # ======================================================================= #
-    if hash.has_key? :valign
-      array_to_be_passed << hash[:valign]
+    when :checkbox
+      ::LibUI.checkbox_on_toggled(self, block.call, nil)
     else
-      array_to_be_passed << 0
+      e 'Not yet added here: '+type.to_s
     end
-    ui_grid_append(pass_this_widget, *array_to_be_passed)
-  end; alias hash hash_grid # === hash
+  end
 
   # ========================================================================= #
-  # === ui_grid_append
+  # === on_changed
   #
-  # This method can be used to append onto a grid in LibUI.
+  # The idea for this method is to respond to on-changed events, in
+  # particular on a spinbox. Currently it is enabled for a few
+  # widgets, including :entry. This may be expanded at a later time
+  # to add on-changed support for more widgets.
   #
-  # Usage example:
+  # For a combobox we may have to use this code:
   #
-  #   grid.grid_append(text('Right'), 1, 0, 1, 1, 0, 0.5, 1, 0)
+  #   LibUI.combobox_on_selected
+  #     UI.spinbox_on_changed(self, spinbox_changed_callback, nil)
+  #   end
+  #
+  # Be sure to pass the proc object into the method, in a block.
+  #
+  # Usage examples:
+  #
+  #   text_entry.on_changed { text_changed_callback }
+  #   slider.on_changed { slider_changed_callback }
   #
   # ========================================================================= #
-  def ui_grid_append(
-      widget_to_append,
-      left    = 0,
-      top     = 0,
-      xspan   = 1,
-      yspan   = 1,     # 
-      hexpand = 0, # A "boolean". 0 means false here.
-      halign  = 0,
-      vexpand = 0, # A "boolean". 0 means false here.
-      valign  = 0
-    )
+  def on_changed(&block)
+    current_widget = available_pointers?[self.object_id] # This will be an Array.
+    _pointer = current_widget.first # Not used currently in this method.
+    type     = current_widget.last
+    case type
     # ======================================================================= #
-    # The signature in Go is:
-    #
-    #   Append(child Control, left, top int, xspan, yspan int, hexpand bool, halign Align, vexpand bool, valign Align)
+    # === :entry
+    # ======================================================================= #
+    when :entry
+      ::LibUI.entry_on_changed(self, block.call, nil)
+    # ======================================================================= #
+    # === :multiline_entry
+    # ======================================================================= #
+    when :multiline_entry
+      ::LibUI.multiline_entry_on_changed(self, block.call, nil)
+    # ======================================================================= #
+    # === :spinbox
+    # ======================================================================= #
+    when :spinbox
+      ::LibUI.spinbox_on_changed(self, block.call, nil)
+    # ======================================================================= #
+    # === :slider
     #
+    # This is for a slider bar.
     # ======================================================================= #
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    this_widget = hash[object_id].first
-    _type       = hash[object_id].last # This should be :grid. But it is not used here.
+    when :slider
+      ::LibUI.slider_on_changed(self, block.call, nil)
     # ======================================================================= #
-    # left, top, xspan, yspan, hexpand, halign, vexpand, valign
-    #  0,    0,    2,     1,      0,      0,       1,      0
+    # === :colour_button
     # ======================================================================= #
-    LibUI.grid_append(
-      this_widget,
-      widget_to_append,
-      left,
-      top,
-      xspan,
-      yspan,
-      hexpand,
-      halign,
-      vexpand,
-      valign
-    )
-  end; alias grid_append ui_grid_append # === grid_append
+    when :colour_button
+      ::LibUI.color_button_on_changed(self, block.call, nil)
+    # ======================================================================= #
+    # === :combobox
+    # ======================================================================= #
+    when :combobox
+      ::LibUI.combobox_on_selected(self, block.call, nil)
+    else
+      e 'Not registered type in .on_changed(): '+type.to_s
+    end
+  end
 
   # ========================================================================= #
   # === append                                          (append tag, add tag)
@@ -510,22 +382,44 @@ class Pointer # === Fiddle::Pointer
       padding_to_use = 1,
       *remaining_arguments
     )
+    if padding_to_use.is_a? Hash
+      padding_to_use = 1 # Hardcoded exception.
+    end
+    if padding_to_use > 1
+      padding_to_use = 1 # For now only a value of 1 seems to work.
+    end
     current_widget = available_pointers?[self.object_id] # This will be an Array.
     _pointer = current_widget.first # Not used currently in this method.
     type     = current_widget.last
+    left_position = LibuiParadise.counter_left?
+    top_position  = LibuiParadise.counter_top?
+    if remaining_arguments[1]
+      top_position = remaining_arguments[1]
+    end
+    if remaining_arguments[0]
+      left_position = remaining_arguments[0]
+    else
+      LibuiParadise.increment_counter_left
+    end
     case type
     # ======================================================================= #
     # === :grid
     #
     # This entry-point is specifically for a ui-grid element.
+    #
+    # The positional arguments stand for:
+    #
+    #                     gtk-widget,  left, top, xspan, yspan, hexpand, halign, vexpand, valign
+    #   grid_append(grid, entry1,      0, 0, 2, 1, 0, 0, 1, 0)
+    #
     # ======================================================================= #
     when :grid
       LibUI.grid_append(
         self,
         this_widget.to_s,
         padding_to_use,
-        remaining_arguments[0],
-        remaining_arguments[1],
+        left_position,
+        top_position,
         remaining_arguments[2],
         remaining_arguments[3],
         remaining_arguments[4],
@@ -553,42 +447,197 @@ class Pointer # === Fiddle::Pointer
     when :window
       LibUI.window_set_child(self, this_widget)
     else # This is the default.
-      LibUI.box_append(
+      ::LibUI.box_append(
         self, this_widget, padding_to_use
       )
     end
-  end; alias add append # === add
-       alias <<  append # === <<
+  end; alias add        append # === add
+       alias <<         append # === <<
+       alias pack_start append # === pack_start
+
+  # ========================================================================= #
+  # === append_text_column
+  #
+  # This method is specifically used for libui-tables.
+  # ========================================================================= #
+  def append_text_column(
+      text,
+      a,
+      b = -1
+    )
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    type = hash[object_id].last # The last entry contains the type.
+    case type
+    # ======================================================================= #
+    # === :table
+    #
+    # This is the primary entry point for this method.
+    # ======================================================================= #
+    when :table
+      ::LibUI.table_append_text_column(self, text, a, b)
+    else
+      e 'Not registered type in .append_text_column(): '+type.to_s
+    end
+  end
+
+  # ========================================================================= #
+  # === set_text
+  #
+  # This method can be used to set the text of a particular libui-widget,
+  # in particular entries.
+  # ========================================================================= #
+  def set_text(
+      display_this_text = '', # This is the text that will be used.
+      type              = nil
+    )
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    this_widget = hash[object_id].first
+    if type.nil?
+      type = hash[object_id].last # This should be :grid. But it is not used here.
+    end
+    case type
+    # ======================================================================= #
+    # === :new_progress_bar
+    # ======================================================================= #
+    when :new_progress_bar
+      # This currently does nothing.
+    # ======================================================================= #
+    # === :multiline_entry
+    #
+    # This is a text-view widget actually.
+    # ======================================================================= #
+    when :multiline_entry
+      LibUI.multiline_entry_set_text(
+        this_widget,
+        display_this_text.to_s
+      )
+    # ======================================================================= #
+    # === :text
+    # ======================================================================= #
+    when :text,
+         :label
+      LibUI.label_set_text(
+        this_widget,
+        display_this_text.to_s
+      )
+    # ======================================================================= #
+    # === :textview
+    # ======================================================================= #
+    when :textview
+      LibUI.multiline_entry_set_text(
+        this_widget,
+        display_this_text.to_s
+      )
+    # ======================================================================= #
+    # === :entry
+    # ======================================================================= #
+    when :entry
+      LibUI.entry_set_text(
+        this_widget,
+        display_this_text.to_s
+      )
+    # ======================================================================= #
+    # === :search_entry
+    #
+    # This is specifically for a search-entry.
+    # ======================================================================= #
+    when :search_entry
+      LibUI.entry_set_text(
+        this_widget,
+        display_this_text.to_s
+      )
+    else
+      puts 'Unhandled case in set_text(): '+
+           type.to_s
+    end
+  end; alias set_content set_text # === set_content
+
+  # ========================================================================= #
+  # === group_maximal
+  # ========================================================================= #
+  def group_maximal(*i)
+    i.flatten.each {|entry|
+      maximal(entry)
+    }
+  end
+
+  # ========================================================================= #
+  # === maximal
+  # ========================================================================= #
+  def maximal(this_widget, optional_padding = 1)
+    add(this_widget, optional_padding)
+  end
+
+  # ========================================================================= #
+  # === minimal
+  # ========================================================================= #
+  def minimal(
+      this_widget,
+      optional_padding = 0
+    )
+    add(this_widget, optional_padding)
+  end
+
+  # ========================================================================= #
+  # === set_value
+  #
+  # This method has initially been created to assign a value to a
+  # spinbutton. That way the following API is made possible:
+  #
+  #   spinbutton.set_value(42)
+  #
+  # ========================================================================= #
+  def set_value(
+      new_value
+    )
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    this_widget = hash[object_id].first
+    type = hash[object_id].last
+    case type
+    # ======================================================================= #
+    # === :new_progress_bar
+    #
+    # This is actually a progress-bar.
+    # ======================================================================= #
+    when :new_progress_bar,
+         :progress_bar
+      ::LibUI.progress_bar_set_value(this_widget, new_value.to_i)
+    # ======================================================================= #
+    # === :spinbox
+    # ======================================================================= #
+    when :spinbox
+      ::LibUI.spinbox_set_value(
+        this_widget,
+        new_value.to_i # Must be an Integer.
+      )
+    else
+      e 'Not registered type: '+type.to_s
+    end
+  end; alias value=          set_value # === value=
+       alias start_position= set_value # === start_position=
 
   # ========================================================================= #
-  # === clear
+  # === append_this_array
+  #
+  # This method only works for comboboxes.
   # ========================================================================= #
-  def clear(
-      current_widget = available_pointers?[self.object_id] # This will be an Array.
-    )
-    _pointer = current_widget.first # Not used currently in this method.
-    type     = current_widget.last
-
+  def append_this_array(array)
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    if type.nil?
-      type = hash[object_id].last # This should be :grid. But it is not used here.
-    end
+    hash = hash_fiddle_pointer_widgets?
+    _this_widget = hash[object_id].first # This variable is currently not in use.
+    type        = hash[object_id].last
     case type
     # ======================================================================= #
     # === :combobox
-    #
-    # This currently does not work; it depends on libui-ng, which has not
-    # yet been added completely.
     # ======================================================================= #
     when :combobox
-    #   LibUI.multiline_entry_set_text(
-    #     this_widget,
-    #     display_this_text.to_s
-    #   )
-    else
-      puts 'Unhandled case in clear(): '+
-           type.to_s
+      array.each {|this_entry|
+        LibUI.combobox_append(self, this_entry)
+      }
+      LibUI.combobox_set_selected(self, 0) # The first one will be active too.    
     end
   end
 
@@ -599,7 +648,7 @@ class Pointer # === Fiddle::Pointer
       type = nil
     )
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
+    hash = hash_fiddle_pointer_widgets?
     if type.nil?
       # ===================================================================== #
       # In this case we must determine the type in use.
@@ -619,66 +668,17 @@ class Pointer # === Fiddle::Pointer
     end
   end
 
-  # ========================================================================= #
-  # === is_read_only
-  # ========================================================================= #
-  def is_read_only(
-      current_widget = available_pointers?[self.object_id] # This will be an Array.
-    )
-    _pointer = current_widget.first # Not used currently in this method.
-    type     = current_widget.last
-    case type
-    # ======================================================================= #
-    # === :multiline_entry
-    # ======================================================================= #
-    when :multiline_entry
-      LibUI.multiline_entry_set_read_only(self, 1)
-    else
-      pp caller()
-      puts "#{type} (class #{type.class}) is not yet implemented in .padded=."
-    end
-  end
-
-  # ========================================================================= #
-  # === append_this_string
-  #
-  # This method can be used to append a String to an existing String.
-  # ========================================================================= #
-  def append_this_string(i)
-    ::LibUI.attributed_string_append_unattributed(self, i)
-  end
-
-  # ========================================================================= #
-  # === append_text_column
-  #
-  # This method is specifically used for libui-tables.
-  # ========================================================================= #
-  def append_text_column(text, a, b)
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    type = hash[object_id].last # The last entry contains the type.
-    case type
-    # ======================================================================= #
-    # === :button
-    # ======================================================================= #
-    when :table
-      LibUI.table_append_text_column(self, text, a, b)
-    else
-      e 'Not registered type in .append_text_column(): '+type.to_s
-    end
-  end
-
   # ========================================================================= #
   # === padded=
   #
   # Set a uniform padding via this method.
   # ========================================================================= #
   def padded=(
-      pad_n_px = 25,
+      pad_n_px = 25, # How much to pad in n px. LibUI currently does not allow for that, though.
       type     = nil
     )
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
+    hash = hash_fiddle_pointer_widgets?
     if type.nil?
       # ===================================================================== #
       # In this case we must determine the type in use.
@@ -689,6 +689,11 @@ class Pointer # === Fiddle::Pointer
     end
     case type
     # ======================================================================= #
+    # === :window
+    # ======================================================================= #
+    when :window
+      LibUI.window_set_margined(self, 1)
+    # ======================================================================= #
     # === :grid
     # ======================================================================= #
     when :grid
@@ -719,139 +724,8 @@ class Pointer # === Fiddle::Pointer
       pp caller()
       puts "#{type} (class #{type.class}) is not yet implemented in .padded=."
     end
-  end; alias set_padded padded= # === set_padded
-
-  # ========================================================================= #
-  # === disable                                                  (disable tag)
-  # ========================================================================= #
-  def disable(&block)
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    type = hash[object_id].last # The last entry contains the type.
-    case type
-    # ======================================================================= #
-    # === :button
-    # ======================================================================= #
-    when :button
-      LibUI.control_disable(self)
-    else
-      e 'Not registered type in .disable(): '+type.to_s
-    end
-  end
-
-  # ========================================================================= #
-  # === enable                                                   (enable tag)
-  # ========================================================================= #
-  def enable(&block)
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    type = hash[object_id].last # The last entry contains the type.
-    case type
-    # ======================================================================= #
-    # === :button
-    # ======================================================================= #
-    when :button
-      LibUI.control_enable(self)
-    else
-      e 'Not registered type in .enable(): '+type.to_s
-    end
-  end
-
-  # ========================================================================= #
-  # === populate
-  # ========================================================================= #
-  def populate(dataset)
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    type = hash[object_id].last
-    case type
-    # ======================================================================= #
-    # === :combobox
-    # ======================================================================= #
-    when :combobox
-      self.append_this_array(dataset)
-    end
-  end
-
-  # ========================================================================= #
-  # === is_padded
-  # ========================================================================= #
-  def is_padded
-    set_padded(1)
-  end
-
-  # ========================================================================= #
-  # === show_then_main_then_quit
-  #
-  # This method ultimately combines three other method calls.
-  # ========================================================================= #
-  def show_then_main_then_quit
-    LibUI.control_show(self)
-    main_then_quit
-  end; alias elegant_exit           show_then_main_then_quit # === elegant_exit
-       alias complex_finalizer      show_then_main_then_quit # === complex_finalizer
-       alias intelligent_close_down show_then_main_then_quit # === intelligent_close_down
-       alias intelligent_quit       show_then_main_then_quit # === intelligent_quit
-       alias intelligent_exit       show_then_main_then_quit # === intelligent_exit
-
-  # ========================================================================= #
-  # === on_clicked
-  #
-  # This method is in general called on a button-widget.
-  # ========================================================================= #
-  def on_clicked(&block)
-    LibUI.button_on_clicked(self, &block)
-  end; alias on_click_event on_clicked # === on_click_event
-
-  # ========================================================================= #
-  # === available_pointers?
-  # ========================================================================= #
-  def available_pointers?
-    LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-  end; alias main_hash? available_pointers? # === main_hash?
-
-  # ========================================================================= #
-  # === append_this_array
-  # ========================================================================= #
-  def append_this_array(array)
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    _this_widget = hash[object_id].first # This variable is currently not in use.
-    type        = hash[object_id].last
-    case type
-    # ======================================================================= #
-    # === :combobox
-    # ======================================================================= #
-    when :combobox
-      array.each {|this_entry|
-        LibUI.combobox_append(self, this_entry)
-      }
-      LibUI.combobox_set_selected(self, 0) # The first one will be active too.    
-    end
-  end
-
-  # ========================================================================= #
-  # === maximal
-  # ========================================================================= #
-  def maximal(this_widget, optional_padding = 1)
-    add(this_widget, optional_padding)
-  end
-
-  # ========================================================================= #
-  # === group_maximal
-  # ========================================================================= #
-  def group_maximal(*i)
-    i.flatten.each {|entry|
-      maximal(entry)
-    }
-  end
-
-  # ========================================================================= #
-  # === minimal
-  # ========================================================================= #
-  def minimal(this_widget, optional_padding = 0)
-    add(this_widget, optional_padding)
-  end
+  end; alias set_padded  padded= # === set_padded
+       alias set_padding padded= # === set_padding
 
   # ========================================================================= #
   # === text
@@ -872,7 +746,7 @@ class Pointer # === Fiddle::Pointer
     )
     i = i.to_s # Let's ensure we have a String past this point.
     object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
+    hash = hash_fiddle_pointer_widgets?
     _this_widget = hash[object_id].first # This variable is currently not in use.
     type        = hash[object_id].last
     case type
@@ -886,18 +760,6 @@ class Pointer # === Fiddle::Pointer
     end
   end; alias add_text text # === text
 
-  # ========================================================================= #
-  # === add_hsep
-  #
-  # This method adds a horizontal separator.
-  # ========================================================================= #
-  def add_hsep
-    object_id = self.object_id
-    hash = LibuiParadise::Extensions.hash_fiddle_pointer_widgets?
-    this_widget = hash[object_id].first
-    this_widget.add(::LibuiParadise::Extensions.horizontal_separator, 0)
-  end; alias add_horizontal_separator add_hsep # === add_horizontal_separator
-
   # ========================================================================= #
   # === active?
   # ========================================================================= #
@@ -910,7 +772,7 @@ class Pointer # === Fiddle::Pointer
     # === :checkbox
     # ======================================================================= #
     when :checkbox
-      checked = (UI.checkbox_checked(pointer) == 1)
+      checked = (::LibUI.checkbox_checked(pointer) == 1)
       return (checked == true)
     # ======================================================================= #
     # === :entry
@@ -921,41 +783,114 @@ class Pointer # === Fiddle::Pointer
       e 'An entry can not be "active". Check the code - there may '\
         'an erroneous assumption if the method .active? is called.'
     end
-  end; alias is_active? active? # === is_active?
+  end; alias is_active? active? # === is_active?
+
+  # ========================================================================= #
+  # === set_active
+  # ========================================================================= #
+  def set_active
+    current_widget = available_pointers?[self.object_id] # This will be an Array.
+    pointer = current_widget.first
+    type    = current_widget.last
+    case type
+    # ======================================================================= #
+    # === :checkbox
+    # ======================================================================= #
+    when :checkbox
+      ::LibUI.checkbox_set_checked(pointer, 1)
+    end
+  end; alias is_active     set_active # === is_active
+       alias is_now_active set_active # === is_now_active
+
+  # ========================================================================= #
+  # === set_inactive
+  #
+  # This method currently only works for libui-checkboxes.
+  # ========================================================================= #
+  def set_inactive
+    current_widget = available_pointers?[self.object_id] # This will be an Array.
+    pointer = current_widget.first
+    type    = current_widget.last
+    case type
+    # ======================================================================= #
+    # === :checkbox
+    # ======================================================================= #
+    when :checkbox
+      ::LibUI.checkbox_set_checked(pointer, 0)
+    end
+  end; alias is_inactive     set_inactive # === is_inactive
+       alias is_now_inactive set_inactive # === is_now_inactive
+
+  # ========================================================================= #
+  # === disable                                                  (disable tag)
+  # ========================================================================= #
+  def disable(&block)
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    type = hash[object_id].last # The last entry contains the type.
+    case type
+    # ======================================================================= #
+    # === :button
+    # ======================================================================= #
+    when :button
+      LibUI.control_disable(self)
+    else
+      e 'Not registered type in .disable(): '+type.to_s
+    end
+  end
 
   # ========================================================================= #
-  # === set_active
+  # === enable                                                   (enable tag)
   # ========================================================================= #
-  def set_active
-    current_widget = available_pointers?[self.object_id] # This will be an Array.
-    pointer = current_widget.first
-    type    = current_widget.last
+  def enable(&block)
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    type = hash[object_id].last # The last entry contains the type.
     case type
     # ======================================================================= #
-    # === :checkbox
+    # === :button
     # ======================================================================= #
-    when :checkbox
-      LibUI.checkbox_set_checked(pointer, 1)
+    when :button
+      LibUI.control_enable(self)
+    else
+      e 'Not registered type in .enable(): '+type.to_s
     end
-  end; alias is_active     set_active # === is_active
-       alias is_now_active set_active # === is_now_active
+  end
 
   # ========================================================================= #
-  # === set_inactive
+  # === is_padded
   # ========================================================================= #
-  def set_inactive
-    current_widget = available_pointers?[self.object_id] # This will be an Array.
-    pointer = current_widget.first
-    type    = current_widget.last
+  def is_padded
+    set_padded(1)
+  end
+
+  # ========================================================================= #
+  # === on_clicked
+  #
+  # This method is in general called on a button-widget. It allows us
+  # to simulate the action associated with clicking on a button.
+  # ========================================================================= #
+  def on_clicked(&block)
+    ::LibUI.button_on_clicked(self, &block)
+  end; alias on_click_event on_clicked # === on_click_event
+
+  # ========================================================================= #
+  # === populate
+  #
+  # This method will (try to) populate a combobox in LibUI.
+  # ========================================================================= #
+  def populate(dataset)
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    type = hash[object_id].last
     case type
     # ======================================================================= #
-    # === :checkbox
+    # === :combobox
     # ======================================================================= #
-    when :checkbox
-      LibUI.checkbox_set_checked(pointer, 0)
+    when :combobox
+      self.append_this_array(dataset)
     end
-  end; alias is_inactive     set_inactive # === is_inactive
-       alias is_now_inactive set_inactive # === is_now_inactive
+  end
 
   # ========================================================================= #
   # === child
@@ -971,7 +906,7 @@ class Pointer # === Fiddle::Pointer
   # === show_the_controls
   # ========================================================================= #
   def show_the_controls
-    LibUI.control_show(self)
+    ::LibUI.control_show(self)
   end; alias control_show show_the_controls # === control_show
 
   # ========================================================================= #
@@ -980,7 +915,7 @@ class Pointer # === Fiddle::Pointer
   # For now this only works on @main_window.
   # ========================================================================= #
   def is_margined(
-      i = LibuiParadise::Extensions.main_window?
+      i = LibuiParadise.main_window?
     )
     id = self.object_id
     hash = main_hash?
@@ -992,7 +927,7 @@ class Pointer # === Fiddle::Pointer
       # === :window
       # ===================================================================== #
       when :window
-        LibUI.window_set_margined(_.first, 1)
+        ::LibUI.window_set_margined(_.first, 1)
       else
         e 'The type '+type.to_s+' in is_margined() is currently not supported.'
       end
@@ -1009,6 +944,29 @@ class Pointer # === Fiddle::Pointer
   end; alias uses_a_margin is_margined # === uses_a_margin
        alias has_margin    is_margined # === has_margin
 
+  # ========================================================================= #
+  # === autotitle
+  # ========================================================================= #
+  def autotitle(
+      i = title?
+    )
+    if i and respond_to?(:set_title)
+      set_title(i)
+    end
+  end
+
+  # ========================================================================= #
+  # === add_hsep
+  #
+  # This method adds a horizontal separator.
+  # ========================================================================= #
+  def add_hsep
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    this_widget = hash[object_id].first
+    this_widget.add(::LibuiParadise.horizontal_separator, 0)
+  end; alias add_horizontal_separator add_hsep # === add_horizontal_separator
+
   # ========================================================================= #
   # === main_then_quit
   #
@@ -1017,6 +975,7 @@ class Pointer # === Fiddle::Pointer
   def main_then_quit
     ::LibUI.main
     ::LibUI.quit
+    #::LibUI.uninit # Trying this since as of November 2023. Nope, does not work.
   end
 
   # ========================================================================= #
@@ -1033,15 +992,183 @@ class Pointer # === Fiddle::Pointer
     }
   end; alias simple_exit close_properly # === simple_exit
        alias sane_exit   close_properly # === sane_exit
-       alias should_quit close_properly # === should_quit
        alias do_quit     close_properly # === should_quit
+       alias should_quit close_properly # === should_quit
+
+  # ========================================================================= #
+  # === fraction=
+  #
+  # This method is mostly a wrapper to reach ruby-gtk3 compatibility.
+  # ========================================================================= #
+  def fraction=(i = '')
+    i = i * 100
+    set_value(i)
+  end
+
+  # ========================================================================= #
+  # === left                                                       (left tag)
+  # ========================================================================= #
+  def left(
+      widget,
+      left  = LibuiParadise.counter_left?,
+      top   = LibuiParadise.counter_top?,
+      xspan = 1,
+      yspan = 1
+    )
+    object_id = self.object_id
+    hash = hash_fiddle_pointer_widgets?
+    type = hash[object_id].last # The last entry contains the type.
+    case left
+    # ======================================================================= #
+    # === :default
+    # ======================================================================= #
+    when :default
+      left = LibuiParadise.counter_left?
+    end
+    case top
+    # ======================================================================= #
+    # === :default
+    # ======================================================================= #
+    when :default
+      top = LibuiParadise.counter_top?
+    end
+    case type
+    # ======================================================================= #
+    # === :vbox
+    # ======================================================================= #
+    when :vbox
+      add(widget)
+    # ======================================================================= #
+    # === :grid
+    # ======================================================================= #
+    when :grid
+      hash_grid(
+        widget,
+        {
+          left:    left,
+          top:     top,
+          xspan:   xspan,
+          yspan:   yspan,
+          hexpand: 0,
+          halign:  0,
+          vexpand: 0,
+          valign:  0
+        }
+      )
+      LibuiParadise.counter_left += 1
+    else
+    end
+  end; alias middle left # === middle
+
+  # ========================================================================= #
+  # === hash_grid
+  #
+  # Usage example:
+  #
+  #   hash_grid(text('Yo6'), { left: 0, top: 3, xspan: 1, yspan: 1, hexpand: 0, halign: 0, vexpand: 0, valign: 0 })
+  #
+  # ========================================================================= #
+  def hash_grid(
+      pass_this_widget,
+      hash = {}
+    )
+    array_to_be_passed = []
+    # ======================================================================= #
+    # === :left
+    # ======================================================================= #
+    if hash.has_key? :left
+      array_to_be_passed << hash[:left]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :top
+    # ======================================================================= #
+    if hash.has_key? :top
+      array_to_be_passed << hash[:top]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :xspan
+    # ======================================================================= #
+    if hash.has_key? :xspan
+      array_to_be_passed << hash[:xspan]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :yspan
+    # ======================================================================= #
+    if hash.has_key? :yspan
+      array_to_be_passed << hash[:yspan]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :hexpand
+    # ======================================================================= #
+    if hash.has_key? :hexpand
+      array_to_be_passed << hash[:hexpand]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :halign
+    # ======================================================================= #
+    if hash.has_key? :halign
+      array_to_be_passed << hash[:halign]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :vexpand
+    # ======================================================================= #
+    if hash.has_key? :vexpand
+      array_to_be_passed << hash[:vexpand]
+    else
+      array_to_be_passed << 0
+    end
+    # ======================================================================= #
+    # === :valign
+    # ======================================================================= #
+    if hash.has_key? :valign
+      array_to_be_passed << hash[:valign]
+    else
+      array_to_be_passed << 0
+    end
+    ui_grid_append(pass_this_widget, *array_to_be_passed)
+  end; alias hash hash_grid # === hash
+
+  # ========================================================================= #
+  # === append_this_string
+  #
+  # This method can be used to append a String to an existing String.
+  # ========================================================================= #
+  def append_this_string(i)
+    ::LibUI.attributed_string_append_unattributed(self, i)
+  end
+
+  # ========================================================================= #
+  # === on_key_press_event
+  # ========================================================================= #
+  def on_key_press_event(&block)
+    # e 'NOT YET IMPLEMENTED.'
+  end
+
+  # ========================================================================= #
+  # === on_button_press_event
+  # ========================================================================= #
+  def on_button_press_event(&block)
+    # e 'NOT YET IMPLEMENTED'
+  end
 
   # ========================================================================= #
-  # === Skeleton methods:
+  # === Skeleton methods
   #
-  # A "skeleton" method is one that doesn't do anything right now. These
-  # were added to increase compatibility with the gtk_paradise gem in
-  # particular.
+  # A "skeleton" method is one that doesn't do anything right now.
+  # These were added to increase compatibility with the gtk_paradise
+  # gem in particular.
   #
   # Some of these skeleton methods may become real methods one day,
   # depending on how sophisticated the libui code will be - but
@@ -1071,13 +1198,13 @@ class Pointer # === Fiddle::Pointer
   def reset_the_internal_variables; end
   def editable=(true_or_false = false); end
   def set_max_length(n = 100); end
-  def use_gtk_paradise_project_css_file; end
   def append_project_CSS_file; end
   def infer_the_size_automatically; end
   def set_column_spacing(i = 1); end
   def set_row_spacing(i = 1); end
   def css_class(i = ''); end
   def set_border_width(i = 2); end
+      alias set_border_size set_border_width
   def set_colour(i = 'blue'); end
   def make_bold; end
   def set_name(i = ''); end
@@ -1092,6 +1219,7 @@ class Pointer # === Fiddle::Pointer
   def lightgreen; end
   def set_background_colour(i = ''); end
   def set_size_request(a = 42, b = 42); end
+  def set_size(a = 42, b = 42); end
   def the_first_entry_is_active; end
   def clear_old_datapoints; end
   def width_height(a = 500, b = 500); end
@@ -1103,6 +1231,7 @@ class Pointer # === Fiddle::Pointer
   def enable_free_form_css; end
   def show_all; end # This one here may become a real method one day, but right now I don't know how to enable that.
   def align_to_the_left; end
+  def align_to_the_right; end
   def yellowish_background; end
   def on_enter; end
   def on_value_changed; end
@@ -1123,7 +1252,9 @@ class Pointer # === Fiddle::Pointer
   def font=(i = ''); end
   def set_activates_default(i = true); end
   def enable_events; end
+  def enable_all_events; end
   def do_focus; end
+  def set_homogeneous(i = true); end
   def border(i = '', *a); end
   def fancy_hint(i = ''); end
   def fancy_hints(i = ''); end
@@ -1135,24 +1266,46 @@ class Pointer # === Fiddle::Pointer
   def spacing1=(i = 2); end
   def spacing2=(i = 2); end
   def spacing=(i = 0); end
+  def light_blue_background; end
+  def hover(i = :hack_26) # Currently not in use.
+  end
+  def set_font_size(i = :hack_26) # Currently not in use.
+  end
+  def maximize # This should maximize the window. It does not yet work.
+  end
+  def use_gtk_paradise_project_css_file; end
+  def on_hover_colour(i = '', &block); end
   def deselect; end
   # def fraction=(i = ''); end
   def return_all_entries
     []
   end
-
+  def drag_via_left_to_right(a, b)
+    vbox(a, b)
+  end
+  def default_styling(i = '')
+  end
   # ========================================================================= #
-  # === on_key_press_event
+  # === This is currently not in use.
   # ========================================================================= #
-  def on_key_press_event(&block)
-    # e 'NOT YET IMPLEMENTED.'
+  def padding=(i = 8)
   end
 
   # ========================================================================= #
-  # === on_button_press_event
+  # === uniform_spacing
   # ========================================================================= #
-  def on_button_press_event(&block)
-    # e 'NOT YET IMPLEMENTED'
+  def uniform_spacing(i = 8)
   end
 
+  def disable_user_input; end
+  def disallow_resizing
+  end
+  def on_enter_key_pressed(&block)
+  end
+  def use_this_font(i = '')
+  end
+  def set_default_size(a = 680, b = 560)
+  end
+  def top_left
+  end
 end; end