multimedia_paradise 1.1.314

data/lib/multimedia_paradise/gui/gtk3/radio/radio.rb

@@ -0,0 +1,698 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'multimedia_paradise/gui/gtk3/radio/radio.rb'
+# ::MultimediaParadise::GUI::Gtk::Radio.new(ARGV)
+# =========================================================================== #
+require 'gtk_paradise/require_gtk3'
+
+module MultimediaParadise
+
+module GUI
+
+module Gtk
+
+class Radio < ::Gtk::Box # === MultimediaParadise::GUI::Gtk::Radio 
+
+  require 'gtk_paradise/requires/require_the_base_module.rb'
+  include ::Gtk::BaseModule
+
+  require 'gtk_paradise/widgets/gtk3/maximize_button/maximize_button.rb'
+  require 'gtk_paradise/widgets/gtk3/mini_clock/mini_clock.rb'
+  require 'multimedia_paradise/project/project.rb'
+  require 'multimedia_paradise/constants/file_constants.rb'
+  require 'multimedia_paradise/version/version.rb'
+  require 'multimedia_paradise/toplevel_methods/is_on_roebe.rb'
+  require 'multimedia_paradise/toplevel_methods/radio.rb'
+  require 'multimedia_paradise/gui/gtk3/widget_increase_or_decrease_audio/widget_increase_or_decrease_audio.rb'
+  require 'multimedia_paradise/gui/gtk3/radio/misc.rb'
+
+  # ========================================================================= #
+  # === TITLE
+  # ========================================================================= #
+  TITLE = 'Play from a radio station'
+
+  # ========================================================================= #
+  # === MultimediaParadise::GUI::Gtk::Radio.title?
+  # ========================================================================= #
+  def self.title?
+    TITLE
+  end
+
+  # ========================================================================= #
+  # === HOMEPAGE_OF_THIS_PROJECT
+  # ========================================================================= #
+  HOMEPAGE_OF_THIS_PROJECT = 'https://rubygems.org/gems/multimedia_paradise'
+
+  # ========================================================================= #
+  # === WIDTH
+  # ========================================================================= #
+  WIDTH = '84% or minimum 1720px'
+  
+  # ========================================================================= #
+  # === HEIGHT
+  # ========================================================================= #
+  HEIGHT = '88% or minimum 1540px'
+
+  # ========================================================================= #
+  # === DEFAULT_STREAM
+  # ========================================================================= #
+  DEFAULT_STREAM = 'https://orf-live.ors-shoutcast.at/oe3-q2a.m3u'
+
+  # ========================================================================= #
+  # === FONT_FAMILY_TO_USE
+  # ========================================================================= #
+  FONT_FAMILY_TO_USE = 'DejaVu Sans Mono'
+
+  # ========================================================================= #
+  # === FONT_SIZE
+  # ========================================================================= #
+  FONT_SIZE = '20'
+
+  # ========================================================================= #
+  # === SMALLER_FONT_SIZE
+  # ========================================================================= #
+  SMALLER_FONT_SIZE = '16'
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      commandline_arguments = ARGV,
+      run_already           = true
+    )
+    super(:vertical, 2)
+    reset
+    set_commandline_arguments(
+      commandline_arguments
+    )
+    if commandline_arguments
+      set_parent(
+        commandline_arguments.first
+      )
+    end
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    infer_the_namespace
+    reset_the_internal_variables
+    # ======================================================================= #
+    # === @configuration
+    # ======================================================================= #
+    @configuration = [true, __dir__, namespace?]
+    # ======================================================================= #
+    # === Set the title, width, height and the font in use.
+    # ======================================================================= #
+    title_width_height_font(TITLE, WIDTH, HEIGHT, "#{FONT_FAMILY_TO_USE} #{FONT_SIZE}")
+    handle_CSS 
+    infer_the_size_automatically
+    # ======================================================================= #
+    # === @capture_the_stream
+    #
+    # By default we will NOT capture the audio stream. On roebe-systems
+    # we will, though.
+    # ======================================================================= #
+    if ::MultimediaParadise.is_on_roebe?
+      @capture_the_stream = true
+    else # else for other users, this is the default
+      @capture_the_stream = false
+    end
+    # ======================================================================= #
+    # === @pid
+    #
+    # The PID will be stored in this variable.
+    # ======================================================================= #
+    @pid = nil
+    # ======================================================================= #
+    # === @use_this_player_for_capturing_the_audio_stream
+    #
+    # This variable specifies which audio-player is used for capturing
+    # the remote stream.
+    # ======================================================================= #
+    @use_this_player_for_capturing_the_audio_stream = :mpv # :mplayer
+    # ======================================================================= #
+    # === @use_this_colour_for_the_tooltip_url
+    #
+    # Denote the colour for the tooltip URL.
+    # ======================================================================= #
+    @use_this_colour_for_the_tooltip_url = :steelblue
+    # ======================================================================= #
+    # === @this_button_is_now_playing
+    # ======================================================================= #
+    @this_button_is_now_playing = nil
+  end
+
+  # ========================================================================= #
+  # === padding?
+  # ========================================================================= #
+  def padding?
+    4
+  end
+
+  # ========================================================================= #
+  # === border_size?
+  # ========================================================================= #
+  def border_size?
+    2
+  end
+
+  # ========================================================================= #
+  # === do_debug_this_widget
+  # ========================================================================= #
+  def do_debug_this_widget
+    e 'Currently this functionality is not implemented '\
+      '(January 2021) - somehow class Gtk::DebugWidget'
+    e 'has to be improved be found ...'
+    # ::Gtk::DebugWidget.new
+  end
+
+  # ========================================================================= #
+  # === return_the_main_entry_for_the_streams
+  # ========================================================================= #
+  def return_the_main_entry_for_the_streams
+    @entry_stream = gtk_entry
+    @entry_stream.width_height(920, 44)
+    @entry_stream.center
+    @entry_stream.set_text(DEFAULT_STREAM)
+    @entry_stream.pad2px
+    @entry_stream.yellow_background
+    @entry_stream.bblack1
+    @entry_stream.set_font(smaller_font?)
+    @entry_stream.hint = 'Input the main URL here for the radio '\
+      'stream in use. Alternatively click on one of the buttons '\
+      'above; the current remote URL in use will then be shown '\
+      'in the entry above.'
+    @entry_stream.on_enter {
+      do_all_actions_associated_when_an_actionable_radio_button_was_clicked
+    }
+    return @entry_stream
+  end
+
+  # ========================================================================= #
+  # === create_the_grid
+  # ========================================================================= #
+  def create_the_grid
+    @grid = gtk_grid
+    @grid.set_column_spacing(4)
+    @grid.set_row_spacing(4)
+    @grid.pad2px
+  end
+
+  # ========================================================================= #
+  # === populate_the_grid
+  # ========================================================================= #
+  def populate_the_grid
+    @grid.reset_the_counter
+    @grid.left(return_the_label_where_the_stream_is_saved_locally)
+    @grid.right(return_the_entry_where_the_stream_is_saved_locally)
+    @grid.new_row
+    @grid.left(return_the_label_containing_the_main_entry_for_the_streams)
+    @grid.right(return_the_main_entry_for_the_streams)
+  end
+
+  # ========================================================================= #
+  # === create_skeleton                            (create tag, skeleton tag)
+  # ========================================================================= #
+  def create_skeleton
+    create_the_stop_playback_button
+    create_the_menu
+    create_the_top_bar # Must come after create_the_menu().
+    create_labels
+    create_the_entries
+    create_the_grid
+    create_status_icon
+    create_statusbar
+  end
+
+  # ========================================================================= #
+  # === reset_all_gtk_labels
+  # ========================================================================= #
+  def reset_all_gtk_labels
+    @label_displaying_the_radio_station.clear
+  end
+
+  # ========================================================================= #
+  # === create_statusbar
+  # ========================================================================= #
+  def create_statusbar
+    @status_bar = gtk_status_bar
+  end
+
+  # ========================================================================= #
+  # === create_status_icon
+  # ========================================================================= #
+  def create_status_icon(
+      i = FILE_RADIO_IMAGE
+    )
+    @status_icon = gtk_status_icon(i)
+    @status_icon.hint = ' <b>Play</b> from radio station '
+  end
+
+  # ========================================================================= #
+  # === maximize_button?
+  # ========================================================================= #
+  def maximize_button?
+    @maximize_button
+  end
+
+  # ========================================================================= #
+  # === this_button_is_now_playing
+  # ========================================================================= #
+  def this_button_is_now_playing(button)
+    @this_button_is_now_playing = button
+  end
+
+  # ========================================================================= #
+  # === check_for_the_title_after_a_brief_delay
+  # ========================================================================= #
+  def check_for_the_title_after_a_brief_delay(
+      button       = @this_button_is_now_playing,
+      delay_to_use = 2200
+    )
+    GLib::Timeout.add(delay_to_use) {
+      this_radio_station = button.label.to_s.strip
+      if this_radio_station =~ /^\d{1,2}$/
+        # =================================================================== #
+        # In this case we have to change the title. We need to access the 
+        # elements 0,2,4,6 and so forth, and disregard the other entries. 
+        # So, entry number 1 becomes 0, entry number 2 becomes 2, entry 
+        # number 3 becomes 4, entry number 4 becomes 6, and so forth.
+        # The formula is thus: 2 * (n-1)
+        # =================================================================== #
+        this_radio_station = 2 * (this_radio_station.to_i - 1)
+        this_radio_station = @array_buttons[this_radio_station].label.to_s
+      end
+      _ = "Now playing from this radio station: "\
+          "#{this_radio_station}".dup
+      if MultimediaParadise.title_of_the_audio_file?
+        _ << "\nThe title is: #{MultimediaParadise.title_of_the_audio_file?}"
+      end
+      # ===================================================================== #
+      # Finally, propagate our findings to the correct gtk-label in use:
+      # ===================================================================== #
+      @label_displaying_the_radio_station.set_text(_)
+      @label_displaying_the_radio_station.make_bold
+      @label_displaying_the_radio_station.make_selectable
+      false
+    }
+  end
+
+  # ========================================================================= #
+  # === do_all_actions_associated_when_an_actionable_radio_button_was_clicked (clicked tag)
+  #
+  # This method bundles together all actions associated with the main
+  # button-click event. It will play the remote URL stream upon
+  # a button-click event.
+  # ========================================================================= #
+  def do_all_actions_associated_when_an_actionable_radio_button_was_clicked(
+      use_this_remote_URL    = @entry_stream.text?,
+      capture_into_this_file = :pwd_or_user_supplied_value,
+      button                 = nil
+    )
+    do_all_the_actions_associated_when_the_button_stop_playback_was_clicked
+    case capture_into_this_file
+    # ======================================================================= #
+    # === :pwd_or_user_supplied_value
+    # ======================================================================= #
+    when :pwd_or_user_supplied_value,
+         :default,
+         :default_capture_stream
+      capture_into_this_file = return_capture_into_the_default_file
+      _ = save_the_stream_into_which_file?
+      if _ and !_.empty?
+        capture_into_this_file = _.dup
+      end
+    # ======================================================================= #
+    # === :pwd
+    # ======================================================================= #
+    when :pwd
+      capture_into_this_file = return_capture_into_the_default_file
+    end
+    # ======================================================================= #
+    # Next, make the stop-playback button clickable again.
+    # ======================================================================= #
+    make_the_stop_playback_button_clickable_again
+    e
+    e
+    e "#{::Colours.rev}The remote URL is:"
+    e
+    e ::Colours.steelblue("  #{use_this_remote_URL}")
+    e
+    # ======================================================================= #
+    # The next line of code changes the gtk-entry where the user stores
+    # the .mp3 file, but since as of 30.09.2020 the user is able to
+    # control it. Only if it is empty will a sane default value be
+    # used.
+    # ======================================================================= #
+    if @entry_save_into_this_file.empty?
+      @entry_save_into_this_file.set_text(capture_into_this_file)
+    end
+    check_for_the_title_after_a_brief_delay(button) if button
+    set_url_to_use(use_this_remote_URL)
+    set_status_bar_message(use_this_remote_URL)
+    if button
+      this_button_is_now_playing(button)
+      _ = "Radio station: #{button.label}".dup
+      if MultimediaParadise.title_of_the_audio_file? and
+        !MultimediaParadise.title_of_the_audio_file?.empty?
+        _ << "\nTitle is: #{MultimediaParadise.title_of_the_audio_file?}"
+      end
+      @label_displaying_the_radio_station.set_text(_)
+      @label_displaying_the_radio_station.make_bold
+      @label_displaying_the_radio_station.center
+    end
+    do_play_from_this_stream(use_this_remote_URL, capture_into_this_file)
+    # The next line was disabled as of May 2022:
+    # do_grey_out_all_buttons_except_for_the_stop_playback_button
+  end
+
+  # ========================================================================= #
+  # === do_play_from_this_stream
+  # ========================================================================= #
+  def do_play_from_this_stream(
+      i                      = @entry_stream.text?,
+      capture_into_this_file = nil
+    )
+    # ======================================================================= #
+    # Build up the command we wish to use next.
+    # ======================================================================= #
+    use_this_command = "mpv #{i}".dup
+    if capture_into_this_file
+      use_this_command << ' --stream-record="'+capture_into_this_file+'"'
+    end
+    e ::Colours.steelblue(use_this_command)
+    # @pid = spawn(use_this_command)
+    io_object = IO.popen(use_this_command, 'r+')
+    @pid = io_object.pid
+    if is_on_roebe?
+      e 'The PID is: '+::Colours.steelblue(@pid)
+    end
+    Thread.new {
+      # Process.wait(@pid)
+      io_object.each { |line|
+        if line.start_with? ' icy-title: '
+          ::MultimediaParadise.register_title_of_this_audio_file(line)
+        end
+        e line
+      }
+      io_object.close
+    }
+  end
+
+  # ========================================================================= #
+  # === remote_radio_stations?
+  # ========================================================================= #
+  def remote_radio_stations?
+    dataset = YAML.load_file(
+      MultimediaParadise.file_radio_stations
+    )
+    # ======================================================================= #
+    # The entries will look like this:
+    #
+    #   "Radio Wien"=>
+    #
+    #   {"url"=>"http://mp3stream2.apasf.apa.at:8000/listen.pls",
+    #    "homepage"=>"https://wien.orf.at/player",
+    #    "genre"=>"austrian",
+    #    "country"=>"Austria"},
+    #
+    # ======================================================================= #
+    return dataset
+  end
+
+  # ========================================================================= #
+  # === create_the_entries                                      (entries tag)
+  # ========================================================================= #
+  def create_the_entries
+    # ======================================================================= #
+    # === @entry_status_bar
+    # ======================================================================= #
+    @entry_status_bar = gtk_entry
+    @entry_status_bar.on_click_event { :select_everything }
+    @entry_status_bar.make_bold
+    @entry_status_bar.center
+    @entry_status_bar.bblack1
+    @entry_status_bar.pad8px
+    @entry_status_bar.css_class('BG_lightblue')
+    @entry_status_bar.hint =
+      'This entry will show the URL to the remote stream, if one is '\
+      'playing currently, so that the user can quickly copy/paste '\
+      'this URL.'
+  end
+
+  # ========================================================================= #
+  # === return_the_widget_increase_or_decrease_audio
+  # ========================================================================= #
+  def return_the_widget_increase_or_decrease_audio
+    ::MultimediaParadise::GUI::Gtk::WidgetIncreaseOrDecreaseAudio.new
+  end; alias increase_decrease_volume return_the_widget_increase_or_decrease_audio # === increase_decrease_volume
+
+  # ========================================================================= #
+  # === create_the_menu                                            (menu tag)
+  #
+  # This is the toplevel menubar, captured onto @menu_bar.
+  # ========================================================================= #
+  def create_the_menu
+    @menu_bar = gtk_menu_bar
+    filemenu = gtk_menu
+    # ======================================================================= #
+    # === 1) First menu drop-down interface
+    # ======================================================================= #
+    filem1 = gtk_menu_item('File') {{ submenu: filemenu }}
+    # ======================================================================= #
+    # === Add the 'Reset the Widget' entry next:
+    # ======================================================================= #
+    reset_the_widget = gtk_menu_item('Reset the widget')
+    reset_the_widget.fancy_tooltips = '<b>Clicking</b> on this item will '\
+      '<b>reset</b> the main widget to its initial state, as if you would '\
+      'have just started this application.'
+    reset_the_widget.on_activate {
+      do_reset_the_widget
+    }
+    filemenu << reset_the_widget
+    filemenu.append_separator
+    # ======================================================================= #
+    # === Add the 'Exit' entry next:
+    # ======================================================================= #
+    exit = gtk_menu_item('Exit') { :on_activate_quit }
+    filemenu << exit
+    # ======================================================================= #
+    # === 2) Second menu drop-down interface
+    # ======================================================================= #
+    filemenu2 = gtk_menu
+    filem2 = gtk_menu_item('Capture the stream') {{ submenu: filemenu2 }}
+    # ======================================================================= #
+    # === Add the 'Shall the stream be captured' entry next:
+    # ======================================================================= #
+    capture_the_stream_yes = ::Gtk::RadioMenuItem.new(nil, 'Yes')
+    capture_the_stream_yes.on_activate { @capture_the_stream = true }
+    capture_the_stream_no  = ::Gtk::RadioMenuItem.new(capture_the_stream_yes, 'No')
+    capture_the_stream_no.on_activate  { @capture_the_stream = false }
+    if is_on_roebe?
+      capture_the_stream_no.activate
+    end
+    filemenu2 << capture_the_stream_yes
+    filemenu2 << capture_the_stream_no
+    # ======================================================================= #
+    # === 3) The info widget
+    # ======================================================================= #
+    filemenu3 = gtk_menu
+    filem3 = gtk_menu_item('Info') {{ submenu: filemenu3 }}
+    # ======================================================================= #
+    # === Add the 'Show all URLs' entry next:
+    # ======================================================================= #
+    show_all_URLs = gtk_menu_item('Show all URLs to the radio station')
+    show_all_URLs.on_activate {
+      do_show_all_URLs
+    }
+    filemenu3 << show_all_URLs
+    # ======================================================================= #
+    # === Add the 'Show more info about this widget' entry next:
+    # ======================================================================= #
+    show_more_info = gtk_menu_item('Show more info about this widget')
+    show_more_info.on_activate { do_show_more_info_about_this_widget }
+    filemenu3 << show_more_info
+    # ======================================================================= #
+    # === Add the 'Debug' widget next:
+    # ======================================================================= #
+    show_more_info = gtk_menu_item('Debug this widget')
+    show_more_info.on_activate { do_debug_this_widget }
+    filemenu3 << show_more_info
+    # ======================================================================= #
+    # Next, add the file-menu parts to the menu bar.
+    # ======================================================================= #
+    @menu_bar.add_these(
+      filem1, gtk_separator_menu_item,
+      filem2, gtk_separator_menu_item,
+      filem3, gtk_separator_menu_item
+    )
+    return @menu_bar # We will return it here as well, just in case.
+  end
+
+  # ========================================================================= #
+  # === main_window?
+  #
+  # This method must yield the parent Gtk::Window.
+  # ========================================================================= #
+  def main_window?
+    @parent
+  end
+
+  # ========================================================================= #
+  # === return_middle_part
+  #
+  # This method will obtain and create the various radio-stations and
+  # assign a customized, clickable button to each such radio station.
+  # ========================================================================= #
+  def return_middle_part
+    vbox = create_vbox
+    index = 0
+    # ======================================================================= #
+    # Next, obtain all available radio stations, then add a button for
+    # each of these stations.
+    #
+    # The data structure may look like this:
+    #
+    #   ["ORF Radio Wien", {"url"=>"http://185.85.29.149:8000/", "genre"=>"austrian"}]
+    #
+    # ======================================================================= #
+    remote_radio_stations?.each_pair {|this_radio_station, inner_hash| index += 1
+      outer_mini_hbox = create_hbox
+      url, _homepage, genre, country = inner_hash.values_at('url','homepage','genre','country')
+      padded_index = index.to_s.rjust(3, ' ')
+      # ===================================================================== #
+      # Next, the radio-image is added to the very left hand side. This
+      # is actually an event-box that the user can click. It will then
+      # open the remote URL to the homepage of this radio-station.
+      # ===================================================================== #
+      radio_image = gtk_image(::MultimediaParadise::FILE_RADIO_IMAGE)
+      event_box = gtk_event_box(radio_image)
+      # ===================================================================== #
+      # Use a tooltip:
+      # ===================================================================== #
+      event_box.hint =
+        'Click on this to open the remote URL <span weight="bold" foreground="gold">'+url+'</span>.'
+      event_box.signal_connect(:event) { |widget, event|
+        _ = event.event_type.name
+        case _
+        when 'GDK_BUTTON_PRESS'
+          open_this_url_via_the_browser(url)
+        end
+      }
+      outer_mini_hbox.minimal(event_box)
+
+      index_button = gtk_button(padded_index)
+      index_button.make_bold
+      index_button.on_hover(:limegreen)
+      # ===================================================================== #
+      # === Small index button
+      #
+      # We also use a small index-button. The main idea here is to keep
+      # a small number for the radio station, so the user knows which
+      # entry is used.
+      # ===================================================================== #
+      index_button.on_clicked {
+        do_all_actions_associated_when_an_actionable_radio_button_was_clicked(
+          url, :default_capture_stream, index_button
+        )
+      }
+      outer_mini_hbox.minimal(index_button) # Add the index_button here.
+
+      button = bold_button(this_radio_station)
+      button.remove_background
+      button.lightgreen
+      # ===================================================================== #
+      # Next, add code so that the button for the radio-station can play 
+      # from the remote audio stream.
+      # ===================================================================== #
+      button.on_clicked {
+        do_all_actions_associated_when_an_actionable_radio_button_was_clicked(
+          url, :default, button
+        )
+      }
+      # ======================================================================= #
+      # Add a tooltip next. This will have bold markup, in colour.
+      # ======================================================================= #
+      button.tooltip_markup = ""\
+        "<span weight=\"bold\">#{padded_index}</span> "\
+        "#{this_radio_station}\n\n  → "\
+        "<span weight=\"bold\" foreground=\"#{@use_this_colour_for_the_tooltip_url}\">#{url}</span>"\
+        "\n"
+      # button.css_class('small_button')
+      outer_mini_hbox.maximal(button)
+      # ===================================================================== #
+      # Next we need to handle radio stations from different countries
+      # a bit differently. Also, we allow for genre-entries without a
+      # country tag to be handled here.
+      # ===================================================================== #
+      case genre
+      when 'Trance'
+        country = 'Trance'
+      end
+      case country
+      when 'Austria',
+           'Germany',
+           'UK',
+           'France',
+           'USA',
+           'Trance' # This is not a country - see explanation above.
+        # =================================================================== #
+        # In this event show a cute little "banner" image.
+        # =================================================================== #
+        # =================================================================== #
+        # Pack the small austrian flag into that hbox:
+        # =================================================================== #
+        case country
+        when 'Trance'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/trance.png')
+        when 'USA'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/US_flag.png')
+        when 'France'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/french_flag.png')
+        when 'UK'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/UK_flag.png')
+        when 'Austria'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/austrian_flag.png')
+        when 'Germany'
+          flag_image = gtk_image(::MultimediaParadise.project_base_dir?+'images/german_flag.png')
+        end
+        frame = gtk_frame(flag_image)
+        frame.modify_background :default, :lightgrey
+        outer_mini_hbox.minimal(frame, 0)
+      end
+      vbox.maximal(outer_mini_hbox, 1)
+    }
+    _ = scrolled_window(vbox) { :up_and_down }
+    _.width_height(500, 500)
+    _.bblack1
+    _.set_name('scrollbar3') # The name is #scrollbar3.
+    return _
+  end; alias return_widget_containing_the_buttons_for_all_streams return_middle_part # === return_widget_containing_the_buttons_for_all_streams
+
+  # ========================================================================= #
+  # === connect_skeleton                                        (connect tag)
+  # ========================================================================= #
+  def connect_skeleton
+    abort_on_exception
+    populate_the_grid
+    middle_part = return_middle_part
+    lower_part = return_widget_containing_the_grid_and_the_various_entries
+
+    dragger1 = drag_via_up_and_down_movement(middle_part, lower_part)
+    dragger2 = drag_via_up_and_down_movement(dragger1, return_lower_part)
+    dragger2.position = '75%'
+    dragger2.set_border_width(3)
+    outer_dragger = drag_via_up_and_down_movement(@hbox_on_top, dragger2)
+    maximal(outer_dragger, 1)
+  end
+
+end; end; end; end
+
+if __FILE__ == $PROGRAM_NAME
+  MultimediaParadise::GUI::Gtk::Radio.run(ARGV)
+end # gtkradio