rbt 0.11.118 → 0.13.42

data/lib/rbt/gui/{shared_code/compile_program/compile_program_module.rb → universal_widgets/compile_program/compile_program.rb}

@@ -2,29 +2,40 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-# === RBT::GUI::Gtk::CompileProgramModule
+# === RBT::GUI::UniversalWidgets::CompileProgram
+#
+# This widget allows the user to compile a program from source, by
+# leveraging the functionality made available within the RBT project.
+#
+# Usage example:
+#
+#   RBT::GUI::UniversalWidgets::CompileProgram.new(ARGV)
 #
-# This ruby-gtk widget allows the user to compile a program from
-# source, by leveraging the functionality made available within
-# the RBT project.
 # =========================================================================== #
-# require 'rbt/gui/shared_code/compile_program/compile_program_module.rb'
-# include ::RBT::GUI::Gtk::CompileProgramModule
+# require 'rbt/gui/universal_widgets/compile_program/compile_program.rb'
 # =========================================================================== #
+require 'rbt/base/base.rb'
+
 module RBT
 
 module GUI
 
-module Gtk
+module UniversalWidgets
 
-module CompileProgramModule
+class CompileProgram < ::RBT::Base # === RBT::GUI::UniversalWidgets::CompileProgram
+
+  require 'universal_widgets/base_module/base_module.rb'
+  include ::UniversalWidgets::BaseModule
 
   require 'rbt/version/version.rb'
   require 'rbt/toplevel_methods/available_programs.rb'
   require 'rbt/toplevel_methods/misc.rb'
 
-  require 'gtk_paradise/requires/require_the_base_module.rb'
-  include ::Gtk::BaseModule
+  # ========================================================================= #
+  # === USE_THESE_CSS_RULES
+  # ========================================================================= #
+  USE_THESE_CSS_RULES = '
+  '
 
   # ========================================================================= #
   # === STATUS_BAR_CONTEXT_ID
@@ -39,17 +50,27 @@ module CompileProgramModule
   # ========================================================================= #
   # === WIDTH
   # ========================================================================= #
-  WIDTH  = 1580
+  WIDTH = '85% or minimum 1480px'
 
   # ========================================================================= #
   # === HEIGHT
   # ========================================================================= #
-  HEIGHT = 480
+  HEIGHT = '46% or minimum 520px'
 
   # ========================================================================= #
   # === USE_THIS_FONT
   # ========================================================================= #
-  USE_THIS_FONT = :dejavu_condensed_21
+  USE_THIS_FONT = :dejavu_condensed_20
+
+  # ========================================================================= #
+  # === LARGER_FONT
+  # ========================================================================= #
+  LARGER_FONT   = :dejavu_condensed_22
+
+  # ========================================================================= #
+  # === SMALLER_FONT
+  # ========================================================================= #
+  SMALLER_FONT  = :dejavu_condensed_18
 
   # ========================================================================= #
   # === initialize
@@ -64,11 +85,13 @@ module CompileProgramModule
       text_for_the_compile_button = 'Compile',
       run_already                 = true
     )
-    super(:vertical)
+    super(:vertical) if use_gtk3?
+    determine_the_GUI_to_be_used(commandline_arguments) # This must come first, even before reset().
     reset
     set_commandline_arguments(
       commandline_arguments
     )
+    on_delete_event_quit_the_application
     set_text_on_the_compile_button(
       text_for_the_compile_button
     )
@@ -79,13 +102,23 @@ module CompileProgramModule
   # === reset                                                     (reset tag)
   # ========================================================================= #
   def reset
+    super() if respond_to?(:super)
+    reset_the_shared_module # This can come early.
+    reset_the_base_module
     reset_the_internal_variables
     infer_the_namespace
     # ======================================================================= #
     # === @configuration
     # ======================================================================= #
     @configuration = [true, __dir__, namespace?]
+    # ======================================================================= #
+    # === Set the title, width, height and the font in use.
+    # ======================================================================= #
     title_width_height_font(TITLE, WIDTH, HEIGHT, USE_THIS_FONT)
+    if use_gtk3?
+      handle_CSS_rules
+    end
+    infer_the_size_automatically
     # ======================================================================= #
     # === @active_counter
     # ======================================================================= #
@@ -94,8 +127,38 @@ module CompileProgramModule
     # === @compile
     # ======================================================================= #
     @compile = nil
+  end
+
+  # ========================================================================= #
+  # === favicon?
+  # ========================================================================= #
+  def favicon?
+    :tabble
+  end
+
+  # ========================================================================= #
+  # === smaller_font?
+  # ========================================================================= #
+  def smaller_font?
+    SMALLER_FONT
+  end
+
+  # ========================================================================= #
+  # === handle_CSS_rules                                            (CSS tag)
+  # ========================================================================= #
+  def handle_CSS_rules
     use_gtk_paradise_project_css_file
-    infer_the_size_automatically
+    append_project_css_file
+    more_CSS_then_apply_it(USE_THESE_CSS_RULES)
+  end
+
+  # ========================================================================= #
+  # === reset_the_shared_module
+  #
+  # This method can be used for ruby-gtk3 and ruby-libui, among other
+  # toolkits.
+  # ========================================================================= #
+  def reset_the_shared_module
   end
 
   # ========================================================================= #
@@ -111,22 +174,20 @@ module CompileProgramModule
   def border_size?
     2
   end
-  
+
   # ========================================================================= #
-  # === create_the_labels
+  # === create_the_skeleton                        (create tag, skeleton tag)
   # ========================================================================= #
-  def create_the_labels
-    # ======================================================================= #
-    # === @label_compile
-    # ======================================================================= #
-    @label_compile = label(
-      'Input which program you wish to compile → '
-    )
-    @label_compile.make_selectable
-    @label_compile.set_font(:hack_18)
-    @label_compile.hint =
-      'Type <b>the name of the program</b> that you '\
-      '<b>wish to compile</b> here.'
+  def create_the_skeleton
+    create_the_labels
+    create_the_main_vbox_in_the_middle
+    create_gtk_entries_and_completions
+    create_the_statusbar
+    create_the_main_frame
+    create_the_buttons
+    create_the_checkboxes
+    create_the_widget_holding_information_about_a_particular_program
+    create_the_combo_box
   end
 
   require 'rbt/toplevel_methods/available_programs.rb'
@@ -137,30 +198,6 @@ module CompileProgramModule
     ::RBT.available_programs?
   end
 
-  # ========================================================================= #
-  # === create_the_statusbar
-  # ========================================================================= #
-  def create_the_statusbar
-    @status_bar = gtk_statusbar { :has_resize_grip }
-    if @status_bar.respond_to? :has_resize_grip=
-      @status_bar.has_resize_grip = true
-    end
-    @status_bar_context_id = @status_bar.get_context_id(STATUS_BAR_CONTEXT_ID)
-  end
-
-  # ========================================================================= #
-  # === create_the_main_gtk_frame
-  #
-  # This is the outer gtk-frame.
-  # ========================================================================= #
-  def create_the_main_gtk_frame
-    @frame = gtk_frame
-    @frame.set_border_width(15)
-    @frame.label_widget = gtk_label.set_markup(
-      %Q(<span size="large" weight="bold" foreground="#183503"> RBT Version: #{RBT::VERSION} </span>), true
-    )
-  end
-
   # ========================================================================= #
   # === set_text_on_the_compile_button
   # ========================================================================= #
@@ -178,7 +215,7 @@ module CompileProgramModule
   # ========================================================================= #
   def focus_on_entry
     @entry_compile_this_program.do_focus 
-  end
+  end; alias jump_into_the_main_entry focus_on_entry # === jump_into_the_main_entry
 
   # ========================================================================= #
   # === create_the_checkboxes
@@ -189,7 +226,8 @@ module CompileProgramModule
       'dependencies as well. This may lead to problems, though, so '\
       'it is almost always better to compile single programs, as-is.'
     @button_traditional     = check_button('traditional')
-    @button_traditional.hint = 'This will use the following target prefix: /usr/' 
+    @button_traditional.hint =
+      'This will use the following target prefix: <b>/usr/</b>' 
     @button_non_traditional = check_button('non-traditional')
     @button_non_traditional.hint = 'This will use the app-dir '\
       'prefix for the program that is to be compiled.'
@@ -214,66 +252,166 @@ module CompileProgramModule
   end
 
   # ========================================================================= #
-  # === connect_skeleton                                        (connect tag)
+  # === set_show_more_information_about_this_program
   # ========================================================================= #
-  def connect_skeleton
-    abort_on_exception
-    hbox_containing_the_label_compile_and_the_entry_compile_this_program = gtk_hbox
-    hbox_containing_the_label_compile_and_the_entry_compile_this_program.minimal(
-      @label_compile, 2
-    )
-    hbox_containing_the_label_compile_and_the_entry_compile_this_program.maximal(
-      @entry_compile_this_program, 2
-    )
-    hbox_containing_the_label_compile_and_the_entry_compile_this_program.minimal(
-      @button_compile, 2
+  def set_show_more_information_about_this_program(i)
+    @entry_show_information_about_this_program.set_text(i)
+    show_information_about_the_given_program
+  end
+
+  # ========================================================================= #
+  # === show_information_about_the_given_program
+  # ========================================================================= #
+  def show_information_about_the_given_program(
+      i = @entry_show_information_about_this_program.text?
     )
-    outer_vbox = gtk_vbox
-    outer_vbox.add(
-      hbox_containing_the_label_compile_and_the_entry_compile_this_program
+    if i.empty?
+      do_popup(
+        message:          'Please supply a name for a program.',
+        over_this_widget: @entry_show_information_about_this_program
+      )
+    else
+      # ===================================================================== #
+      # Next, we will build up the string that will be displayed in the
+      # text-buffer.
+      # ===================================================================== #
+      dataset = RBT.cookbook_dataset_for(i) # This will return a Hash.
+      binaries = dataset[:binaries]
+      _ = ''.dup
+      _ << '<b>short description</b>: '+dataset[:short_description].to_s+N
+      _ << '<b>description</b>: '+
+            RBT.word_wrap(dataset[:description].to_s, 45).strip+N
+      if binaries and !binaries.empty?
+        _ << '<b>binaries installed by this program</b>: '+
+              binaries.join(', ').strip+"\n"
+      end
+      _ << '<b>url1</b>: '+dataset[:url1].to_s+N
+      _ << '<b>url2</b>: '+dataset[:url2].to_s+N
+      _ << '<b>homepage</b>: '+dataset[:homepage].to_s+N
+      _ << '<b>last_update</b>: '+dataset[:last_update].to_s+N
+      # ===================================================================== #
+      # Modify the text. The variable next is a Gtk::TextView instance.
+      # ===================================================================== #
+      text_buffer?.set_text(_)
+      text_buffer?.do_markify
+    end
+  end
+
+  # ========================================================================= #
+  # === do_compile_program
+  #
+  # Use this is you want to compile something.
+  # ========================================================================= #
+  def do_compile_program(
+      _ = @entry_compile_this_program.text?
     )
+    if _.empty?
+      add_msg('Please supply a valid program name.')
+    else
+      e "Compiling #{_} now."
+      add_msg 'Trying to compile the program '\
+              'called `'+_+'` now. Start-Time: '+
+              return_current_time
+      compile_program_in_thread(_)
+    end
+  end; alias compile_program         do_compile_program # === compile_program
+       alias do_compile_the_program  do_compile_program # === do_compile_the_program
+       alias do_compile_this_program do_compile_program # === do_compile_this_program
+
+  require 'rbt/requires/require_the_installer_class.rb'
+  # ========================================================================= #
+  # === compile_program_in_thread
+  #
+  # The argument to this method should be the name of the program, such
+  # as "htop".
+  # ========================================================================= #
+  def compile_program_in_thread(i)
+    @thread = Thread.new {
+      @compile = RBT::Installer.new(i, :do_not_run_yet)
+      if ::RBT.is_this_program_included?(i)
+        set_show_more_information_about_this_program(i)
+      end
+      if @button_traditional.active?
+        _ = :traditional
+      elsif @button_non_traditional.active?
+        _ = :non_traditional
+      end
+      @compile.prefix = _
+      @compile.run
+      add_msg 'Finished compiling the program '\
+              'called `'+i.to_s+'`! End-Time: '+
+              return_current_time
+    }
+	  # @thread.join
+	  @thread = nil
+  end
+
+  # ========================================================================= #
+  # === add_msg
+  #
+  # Add a message to the statusbar.
+  # ========================================================================= #
+  def add_msg(i = 'Starting')
+    @status_bar.push(@status_bar_context_id, i)
+  end
 
+  # ========================================================================= #
+  # === create_the_buttons                          (buttons tag, button tag)
+  # ========================================================================= #
+  def create_the_buttons
     # ======================================================================= #
-    # Build up the vBox that is in the middle.
+    # === @button_kill_the_main_pid
     # ======================================================================= #
-    vbox_middle = vbox
-    vbox_middle.minimal(@button_check)
-    vbox_middle.minimal(@button_traditional)
-    vbox_middle.minimal(@button_non_traditional)
+    @button_kill_the_main_pid = button(
+      '_Stop the current compilation run', self, :use_mnemonics
+    ) {
+      :do_kill_the_main_pid
+    }
+    @button_kill_the_main_pid.clear_background
+    @button_kill_the_main_pid.bblack1
+    @button_kill_the_main_pid.set_size_request(120, 30)
+    @button_kill_the_main_pid.on_hover(:lightblue)
     # ======================================================================= #
-    # The arguments to .attach_defaults() are:
-    #
-    #   left_attach, right_attach, top_attach, bottom_attach
+    # === @button_compile
     #
+    # Add the compile-button next.
     # ======================================================================= #
-    @main_vbox_in_the_middle.minimal(vbox_middle)
-
-    outer_vbox.maximal(@main_vbox_in_the_middle, 4)
-    hbox1 = hbox
-    hbox1.minimal(@button_kill_the_main_pid)
-    outer_vbox.minimal(hbox1, 4)
-
-    @main_vbox_in_the_middle.maximal(
-      @widget_holding_information_about_a_particular_program, 1
-    )
+    @button_compile = button("_#{@text_on_the_compile_button}")
+    @button_compile.on_clicked { do_compile_program }
+    @button_compile.modify_background(:active,   :coral)
+    @button_compile.modify_background(:normal,   :cornsilk)
+    @button_compile.modify_background(:prelight, :aliceblue)
+    @button_compile.bblack2
+    @button_compile.hint =
+      'Compile the given program by <b>clicking on this button</b>.'
+  end
 
-    outer_vbox.minimal(@status_bar)
-    @frame.add(outer_vbox)
-    maximal(@frame, 8)
+  # ========================================================================= #
+  # === create_the_main_vbox_in_the_middle
+  # ========================================================================= #
+  def create_the_main_vbox_in_the_middle
+    @main_vbox_in_the_middle = create_vbox
   end
 
+  # ========================================================================= #
+  # === text_buffer_showing_information_about_the_given_program?
+  # ========================================================================= #
+  def text_buffer_showing_information_about_the_given_program?
+    @text_buffer_showing_information_about_the_given_program
+  end; alias text_buffer? text_buffer_showing_information_about_the_given_program? # === text_buffer?
+
   # ========================================================================= #
   # === create_the_widget_holding_information_about_a_particular_program (middle tag)
   # ========================================================================= #
   def create_the_widget_holding_information_about_a_particular_program
-    @widget_holding_information_about_a_particular_program = gtk_hbox
-    button = gtk_button("_Show information about\nthis program →")
+    @widget_holding_information_about_a_particular_program = create_hbox
+    button = create_button("_Show information about\nthis program →")
     button.bblack2
     button.modify_background(:active, :coral)
     button.modify_background(:normal, :cornsilk)
     button.modify_background(:prelight, :aliceblue)
-    button.fancy_tooltips = ' Clicking on this button will <b>display information '\
-                            ' about the program</b> on the right-hand side. '
+    button.hint = ' Clicking on this button will <b>display information '\
+                  ' about the program</b> on the right-hand side. '
     button.on_clicked {
       show_information_about_the_given_program
     }
@@ -286,13 +424,13 @@ module CompileProgramModule
     # Next add the user-input for the program the user wants to see
     # more information about.
     # ======================================================================= #
-    @entry_show_information_about_this_program = gtk_entry
+    @entry_show_information_about_this_program = create_entry
     @entry_show_information_about_this_program.bblack1
     @entry_show_information_about_this_program.center
     @entry_show_information_about_this_program.on_enter {
       show_information_about_the_given_program
     }
-    vbox = gtk_vbox
+    vbox = create_vbox
     _ = image_accessories_text_editor_symbolic_symbolic
     _.hint = 'Input the name of the program that you want to see '\
              'more information shown about, below this image.'
@@ -301,8 +439,9 @@ module CompileProgramModule
     @widget_holding_information_about_a_particular_program.minimal(
       vbox, 3
     )
-    @text_buffer_showing_information_about_the_given_program = gtk_text_buffer
-    @source_view_showing_information_about_the_given_program = gtk_text_view(
+    # Next create, then add, the text-buffer and text-view.
+    @text_buffer_showing_information_about_the_given_program = create_text_buffer
+    @source_view_showing_information_about_the_given_program = create_text_view(
       @text_buffer_showing_information_about_the_given_program
     )
     @source_view_showing_information_about_the_given_program.css_class('blightgreen1')
@@ -310,7 +449,7 @@ module CompileProgramModule
     @source_view_showing_information_about_the_given_program.set_size_request(
       400, 200
     )
-    @scrolled_window = gtk_scrolled_window(
+    @scrolled_window = create_scrolled_window(
       @source_view_showing_information_about_the_given_program
     )
     @widget_holding_information_about_a_particular_program.maximal(
@@ -319,41 +458,119 @@ module CompileProgramModule
   end
 
   # ========================================================================= #
-  # === create_the_main_vbox_in_the_middle
+  # === create_the_main_frame                                     (frame tag)
+  #
+  # This is the outer gtk-frame.
   # ========================================================================= #
-  def create_the_main_vbox_in_the_middle
-    @main_vbox_in_the_middle = gtk_vbox
+  def create_the_main_frame
+    @frame = create_frame
+    @frame.set_border_width(15)
+    @frame.label_widget = create_label.set_markup(
+      %Q(<span size="large" weight="bold" foreground="#183503"> RBT Version: #{RBT::VERSION} </span>), use_underline: true
+    )
+    @frame.label_widget.make_selectable
   end
 
   # ========================================================================= #
-  # === text_buffer_showing_information_about_the_given_program?
+  # === deselect_the_frame
   # ========================================================================= #
-  def text_buffer_showing_information_about_the_given_program?
-    @text_buffer_showing_information_about_the_given_program
-  end; alias text_buffer? text_buffer_showing_information_about_the_given_program? # === text_buffer?
+  def deselect_the_frame
+    @frame.label_widget.deselect
+  end
 
   # ========================================================================= #
-  # === create_skeleton                                          (create tag)
+  # === create_the_statusbar
   # ========================================================================= #
-  def create_skeleton
-    create_the_main_vbox_in_the_middle
-    create_gtk_entries_and_completions
-    create_the_labels
-    create_the_statusbar
-    create_the_main_gtk_frame
-    create_the_buttons
-    create_the_checkboxes
-    create_the_widget_holding_information_about_a_particular_program
-    create_gtk_combo_box
+  def create_the_statusbar
+    @status_bar = create_statusbar { :has_resize_grip }
+    if @status_bar.respond_to? :has_resize_grip=
+      @status_bar.has_resize_grip = true
+    end
+    @status_bar_context_id = @status_bar.get_context_id(STATUS_BAR_CONTEXT_ID)
   end
 
   # ========================================================================= #
-  # === create_gtk_combo_box
+  # === run                                                         (run tag)
+  # ========================================================================= #
+  def run
+    run_super
+  end
+
+  # ========================================================================= #
+  # === connect_the_skeleton                                    (connect tag)
+  # ========================================================================= #
+  def connect_the_skeleton
+    abort_on_exception
+
+    outer_vbox = create_vbox # A new vbox.
+
+    hbox_containing_the_label_compile_and_the_entry_compile_this_program = create_hbox
+    hbox_containing_the_label_compile_and_the_entry_compile_this_program.minimal(
+      @label_compile, 2
+    )
+    hbox_containing_the_label_compile_and_the_entry_compile_this_program.maximal(
+      @entry_compile_this_program, 2
+    )
+    hbox_containing_the_label_compile_and_the_entry_compile_this_program.minimal(
+      @button_compile, 2
+    )
+
+    outer_vbox.add(
+      hbox_containing_the_label_compile_and_the_entry_compile_this_program
+    )
+    # ======================================================================= #
+    # Build up the vBox that is in the middle.
+    # ======================================================================= #
+    vbox_middle = vbox
+    vbox_middle.minimal(@button_check)
+    vbox_middle.minimal(@button_traditional)
+    vbox_middle.minimal(@button_non_traditional)
+    # ======================================================================= #
+    # The arguments to .attach_defaults() are:
+    #
+    #   left_attach, right_attach, top_attach, bottom_attach
+    #
+    # ======================================================================= #
+    @main_vbox_in_the_middle.minimal(vbox_middle)
+
+    outer_vbox.maximal(@main_vbox_in_the_middle, 4)
+    hbox1 = hbox
+    hbox1.minimal(@button_kill_the_main_pid)
+    outer_vbox.minimal(hbox1, 4)
+
+    @main_vbox_in_the_middle.maximal(
+      @widget_holding_information_about_a_particular_program, 1
+    )
+
+    outer_vbox.minimal(@status_bar)
+    @frame.add(outer_vbox)
+
+    window = create_window_or_runner
+    window << @frame
+
+    properly_prepare_this_window(window,
+      {
+        title:       title?,
+        font:        font?,
+        width:       width?,
+        height:      height?,
+        padding:     padding?,
+        border_size: border_size?
+      }
+    )
+    window.show_all
+    window.top_left
+    do_all_startup_related_actions
+    run_main
+  end
+
+  # ========================================================================= #
+  # === create_the_combo_box
   #
   # It appears as if the gtk-combo-box is currently (March 2021) not in use.
   # ========================================================================= #
-  def create_gtk_combo_box
-    @combo_box_entry = gtk_combo_box_entry
+  def create_the_combo_box
+    @combo_box_entry = create_combo_box_entry
     available_programs?.each { |val|
       @combo_box_entry.append_text(val)
     }
@@ -393,14 +610,14 @@ module CompileProgramModule
     # This is the entry that will keep track of the programs that can
     # be compiled.
     # ======================================================================= #
-    @entry_compile_this_program = gtk_entry
+    @entry_compile_this_program = create_entry
     @entry_compile_this_program.bblack1
     @entry_compile_this_program.yellow_background
 
     completion = gtk_entry_completion
     @entry_compile_this_program.completion = completion
 
-    @list_store = gtk_list_store(String)
+    @list_store = ::Gtk::ListStore.new(String)
     available_programs?.each { |word|
       iter = @list_store.append
       iter[0] = word
@@ -447,169 +664,87 @@ module CompileProgramModule
   end
 
   # ========================================================================= #
-  # === create_the_buttons                          (buttons tag, button tag)
+  # === jump_into_the_main_textview
   # ========================================================================= #
-  def create_the_buttons
-    # ======================================================================= #
-    # === @button_kill_the_main_pid
-    # ======================================================================= #
-    @button_kill_the_main_pid = button(
-      '_Stop the current compilation run'
-    )
-    @button_kill_the_main_pid.on_clicked { do_kill_the_main_pid }
-    @button_kill_the_main_pid.clear_background
-    @button_kill_the_main_pid.bblack1
-    @button_kill_the_main_pid.set_size_request(120, 30)
-    @button_kill_the_main_pid.on_hover(:lightblue)
-    # ======================================================================= #
-    # === @button_compile
-    #
-    # Add the compile-button next.
-    # ======================================================================= #
-    @button_compile = button("_#{@text_on_the_compile_button}")
-    @button_compile.on_clicked { do_compile_program }
-    @button_compile.modify_background(:active,   :coral)
-    @button_compile.modify_background(:normal,   :cornsilk)
-    @button_compile.modify_background(:prelight, :aliceblue)
-    @button_compile.bblack2
-    @button_compile.hint =
-      'Compile the given program by <b>clicking on this button</b>.'
+  def jump_into_the_main_textview
+    @source_view_showing_information_about_the_given_program.do_focus
   end
 
   # ========================================================================= #
-  # === run                                                         (run tag)
+  # === deselect_the_first_label
   # ========================================================================= #
-  def run
-    create_skeleton_then_connect_skeleton
+  def deselect_the_first_label
+    @label_compile.deselect
   end
 
   # ========================================================================= #
-  # === RBT::GUI::Gtk::CompileProgramModule.run
+  # === create_the_labels
   # ========================================================================= #
-  def self.run(
-      i = ARGV
+  def create_the_labels
+    # ======================================================================= #
+    # === @label_compile
+    # ======================================================================= #
+    @label_compile = create_label(
+      'Input the program you wish to compile there → '
     )
-    require 'gtk_paradise/run'
-    _ = ::RBT::GUI::Gtk::CompileProgram.new(i)
-    r = ::Gtk.run
-    r << _
-    r.add_shortcut(1,  'focus_on_entry', :alt)
-    r.add_shortcut(:a, 'focus_on_entry', :alt)
-    r.modify_background(:normal, :white)
-    r.automatic_title
-    r.determine_the_size_from_the_child_widget
-    r.top_left_then_run
-  end
-
-  # ========================================================================= #
-  # === set_show_more_information_about_this_program
-  # ========================================================================= #
-  def set_show_more_information_about_this_program(i)
-    @entry_show_information_about_this_program.set_text(i)
-    show_information_about_the_given_program
+    @label_compile.make_selectable
+    @label_compile.use_this_font = :hack_18
+    @label_compile.hint =
+      'Type <b>the name of the program</b> that you '\
+      '<b>wish to compile</b> here.'
   end
 
   # ========================================================================= #
-  # === show_information_about_the_given_program
+  # === do_kill_the_main_pid
   # ========================================================================= #
-  def show_information_about_the_given_program(
-      i = @entry_show_information_about_this_program.text?
-    )
-    if i.empty?
-      do_popup(
-        message:          'Please supply a name for a program.',
-        over_this_widget: @entry_show_information_about_this_program
-      )
-    else
-      # ===================================================================== #
-      # Next, we will build up the string that will be displayed in the
-      # text-buffer.
-      # ===================================================================== #
-      dataset = RBT.cookbook_dataset_for(i) # This will return a Hash.
-      binaries = dataset[:binaries]
-      _ = ''.dup
-      _ << '<b>short description</b>: '+dataset[:short_description].to_s+N
-      _ << '<b>description</b>: '+
-            RBT.word_wrap(dataset[:description].to_s, 45).strip+N
-      if binaries and !binaries.empty?
-        _ << '<b>binaries installed by this program</b>: '+
-              binaries.join(', ').strip+"\n"
+  def do_kill_the_main_pid
+    if @compile
+      if is_on_roebe?
+        e ::Colours.steelblue(
+          'Now delegating towards the compile-object, to kill the main PID.'
+          )
       end
-      _ << '<b>url1</b>: '+dataset[:url1].to_s+N
-      _ << '<b>url2</b>: '+dataset[:url2].to_s+N
-      _ << '<b>homepage</b>: '+dataset[:homepage].to_s+N
-      _ << '<b>last_update</b>: '+dataset[:last_update].to_s+N
-      # ===================================================================== #
-      # Modify the text. The variable next is a Gtk::TextView instance.
-      # ===================================================================== #
-      text_buffer?.set_text(_)
-      text_buffer?.do_markify
+      @compile.kill_the_main_pid
     end
   end
 
   # ========================================================================= #
-  # === do_compile_program
-  #
-  # Use this is you want to compile something.
-  # ========================================================================= #
-  def do_compile_program(
-      _ = @entry_compile_this_program.text?
-    )
-    if _.empty?
-      add_msg('Please supply a valid program name.')
-    else
-      e "Compiling #{_} now."
-      add_msg 'Trying to compile the program '\
-              'called `'+_+'` now. Start-Time: '+
-              return_current_time
-      compile_program_in_thread(_)
-    end
-  end; alias compile_program         do_compile_program # === compile_program
-       alias do_compile_the_program  do_compile_program # === do_compile_the_program
-       alias do_compile_this_program do_compile_program # === do_compile_this_program
-
-  # ========================================================================= #
-  # === do_kill_the_main_pid
+  # === do_all_startup_related_actions
   # ========================================================================= #
-  def do_kill_the_main_pid
-    @compile.kill_the_main_pid if @compile
+  def do_all_startup_related_actions
+    Thread.new {
+      sleep 0.0002
+      deselect_the_frame
+      deselect_the_first_label
+      jump_into_the_main_textview
+      jump_into_the_main_entry
+    }
   end
 
-  require 'rbt/requires/require_the_installer_class.rb'
   # ========================================================================= #
-  # === compile_program_in_thread
-  #
-  # The argument to this method should be the name of the program, such
-  # as "htop".
+  # === RBT::GUI::Gtk::CompileProgram.run
   # ========================================================================= #
-  def compile_program_in_thread(i)
-    @thread = Thread.new {
-      @compile = RBT::Installer.new(i, :do_not_run_yet)
-      if ::RBT.is_this_program_included?(i)
-        set_show_more_information_about_this_program(i)
-      end
-      if @button_traditional.active?
-        _ = :traditional
-      elsif @button_non_traditional.active?
-        _ = :non_traditional
-      end
-      @compile.prefix = _
-      @compile.run
-      add_msg 'Finished compiling the program '\
-              'called `'+i.to_s+'`! End-Time: '+
-              return_current_time
-    }
-	  # @thread.join
-	  @thread = nil
-  end
+  def self.run(
+      i = ARGV
+    )
+    require 'gtk_paradise/run'
+    _ = ::RBT::GUI::Gtk::CompileProgram.new(i)
+    r = ::Gtk.run
+    _.set_parent_widget(r) # Must come before we enable the key-combinations.
+    r << _
+    r.add_shortcut(1,  'focus_on_entry', :alt)
+    r.add_shortcut(:a, 'focus_on_entry', :alt)
+    r.automatic_size_then_automatic_title
+    r.enable_quick_exit
+    r.set_background :white
+    r.top_left_then_run
+  end; self.instance_eval { alias start_gui_application run } # === RBT::GUI::Gtk::CompileProgram.start_gui_application
 
   # ========================================================================= #
-  # === add_msg
-  #
-  # Add a message to the statusbar.
+  # === RBT::GUI::UniversalWidgets::CompileProgram[]
   # ========================================================================= #
-  def add_msg(i = 'Starting')
-    @status_bar.push(@status_bar_context_id, i)
+  def self.[](i = ARGV)
+    new(i)
   end
 
 end; end; end
@@ -632,4 +767,8 @@ def self.return_gtk_widget(
   return result
 end
 
-end
+end
+
+if __FILE__ == $PROGRAM_NAME
+  RBT::GUI::UniversalWidgets::CompileProgram.new(ARGV)
+end # gui_rbt