ftp_paradise 1.4.5 → 1.5.4

data/lib/ftp_paradise/gui/{shared_code/ftp_paradise/ftp_paradise_module.rb → gtk3/ftp_client/ftp_client.rb}

@@ -2,60 +2,678 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-# === FtpParadise::GUI::Gtk::FtpParadiseModule
+# === FtpParadise::GUI::Gtk::FtpClient
 #
 # The purpose of this class is to provide a GTK-FTP Client, loosely
 # modelled after the client called "gftp".
 # =========================================================================== #
-# require 'ftp_paradise/gui/shared_code/ftp_paradise/ftp_paradise_module.rb'
-# include ::FtpParadise::GUI::Gtk::FtpParadiseModule
+# require 'ftp_paradise/gui/gtk3/ftp_client/ftp_client.rb'
+# FtpParadise::GUI::Gtk::FtpClient.run
 # =========================================================================== #
+require 'gtk_paradise/require_gtk3'
+
 module FtpParadise
 
 module GUI
 
 module Gtk
 
-module FtpParadiseModule
+class FtpClient < ::Gtk::Box # === FtpParadise::GUI::Gtk::FtpClient 
+
+  require 'ftp_paradise/requires/require_the_toplevel_methods.rb'
+  require 'ftp_paradise/entry/entry.rb'
+  require 'ftp_paradise/gui/gtk3/ftp_client/constants.rb'
+  require 'ftp_paradise/gui/gtk3/ftp_client/misc.rb'
 
-  require 'ftp_paradise/base/prototype.rb'
+  require 'ftp_paradise/base/base.rb'
   include ::FtpParadise::Base
 
-  require 'net/ftp'
+  require 'gtk_paradise/requires/require_the_base_module.rb'
+  include ::Gtk::BaseModule
 
-  require 'ftp_paradise/project/project.rb'
+  require 'ftp_paradise/colours/use_colours.rb'
+  include Colours
 
-  require 'ftp_paradise/constants/roebe_ftp_constants.rb'
+  require 'ftp_paradise/connection/connection.rb'
 
-  require 'gtk_paradise/widgets/gtk3/directory_content_widget/directory_content_widget.rb'
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      commandline_arguments = ARGV,
+      run_already           = true
+    )
+    super(:vertical)
+    reset
+    set_commandline_arguments(
+      commandline_arguments
+    )
+    run if run_already
+  end
 
-  require 'gtk_paradise/requires/require_the_base_module.rb'
-  include ::Gtk::BaseModule
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    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)
+    handle_CSS 
+    infer_the_size_automatically
+    # ======================================================================= #
+    # === @use_this_background_colour_for_the_entries
+    # ======================================================================= #
+    @use_this_background_colour_for_the_entries = '#d4ffd3' # A very light green background.
+    # ======================================================================= #
+    # === @ftp_connection
+    # ======================================================================= #
+    @ftp_connection = FtpParadise::Connection.new
+    # ======================================================================= #
+    # === @hash_remote_entries
+    # ======================================================================= #
+    @hash_remote_entries = {}
+    try_to_create_a_temporary_log_directory_and_cd_into_it_or_the_temp_directory
+  end
 
   # ========================================================================= #
-  # === NAMESPACE
+  # === handle_CSS                                                  (CSS tag)
   # ========================================================================= #
-  NAMESPACE = inspect
+  def handle_CSS
+    use_gtk_paradise_project_css_file
+    more_CSS '
+grid {
+    border: 1px dotted steelblue;
+    padding: 20px;
+  }'
+  end
 
   # ========================================================================= #
-  # === TITLE
+  # === padding?
   # ========================================================================= #
-  TITLE = 'FTP Client'
+  def padding?
+    0
+  end
 
   # ========================================================================= #
-  # === WIDTH
+  # === border_size?
   # ========================================================================= #
-  WIDTH = 1600
+  def border_size?
+    0
+  end
 
   # ========================================================================= #
-  # === HEIGHT
+  # === return_top_bar
   # ========================================================================= #
-  HEIGHT = 800
+  def return_top_bar
+    _ = default_header_bar { :with_close_button_and_inferred_title }
+    return _
+  end
 
   # ========================================================================= #
-  # === FTP_MAIN_ICON
+  # === deselect_the_main_entry
   # ========================================================================= #
-  FTP_MAIN_ICON = HOME_DIRECTORY_OF_USER_X+'DATA/images/PC/FTP/FTP.png'
+  def deselect_the_main_entry
+    Thread.new {
+      sleep 0.0001
+      @entry_connect_to_this_host.deselect_everything
+    }
+  end
+
+  # ========================================================================= #
+  # === set_port_to_use
+  # ========================================================================= #
+  def set_port_to_use(i)
+    @entry_port_to_use.set_text(i.to_s)
+  end
+
+  # ========================================================================= #
+  # === set_entry_username
+  # ========================================================================= #
+  def set_entry_username(i)
+    @entry_username.set_text(i)
+  end; alias set_the_username set_entry_username # === set_the_username
+
+  # ========================================================================= #
+  # === user_name?
+  # ========================================================================= #
+  def user_name?
+    @entry_username.text?
+  end; alias username? user_name? # === username?
+
+  # ========================================================================= #
+  # === set_the_password
+  # ========================================================================= #
+  def set_the_password(i)
+    @entry_password.set_text(i.to_s)
+  end
+
+  # ========================================================================= #
+  # === set_connect_to
+  # ========================================================================= #
+  def set_connect_to(i)
+    @entry_connect_to_this_host.set_text(i)
+  end
+
+  # ========================================================================= #
+  # === create_the_entries                           (entries tag, entry tag)
+  # ========================================================================= #
+  def create_the_entries
+    # ======================================================================= #
+    # === @entry_connect_to_this_host
+    # ======================================================================= #
+    @entry_connect_to_this_host = gtk_entry
+    @entry_connect_to_this_host.hint        = 'Specify the remote host here.'
+    @entry_connect_to_this_host.shadow_hint = 'Specify the remote host here.'
+    # ======================================================================= #
+    # === @entry_username
+    # ======================================================================= #
+    @entry_username = gtk_entry
+    @entry_username.hint        = 'Specify the user name here. This is '\
+      'the name that is to be used for the FTP login.'
+    @entry_username.shadow_hint = 'Specify the user name here.'
+    # ======================================================================= #
+    # === @entry_password
+    # ======================================================================= #
+    @entry_password = gtk_entry
+    @entry_password.hint        = "Specify the user's password here."
+    @entry_password.shadow_hint = "Specify the user's password here."
+    # ======================================================================= #
+    # === @entry_port_to_use
+    # ======================================================================= #
+    @entry_port_to_use = gtk_entry
+    @entry_port_to_use.hint        = 'Specify the port to use here.'
+    @entry_port_to_use.shadow_hint = 'Specify the port to use here.'
+    all_entries?.each {|this_entry|
+      this_entry.clear_background
+      this_entry.use_this_font(SMALLER_FONT)
+      this_entry.very_light_yellow_background
+      this_entry.bblack2
+      this_entry.pad8px
+      this_entry.center
+      uniform_width_and_height_for_this_entry(this_entry)
+    }
+  end
+
+  # ========================================================================= #
+  # === uniform_width_and_height_for_this_entry
+  # ========================================================================= #
+  def uniform_width_and_height_for_this_entry(this_entry)
+    this_entry.width_height(460, 22)
+  end; alias uniform_entry_width uniform_width_and_height_for_this_entry # === uniform_entry_width
+
+  # ========================================================================= #
+  # === entry_connect_to_this_host?
+  # ========================================================================= #
+  def entry_connect_to_this_host?
+    @entry_connect_to_this_host
+  end; alias entry_for_the_remote_host? entry_connect_to_this_host? # === entry_for_the_remote_host?
+
+  # ========================================================================= #
+  # === remote_host?
+  # ========================================================================= #
+  def remote_host?
+    entry_for_the_remote_host?.text?
+  end; alias remote_host_as_text? remote_host? # === remote_host_as_text?
+
+  # ========================================================================= #
+  # === is_on_roebe?
+  # ========================================================================= #
+  def is_on_roebe?
+    ::FtpParadise.is_on_roebe?
+  end
+
+  # ========================================================================= #
+  # === create_skeleton                            (create tag, skeleton tag)
+  # ========================================================================= #
+  def create_skeleton
+    create_the_statusbar
+    create_text_buffer
+    create_the_status_icon
+    create_the_entries
+    create_the_buttons # Must come before the middle grid is created.
+    create_the_middle_grid_containing_the_delete_and_download_functionality
+  end
+
+  # ========================================================================= #
+  # === create_the_status_icon
+  # ========================================================================= #
+  def create_the_status_icon
+    @status_icon = gtk_status_icon
+    if File.exist? FTP_MAIN_ICON
+      @status_icon.pixbuf = GdkPixbuf::Pixbuf.new(file: FTP_MAIN_ICON)
+    end
+    @status_icon.hint = 'StatusIcon'
+  end
+
+  # ========================================================================= #
+  # === create_text_buffer
+  # ========================================================================= #
+  def create_text_buffer
+    @text_buffer = gtk_text_buffer
+  end
+
+  # ========================================================================= #
+  # === password?
+  # ========================================================================= #
+  def password?
+    @entry_password.text?
+  end; alias user_password? password? # === user_password?
+
+  # ========================================================================= #
+  # === try_to_return_the_ftp_listing
+  # ========================================================================= #
+  def try_to_return_the_ftp_listing
+    begin
+      @ftp_connection.list
+    rescue Exception => error
+      pp error
+    end
+  end
+
+  # ========================================================================= #
+  # === update_the_buffer_containing_all_remote_entries
+  # ========================================================================= #
+  def update_the_buffer_containing_all_remote_entries(
+      list = try_to_return_the_ftp_listing
+    )
+    if list.is_a? Array
+      @hash_remote_entries.clear
+      array = list.map {|entry|
+        FtpParadise::Entry.new(entry)
+      }
+      array.each {|inner_entry|
+        @hash_remote_entries[inner_entry.filename?] = inner_entry
+      }
+      keys = @hash_remote_entries.keys
+      utf8_keys = keys.map {|most_inner_entry|
+        ::Gtk.to_utf8(most_inner_entry)
+      }
+      @text_buffer.set_text(utf8_keys.join("\n"))
+    end
+  end; alias update_the_buffer      update_the_buffer_containing_all_remote_entries # === update_the_buffer
+       alias update_the_main_buffer update_the_buffer_containing_all_remote_entries # === update_the_main_buffer
+
+  # ========================================================================= #
+  # === create_the_grid                                            (top grid)
+  # ========================================================================= #
+  def create_the_grid
+    grid = default_grid
+    grid.left(gtk_left_aligned_label('Connect to: '))
+    grid.middle(@entry_connect_to_this_host)
+    grid.right(return_combined_checkboxes_determining_the_transfer_mode)
+    grid.new_row
+    grid.left(gtk_left_aligned_label('Username: '))
+    grid.middle(@entry_username)
+    #grid.right(button2)
+    grid.new_row
+    grid.left(gtk_left_aligned_label('Password: '))
+    grid.middle(@entry_password)
+    grid.new_row
+    grid.left(gtk_left_aligned_label('Port to use: '))
+    grid.middle(@entry_port_to_use)
+    @grid = grid
+  end
+
+  # ========================================================================= #
+  # === return_combined_checkboxes_determining_the_transfer_mode
+  # ========================================================================= #
+  def return_combined_checkboxes_determining_the_transfer_mode
+    _ = hbox
+    @button_use_passive_mode = check_button_is_checked('Use _passive mode')
+    @button_use_active_mode = check_button('Use _active mode')
+    @button_use_passive_mode.on_button_press_event { |widget, event|
+      @button_use_passive_mode.switch_state
+      @button_use_active_mode.switch_state
+    }
+    @button_use_active_mode.on_button_press_event { |widget, event|
+      @button_use_passive_mode.switch_state
+      @button_use_active_mode.switch_state
+    }
+    _ << @button_use_passive_mode
+    _ << @button_use_active_mode
+    return _
+  end
+
+  # ========================================================================= #
+  # === run                                                         (run tag)
+  # ========================================================================= #
+  def run
+    super()
+    if File.exist? FtpParadise.my_ftp_file?
+      try_to_load_the_dataset_from_this_file(FtpParadise.my_ftp_file?)
+    end
+    deselect_the_main_entry
+    try_to_establish_a_ftp_connection if is_on_roebe?
+  end
+
+  # ========================================================================= #
+  # === entry_for_the_upload_this_local_file_functionality?
+  # ========================================================================= #
+  def entry_for_the_upload_this_local_file_functionality?
+    @entry_for_the_upload_local_file_functionality
+  end
+
+  # ========================================================================= #
+  # === try_to_load_the_dataset_from_this_file
+  # ========================================================================= #
+  def try_to_load_the_dataset_from_this_file(
+      i            = FtpParadise.my_ftp_file?,
+      use_this_key = 'bplaced'
+    )
+    if File.exist? i
+      dataset    = YAML.load_file(i)
+      bplaced    = dataset[use_this_key]
+      FtpParadise.determine_user_dataset_from_this_hash(bplaced)
+      # ===================================================================== #
+      # Set the values for the entries next:
+      # ===================================================================== #
+      set_connect_to(FtpParadise.remote_url?)
+      set_the_username(FtpParadise.login_name?)
+      set_the_password(FtpParadise.password?)
+      set_port_to_use(FtpParadise.port?)
+    end
+  end
+
+  # ========================================================================= #
+  # === entry_for_the_delete_remote_file_functionality?
+  # ========================================================================= #
+  def entry_for_the_delete_remote_file_functionality?
+    @entry_for_the_delete_remote_file_functionality
+  end
+
+  # ========================================================================= #
+  # === connect_skeleton                                        (connect tag)
+  # ========================================================================= #
+  def connect_skeleton
+    abort_on_exception
+    minimal(return_top_bar)
+    create_the_grid
+    minimal(@grid, 2)
+    minimal(horizontal_spacer)
+
+    button2 = button('List the FTP content')
+    button2.clear_background
+    button2.on_clicked {
+      if @ftp_connection and @ftp_connection.respond_to?(:list)
+        update_the_buffer_containing_all_remote_entries
+      end
+    }
+    button2.on_hover(:lightblue)
+
+    button1 = button('Establish a FTP connection here')
+    button1.clear_background
+    button1.on_hover(:lightblue)
+    button1.on_clicked {
+      try_to_establish_a_ftp_connection
+    }
+
+    box_with_buttons = hbox
+    box_with_buttons << button1
+    box_with_buttons << button2
+    minimal(box_with_buttons, 2)
+
+    hbox1 = gtk_hbox
+    hbox1.pad10px
+    hbox1.text 'Run this command on the remote FTP server: '
+    entry1 = gtk_entry
+    hbox1 << entry1
+    a_button = button('← Run this command')
+    a_button.on_clicked {
+      if @ftp_connection
+        @ftp_connection.sendcmd(entry1.text?)
+      end
+    }
+    hbox1 << a_button
+    minimal(hbox1, 5)
+    minimal(@middle_grid, 5)
+    text_view = gtk_text_view(@text_buffer)
+    scrolled_window = scrolled_window(text_view) { :always } 
+    maximal(scrolled_window)
+    minimal(@status_bar)
+  end
+
+  # ========================================================================= #
+  # === create_the_buttons                          (buttons tag, button tag)
+  # ========================================================================= #
+  def create_the_buttons
+    # ======================================================================= #
+    # === @button_upload_local_file
+    # ======================================================================= #
+    @button_upload_local_file = button('← Upload this local file')
+    @button_upload_local_file.hint = 
+      'Use this button if you wish to upload a local file.'
+    @button_upload_local_file.on_clicked {
+      do_upload_this_local_file
+    }
+    create_button_delete_remote_file
+  end
+
+  # ========================================================================= #
+  # === create_button_delete_remote_file
+  # ========================================================================= #    
+  def create_button_delete_remote_file
+    # ======================================================================= #
+    # === @button_delete_remote_file
+    # ======================================================================= #
+    @button_delete_remote_file = button('← Delete this remote file') # Or: Delete remote file.
+    @button_delete_remote_file.hint = 
+      'Use this button when you wish to remove a remote file.'
+    @button_delete_remote_file.on_clicked {
+      do_delete_remote_file
+    }
+  end
+
+  # ========================================================================= #
+  # === do_upload_this_local_file
+  # ========================================================================= #
+  def do_upload_this_local_file(
+      i = entry_for_the_upload_this_local_file_functionality?
+    )
+    @ftp_connection.upload_this_local_file(i.text?)
+  end
+
+  # ========================================================================= #
+  # === do_delete_remote_file                                    (delete tag)
+  #
+  # Wrapper to delete a remote file.
+  # ========================================================================= #
+  def do_delete_remote_file(
+      i = entry_for_the_delete_remote_file_functionality?
+    )
+    ftp_connection?.remove_file(i.text?) { :be_verbose }
+
+e 'DEBUG: THE FOLLOWING 3 LINES HAVE BEEN DISABLED FOR NOW'
+#  efancy selection?(:right)
+# @ftp_connection.remove_file( selection?(:right) )
+# update_everything
+update_the_buffer
+  end; alias try_to_delete_the_remote_file do_delete_remote_file # === try_to_delete_the_remote_file
+
+  # ========================================================================= #
+  # === try_to_cd_into_this_directory
+  # ========================================================================= #
+  def try_to_cd_into_this_directory(
+      i = @entry_for_the_local_working_directory.text?
+    )
+    cd(i)
+    @entry_for_the_local_working_directory.set_text(return_pwd)
+    @entry_for_the_local_working_directory.cursor_is_on_the_end
+  end
+
+  # ========================================================================= #
+  # === FtpParadise::GUI::Gtk::FtpClient.run
+  # ========================================================================= #
+  def self.run(
+      i = ARGV
+    )
+    require 'gtk_paradise/app/app.rb'
+    _ = ::FtpParadise::GUI::Gtk::FtpClient.new(i)
+    r = ::Gtk.run
+    r << _
+    r.automatic_size_then_automatic_title
+    r.enable_quick_exit
+    r.do_maximize
+    r.top_left_then_run
+  end
+
+  # ========================================================================= #
+  # === create_the_middle_grid_containing_the_delete_and_download_functionality
+  #
+  # This is the middle grid (middle tag).
+  # ========================================================================= #
+  def create_the_middle_grid_containing_the_delete_and_download_functionality
+    grid = default_grid
+
+    entry = gtk_entry
+    uniform_width_and_height_for_this_entry(entry)
+    a_button = button('← Download this remote file')
+    a_button.on_clicked {
+      if @ftp_connection
+        _ = entry.text?
+        @ftp_connection.try_to_download_this_remote_file(_) { :be_verbose }
+      end
+    }
+
+    grid.left(gtk_left_aligned_label('Download this remote file: '))
+    grid.middle(entry)
+    grid.right(a_button)
+    grid.new_row
+
+    @entry_for_the_delete_remote_file_functionality = gtk_entry
+    uniform_entry_width(@entry_for_the_delete_remote_file_functionality)
+    grid.left(gtk_left_aligned_label('Delete this remote file: '))
+    grid.middle(@entry_for_the_delete_remote_file_functionality)
+    grid.right(@button_delete_remote_file)
+    grid.new_row
+
+    # ======================================================================= #
+    # === @entry_for_the_upload_local_file_functionality
+    # ======================================================================= #
+    @entry_for_the_upload_local_file_functionality = gtk_entry
+    uniform_entry_width(@entry_for_the_upload_local_file_functionality)
+    grid.left(gtk_left_aligned_label('Upload this local file: '))
+    grid.middle(@entry_for_the_upload_local_file_functionality)
+    grid.right(@button_upload_local_file)
+    grid.new_row
+
+    # ======================================================================= #
+    # === @entry_for_the_local_working_directory
+    # ======================================================================= #
+    @entry_for_the_local_working_directory = gtk_entry
+    uniform_entry_width(@entry_for_the_local_working_directory)
+    grid.left(gtk_left_aligned_label('The current working directory is: '))
+    grid.middle(@entry_for_the_local_working_directory)
+    @entry_for_the_local_working_directory.set_text(return_pwd)
+    @entry_for_the_local_working_directory.on_enter {
+      try_to_cd_into_this_directory(@entry_for_the_local_working_directory.text?)
+    }
+    button_change_directory_into_this_target = button('← Change directory into')
+    button_change_directory_into_this_target.on_clicked {
+      try_to_cd_into_this_directory(@entry_for_the_local_working_directory.text?)
+    }
+    grid.right(button_change_directory_into_this_target)
+    grid.new_row
+
+    # ======================================================================= #
+    # === @entry_for_the_remote_working_directory
+    # ======================================================================= #
+    @entry_for_the_remote_working_directory = gtk_entry
+    uniform_entry_width(@entry_for_the_remote_working_directory)
+    grid.left(gtk_left_aligned_label('The remote working directory is: '))
+    grid.middle(@entry_for_the_remote_working_directory)
+    @entry_for_the_remote_working_directory.set_text('/')
+    @entry_for_the_remote_working_directory.on_enter {
+      try_to_cd_into_this_remote_directory(@entry_for_the_remote_working_directory.text?)
+    }
+    button_remote_change_directory_into_this_target = button('← Change remote directory into')
+    button_remote_change_directory_into_this_target.on_clicked {
+      try_to_cd_into_this_remote_directory(@entry_for_the_remote_working_directory.text?)
+    }
+    grid.right(button_remote_change_directory_into_this_target)
+    grid.new_row
+
+    @middle_grid = grid
+  end
+
+  # ========================================================================= #
+  # === try_to_cd_into_this_remote_directory
+  # ========================================================================= #
+  def try_to_cd_into_this_remote_directory(
+      i          = @entry_for_the_remote_working_directory.text?,
+      ftp_object = ftp_object?
+    )
+    ftp_object.remote_cd(i)
+    @entry_for_the_remote_working_directory.set_text(
+      ftp_object.remote_directory? # Always obtain the remote working directory.
+    )
+    @entry_for_the_remote_working_directory.cursor_is_on_the_end
+    update_the_main_buffer
+  end
+
+  # ========================================================================= #
+  # === create_the_statusbar
+  #
+  # Create the Statusbar.
+  # ========================================================================= #
+  def create_the_statusbar
+    @status_bar = gtk_statusbar
+    if @status_bar.respond_to?(:has_resize_grip=)
+      @status_bar.has_resize_grip = true
+    end
+    @status_bar_context_id = @status_bar.get_context_id('Gtk Ftp Client') 
+  end
+
+  # ========================================================================= #
+  # === add_status_message
+  #
+  # Use this to append to the Statusbar.
+  # ========================================================================= #
+  def add_status_message(i)
+    @status_bar.push(@status_bar_context_id, i)
+  end
+
+  # ========================================================================= #
+  # === try_to_establish_a_ftp_connection
+  #
+  # This method will try to establish a FTP connection to the remote
+  # host.
+  # ========================================================================= #
+  def try_to_establish_a_ftp_connection
+    e 'TODO: Change this to indicate otherwise. '\
+      'Connecting now to the remove host at '+
+      steelblue(remote_host_as_text?)
+    # Instantiate a new net-ftp object next:
+    @ftp_connection.connect(
+      user_name:   user_name?,
+      password:    password?,
+      remote_host: remote_host_as_text?
+    )
+    if @button_use_passive_mode.checked?
+      @ftp_connection.binary = true
+    else
+      @ftp_connection.binary = false
+    end
+    @ftp_connection.set_passive
+    update_the_buffer_containing_all_remote_entries
+  end
+
+# DEPRECATION STARTS HERE
+
+module DEPRECATED_FtpParadiseModule
+
+  require 'gtk_paradise/widgets/gtk3/directory_content_widget/directory_content_widget.rb'
+
+  # ========================================================================= #
+  # === NAMESPACE
+  # ========================================================================= #
+  NAMESPACE = inspect
 
   # ========================================================================= #
   # === SHALL_WE_DEBUG
@@ -97,17 +715,6 @@ module FtpParadiseModule
   # ========================================================================= #
   YES_THE_USER_IS_CONNECTED = 'Yes!'
 
-  # ========================================================================= #
-  # === MY_TEMP
-  # ========================================================================= #
-  if ENV['MY_TEMP']
-    MY_TEMP = ENV['MY_TEMP'].to_s+'/'
-  elsif File.directory?('/home/Temp/')
-    MY_TEMP = '/home/Temp/'
-  else
-    MY_TEMP = '/tmp/'
-  end
-
   # ========================================================================= #
   # === initialize
   # ========================================================================= #
@@ -123,23 +730,6 @@ module FtpParadiseModule
   # === reset                                                     (reset tag)
   # ========================================================================= #
   def reset
-    reset_the_internal_variables
-    # ======================================================================= #
-    # === @configuration
-    # ======================================================================= #
-    @configuration = [true, __dir__, NAMESPACE]
-    # ======================================================================= #
-    # === @title
-    # ======================================================================= #
-    @title  = TITLE
-    # ======================================================================= #
-    # === @width
-    # ======================================================================= #
-    @width  = WIDTH
-    # ======================================================================= #
-    # === @height
-    # ======================================================================= #
-    @height = HEIGHT
     # ======================================================================= #
     # === @ftp_connection
     # ======================================================================= #
@@ -168,9 +758,6 @@ module FtpParadiseModule
       @hash_user_data['port']      = DEFAULT_REMOTE_PORT
     end
     initialize_the_connection_image
-    set_use_this_font(:dejavu_condensed_21)
-    use_gtk_paradise_project_css_file
-    infer_the_size_automatically
   end
 
   # ========================================================================= #
@@ -183,43 +770,12 @@ module FtpParadiseModule
     @connection_image = gtk_image(
       ::FtpParadise.project_base_dir?+'images/connection_image.png'
     )
-    @connection_image.css_class('bblack1')
-  end
-
-  # ========================================================================= #
-  # === padding?
-  # ========================================================================= #
-  def padding?
-    2
-  end
-
-  # ========================================================================= #
-  # === border_size?
-  # ========================================================================= #
-  def border_size?
-    2
+    @connection_image.bblack1
   end
 
-  # ========================================================================= #
-  # === create_button_delete_remote_file
-  # ========================================================================= #    
-  def create_button_delete_remote_file
-    @button_delete_remote_file = gtk_button('Delete remote file')
-    @button_delete_remote_file.fancy_tooltips = 
-      'Use this when you wish to remove a remote file.'
-    @button_delete_remote_file.on_clicked {
-      do_delete_remote_file
-    }
-  end
 
-  # ========================================================================= #
-  # === create_skeleton                                          (create tag)
-  # ========================================================================= #
   def create_skeleton
     create_debug_button
-    create_button_delete_remote_file
-    create_status_icon
-    create_statusbar
     @grid_user_data = gtk_grid
     @grid_user_data.set_column_spacing(5)
     @grid_user_data.set_row_spacing(5)
@@ -298,7 +854,7 @@ module FtpParadiseModule
     vbox_is_the_user_connected = gtk_vbox
     vbox_is_the_user_connected.set_border_width(10)
     event_box_for_the_connection_image = gtk_event_box(@connection_image)
-    event_box_for_the_connection_image.fancy_tooltips = 
+    event_box_for_the_connection_image.hint = 
       'Click on this image to connect to the specified, remote host.'
     event_box_for_the_connection_image.on_clicked {
       do_connect_to_the_remote_host_specified
@@ -316,19 +872,19 @@ module FtpParadiseModule
     # ======================================================================= #
     frame_action_to_perform = gtk_frame
     frame_action_to_perform.set_text(' Action to perform: ')
-    frame_action_to_perform.label_widget.fancy_tooltips =
+    frame_action_to_perform.label_widget.hint =
       'Denote via this widget which action is to be performed.'
     vbox_action_to_perform = gtk_vbox
     vbox_action_to_perform.set_border_width(10)
     @button_upload = button('Upload')
-    @button_upload.fancy_tooltips = 
+    @button_upload.hint = 
       '<b>Upload</b> the selected local file to the remote host.'
     @button_upload.on_clicked {
       do_upload_the_selected_file
     }
     vbox_action_to_perform.add(@button_upload)
     @button_download = button('Download')
-    @button_download.fancy_tooltips = 
+    @button_download.hint = 
       '<b>Download</b> the selected (<b>remote</b>) files/directories.'
     @button_download.on_clicked {
       do_download_the_remote_file_or_directory
@@ -402,12 +958,6 @@ module FtpParadiseModule
     do_style_all_buttons_in_a_uniform_manner
   end
 
-  # ========================================================================= #
-  # === user_password?
-  # ========================================================================= #
-  def user_password?
-    @entry_user_password.text?
-  end
 
   # ========================================================================= #
   # === remote_url?
@@ -429,13 +979,11 @@ module FtpParadiseModule
   def self.run(
       i = ARGV
     )
-    require 'gtk_paradise/run'
     _ = ::FtpParadise::GUI::Gtk::FtpParadise.new(i)
     r = ::Gtk.run
     r << _
     r.set_size_request(_.width?, _.height?)
     r.automatic_title
-    r.top_left_then_run
   end
 
   # ========================================================================= #
@@ -478,13 +1026,6 @@ module FtpParadiseModule
     end
   end
 
-  # ========================================================================= #
-  # === is_on_roebe?
-  # ========================================================================= #
-  def is_on_roebe?
-    ::FtpParadise.is_on_roebe?
-  end
-
   # ========================================================================= #
   # === do_connect_to_the_remote_host_specified
   #
@@ -536,7 +1077,6 @@ module FtpParadiseModule
   # === run                                                         (run tag)
   # ========================================================================= #
   def run
-    create_skeleton_then_connect_skeleton
     do_connect if is_on_roebe? # Connect at once on my home system.
   end
 
@@ -553,70 +1093,18 @@ module FtpParadiseModule
     }
   end
 
-  # ========================================================================= #
-  # === add_status_message
-  #
-  # Use this to append to the Statusbar.
-  # ========================================================================= #
-  def add_status_message(i)
-    @status_bar.push(@status_bar_context_id, i)
-  end
-
-  # ========================================================================= #
-  # === create_status_icon
-  # ========================================================================= #
-  def create_status_icon
-    @status_icon = gtk_status_icon
-    if File.exist? FTP_MAIN_ICON
-      @status_icon.pixbuf = GdkPixbuf::Pixbuf.new(file: FTP_MAIN_ICON)
-    end
-    @status_icon.fancy_tooltips = 'StatusIcon'
-  end
-
-  # ========================================================================= #
-  # === create_statusbar
-  #
-  # Create the Statusbar.
-  # ========================================================================= #
-  def create_statusbar
-    @status_bar = gtk_statusbar
-    if @status_bar.respond_to?(:has_resize_grip=)
-      @status_bar.has_resize_grip = true
-    end
-    @status_bar_context_id = @status_bar.get_context_id('Gtk Ftp Client') 
-  end
-
   # ========================================================================= #
   # === create_debug_button                         (debug tag, debug button)
   # ========================================================================= #
   def create_debug_button
     @button_debug = gtk_button('_Debug') # The debug-button.
     @button_debug.on_clicked {
-      e 'Debugging FTP Client.'
+      e 'Debugging the FTP Client next.'
       ecomment ('The password is: ').ljust(20)+password?
       ecomment 'The login name is: '+username?, token: ':'
     }
   end
 
-  # ========================================================================= #
-  # === user_name?
-  # ========================================================================= #
-  def user_name?
-    @entry_username.text?
-  end; alias username? user_name? # === username?
-
-  # ========================================================================= #
-  # === do_delete_remote_file
-  #
-  # Wrapper to delete a remote file.
-  # ========================================================================= #
-  def do_delete_remote_file
-    ewarn 'Deleting this remote file:'
-    efancy selection?(:right)
-    @ftp_connection.remove_file( selection?(:right) )
-    update_everything
-  end
-
   # ========================================================================= #
   # === output_coloured_line
   #
@@ -636,7 +1124,7 @@ module FtpParadiseModule
   def return_default_user_name_based_on_selected_host(
       selected_host = host?
     )
-    selected_host = FtpParadise::RoebeFtpConstants.
+    selected_host = FtpParadise.
                     return_user_name_based_on_given_host(selected_host)
     return selected_host
   end
@@ -672,10 +1160,12 @@ module FtpParadiseModule
     @directory_content_widget1
   end
 
+end
+
 end; end; end
 
 # =========================================================================== #
-# === FtpParadise.do_start_gui
+# === FtpParadise.do_start_the_gui
 #
 # This will output what will be done, then start the GUI bindings.
 #
@@ -684,17 +1174,11 @@ end; end; end
 #   ftpparadise --gui
 #
 # =========================================================================== #
-def self.do_start_gui
+def self.do_start_the_gui
   opnn; puts 'We will next start the GUI.'
-  FtpParadise::GUI::Gtk::FtpParadiseModule.start_gtk
-end
-
-# =========================================================================== #
-# === FtpParadise.start_gtk
-# =========================================================================== #
-def self.start_gtk
-  FtpParadise::GUI::Gtk::FtpParadiseModule.run
-end
+  FtpParadise::GUI::Gtk::FtpClient.run(ARGV)
+end; self.instance_eval { alias do_start_gui do_start_the_gui } # === FtpParadise.do_start_gui
+     self.instance_eval { alias start_gtk    do_start_the_gui } # === FtpParadise.start_gtk
 
 # =========================================================================== #
 # === FtpParadise.gtk_widget
@@ -703,7 +1187,11 @@ end
 # other applications.
 # =========================================================================== #
 def self.gtk_widget
-  FtpParadise::GUI::Gtk::FtpParadiseModule
+  FtpParadise::GUI::Gtk::FtpClient
+end
+
 end
 
+if __FILE__ == $PROGRAM_NAME
+  FtpParadise::GUI::Gtk::FtpClient.run
 end