gtk_paradise 0.9.120 → 0.11.19

data/test/gtk2/testing_hbox_and_vbox.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/require_gtk2'
+
+alias e puts
+
+e
+e '1) Testing HBox next:'
+e
+hbox = Gtk::HBox.new
+e hbox.respond_to? :pack_start
+e hbox.respond_to? :pack
+e
+e 'Note: both methods used above ^^^ should return true if all went well.'
+e
+e '2) Testing VBox next:'
+e
+vbox = Gtk::VBox.new
+e vbox.respond_to? :pack_start
+e vbox.respond_to? :pack
+
+# =========================================================================== #
+# The next part would fail, as Gtk::Box does not exist in ruby-gtk2. The
+# reason why this is kept in this file is so that I don't forget it; also
+# other users may instantly realise by this comment that Gtk::Box only
+# exists since as of ruby-gtk3. Perhaps one day we may add a new Gtk::Box
+# for ruby-gtk2 too - for the time being, as of the year 2022, this is
+# however had not the case.
+# e
+# e '3) Testing Box next:'
+# e
+# box = Gtk::Box.new
+# e box.respond_to? :pack_start
+# e box.respond_to? :pack
+# =========================================================================== #

data/test/gtk2/testing_label_with_ampersand.rb

@@ -4,13 +4,14 @@
 # =========================================================================== #
 # I am not sure whether this works or whether it does not work.
 # =========================================================================== #
-require 'gtk_paradise'
+require 'gtk_paradise/require_gtk2'
 require 'colours/colours_e_autoinclude.rb'
 
 include Gtk::BaseModule
 
+e
 e 'Testing Gtk::Label next.'
-
+e
 hbox = gtk_hbox
 hbox.increase_font_size
 
@@ -21,6 +22,8 @@ label2 = gtk_bold_label('#2 Testing Ampersand & - yup, this one here works f
 hbox.pack_maximal(label2, 80)
 
 r = Gtk.run
+r.width_height(800, 600)
+r.padding = 5
 r << hbox
 r.top_left_then_show
 r.enable_simple_exit_then_run

data/test/gtk2/testing_notebook.rb

@@ -2,22 +2,28 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-require 'gtk_paradise'
+require 'gtk_paradise/require_gtk2'
 require 'colours/colours_e_autoinclude.rb'
 
 include Gtk::BaseModule
-
+e
 e 'Testing Gtk::Notebook next:'
+e
 
 label1 = gtk_label('Hello')
 label2 = gtk_label('world')
 label3 = gtk_label('how do you do?')
 label3.make_bold
 
-r = Gtk.run
+r = Gtk.run(width: 800, height: 500)
+r.padding = 8
 
 # =========================================================================== #
-# Add three notebook pages
+# Add four notebook pages next:
 # =========================================================================== #
-r << Gtk.add_notebook(label1, label2, label3)
+notebook = Gtk.add_reorderable_notebook(
+  label1, label2, label3, Gtk::Button.new('Test-Button')
+)
+r << notebook
+r.determine_width_and_height
 r.top_left_then_show_then_run

data/test/gtk3/test_widget.rb

@@ -42,7 +42,7 @@ class TestWidget < ::Gtk::Box
     # ======================================================================= #
     @configuration = [true, __dir__, NAMESPACE]
     set_border_width(0) if respond_to? :set_border_width
-    set_font(:hack_19)
+    set_font(:hack_22)
     use_gtk_paradise_project_css_file
   end
 
@@ -110,5 +110,6 @@ if __FILE__ == $PROGRAM_NAME
   r = Gtk.run
   r << _
   r.show_all
+  r.set_border_width(15)
   r.top_left_then_run
 end

data/test/gtk3/testing_app.rb

@@ -4,7 +4,6 @@
 # =========================================================================== #
 # require 'testing_app.rb'
 # =========================================================================== #
-require '/home/x/programming/ruby/src/gtk_paradise/test/gtk3/testing_base_module.rb'
 require 'gtk_paradise/app/app.rb'
 
 alias e puts

data/test/gtk3/testing_base_module.rb

@@ -44,7 +44,7 @@ class Test < ::Gtk::Box
     label = gtk_label('Hello world!!!')
     label.css_class('steelblue')
     label.css_class('bblack20')
-    label.css_class('pad5px')
+    label.pad5px
     label.make_bold
     add(label)
     display_the_CSS_rules
@@ -58,6 +58,7 @@ if __FILE__ == $PROGRAM_NAME
   window.add(Gtk::Test.new)
   window.show_all
   window.move(0, 0)
+  window.set_border_width(20)
   window.set_size_request(800, 300)
   Gtk.main
 end

data/test/gtk3/testing_numbered_lines.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'testing_numbered_lines.rb'
+# =========================================================================== #
+require 'gtk_paradise/require_gtk3'
+
+require 'gtk_paradise/widgets/gtk3/numbered_lines/numbered_lines.rb'
+
+r = Gtk.run
+numbered_lines = Gtk::NumberedLines.new
+scrolled_window = Gtk.scrolled_window(numbered_lines)
+scrolled_window.width_height(400, 500)
+# numbered_lines.remove_last(20)
+numbered_lines.repopulate_towards(1250)
+
+r << scrolled_window
+r.show_all
+r.top_left_then_run

data/test/gtk3/testing_project_base_directory.rb

@@ -4,6 +4,11 @@
 # =========================================================================== #
 require 'gtk3'
 
+alias e puts
+
 require 'gtk_paradise/project/project.rb'
 
-puts Gtk::PROJECT_BASE_DIRECTORY
+e
+e 'The base directory for the gtk_paradise gem is at: '+
+   Gtk::PROJECT_BASE_DIRECTORY
+e

data/test/gtk3/testing_the_html_pseudo_tags.rb

@@ -58,14 +58,14 @@ class TestingTheHtmlPseudoTags < ::Gtk::Box
   # === padding?
   # ========================================================================= #
   def padding?
-    0
+    4
   end
 
   # ========================================================================= #
   # === border_size?
   # ========================================================================= #
   def border_size?
-    0
+    2
   end
 
   # ========================================================================= #

data/test/gtk4/testing_gtk_entry.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk4'
+
+alias e puts
+
+entry = Gtk::Entry.new
+
+entry.set_text('OK')
+
+# .set_focus() appears to have been removed from ruby-gtk4.
+# entry.set_focus(true)
+# entry.set_focus_child(true)
+e entry.text
+# e 'The available methods are:'
+# e
+# pp entry.methods.sort
+# e
+# # pp entry.events
+# event_controller = Gtk::EventController.new
+# pp event_controller.methods.sort
+# entry.add_controller(event_controller)

data/test/misc/testing_a_gtk_frame.rb

@@ -0,0 +1,14 @@
+require 'gtk_paradise/require_gtk3'
+
+include Gtk::BaseModule
+
+frame = gtk_frame('HEY THERE')
+frame.label_widget = gtk_button('WTF')
+pp frame.methods.sort
+window = gtk_window
+window.add(frame)
+window.set_size_request(800, 600)
+window.realize
+window.show_all
+
+::Gtk.main

data/test/misc/testing_gtk4_simplifications.rb

@@ -0,0 +1,105 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This file will test some simplifications for ruby-gtk4.
+# =========================================================================== #
+# $GTK_PARADISE/test/misc/testing_gtk4_simplifications.rb
+# =========================================================================== #
+if __FILE__ == $PROGRAM_NAME
+  case ARGV.first
+  when 'gtk3'
+    require 'gtk_paradise/require_gtk3'
+  when 'gtk4','',nil
+    require 'gtk_paradise/require_gtk4'
+  end
+end
+
+class TestingGtk4Applications < ::Gtk::Box # === TestingGtk4Applications
+
+  include ::Gtk::BaseModule
+
+  # ========================================================================= #
+  # === WIDTH
+  # ========================================================================= #
+  WIDTH = '80% or 800px minimum'
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      run_already = true
+    )
+    super(:vertical)
+    reset
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset
+  # ========================================================================= #
+  def reset
+    reset_the_internal_variables
+    set_width(WIDTH)
+  end
+
+  # ========================================================================= #
+  # === run
+  # ========================================================================= #
+  def run
+    set_font_globally('Mono 35')
+    append(hbox_text(' 1'))
+    append(hbox_text(' 2'))
+    append(hbox_text(' 3'))
+    append(hbox_text(' 4'))
+    append(hbox_text(' 5'))
+    append(hbox_text(' 6'))
+    append(hbox_text(' 7'))
+    append(hbox_text(' 8'))
+    append(hbox_text(' 9'))
+    append(hbox_text('10'))
+# pp @internal_hash
+# pp width?
+  end
+
+  # ========================================================================= #
+  # === title?
+  # ========================================================================= #
+  def title?
+    'Showcasing Ten vboxes'
+  end; alias title title? # === title
+
+  # ========================================================================= #
+  # === TestingGtk4Applications.run_gtk4
+  # ========================================================================= #
+  def self.run_gtk4
+    ::Gtk.default_application {{
+      widget_to_use: new
+    }}
+  end; self.instance_eval { alias run run_gtk4 } # === TestGtk4Applications.run
+
+  # ========================================================================= #
+  # === TestingGtk4Applications.run_gtk3
+  # ========================================================================= #
+  def self.run_gtk3(
+      i = ARGV
+    )
+    require 'gtk_paradise/app/app.rb'
+    _ = TestingGtk4Applications.new(i)
+    r = ::Gtk.run
+    r << _
+    r.automatic_size_then_automatic_title
+    r.enable_quick_exit
+    r.top_left_then_run
+  end
+
+end
+
+if __FILE__ == $PROGRAM_NAME
+  case ARGV.first
+  when 'gtk3'
+    TestingGtk4Applications.run_gtk3
+  when 'gtk4','',nil
+    TestingGtk4Applications.run_gtk4
+  end
+end # rb testing_gtk4_simplifications.rb gtk4

data/test/misc/testing_gtk_paradise_runner.rb

@@ -4,19 +4,34 @@
 # =========================================================================== #
 # 'test/misc/testing_gtk_paradise_runner.rb'
 # =========================================================================== #
-require 'gtk3'
+require 'gtk_paradise/require_gtk3'
 require 'gtk_paradise/project/project.rb'
-require 'gtk_paradise/app/app_module.rb'
+require 'gtk_paradise/app/app_module/app_module.rb'
 
 alias e puts
 
+# =========================================================================== #
+# === USE_THIS_TITLE
+# =========================================================================== #
+USE_THIS_TITLE = 'Testing gtk-paradise-runner'
+
+include Gtk::BaseModule
+
 window = Gtk::Window.new
 window.extend(::Gtk::AppModule)
 window.reset_internal_app_module
-window.set_title_then_apply('Testing gtk-paradise-runner')
+window.set_title_then_apply(USE_THIS_TITLE)
 box = Gtk::Box.new(:vertical)
 box.add(Gtk::Label.new('Hey there'))
+
+hbox1 = gtk_hbox
+this_text = text('Yo there <a href="blog.fefe.de">fefe.de</a>')
+this_text.fancy_parse
+hbox1.add(this_text)
+box.add(hbox1)
 window.add(box)
+window.set_border_width(18)
 window.show_all
-window.width_height 550,300
+window.width_height(550, 300)
+window.add_delete_event
 window.top_left_then_run

data/test/misc/testing_the_gtk_classes.rb

@@ -0,0 +1,83 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/require_gtk4' # Or change to gtk3 here.
+require 'verbose_truth'
+
+alias e puts
+
+e
+e 'This file will next test various add-ons to GTK core classes.'
+e
+
+x = Gtk::ToggleButton.new
+x.is_inactive
+
+e 'Does Gtk::ToggleButton respond to .is_inactive() ?'
+e
+e VerboseTruth[x.respond_to? :is_inactive]
+e
+e 'Next testing the custom modifications of Gtk::Widget - this'
+e 'has to be done indirectly, though, as Gtk::Widget is an'
+e 'abstract class.'
+e
+# x = Gtk::Widget.new
+x.set_border_width(10)
+x.intelligent_exit
+e
+pp x
+pp x.class
+e
+e 'Next testing the custom modification of Gtk::Window:'
+e
+window = Gtk::Window.new
+unless Gtk.use_gtk3?
+  e 'The xid value is: '+window.xid_value?.to_s
+  e
+  e 'Assigning the :boat cursor next:'
+  e
+  # window.use_this_cursor = :boat
+  # e 'All done there!'
+  # e
+end
+e
+e 'This will not work on ruby-gtk4.'
+e
+e
+e 'Next testing the custom modification of Gtk::Spinner:'
+e
+spinner = Gtk::Spinner.new
+e spinner.active?
+spinner.is_active
+e spinner.active?
+e
+e 'Is it still spinning: '+spinner.is_still_spinning?.to_s
+e
+spinner.is_inactive
+e
+e 'Is it still spinning: '+spinner.is_still_spinning?.to_s
+e
+e 'Next returning a scale button via Gtk.return_scale_button():'
+e
+pp Gtk.return_scale_button
+e
+e
+e 'Next testing the custom modification of Gtk::Label:'
+e
+label = Gtk::Label.new('This is the label of the text.')
+e label.text?
+e
+e 'Next testing the custom modification of Gtk::CheckButton:'
+e
+check_button = Gtk.check_button
+e 'Running .mark_as_unchecked() next:'
+e
+check_button.mark_as_unchecked
+e
+e
+e 'Next testing the custom modification of Gtk::SpinButton:'
+e
+spin_button = Gtk.spin_button
+spin_button.transition_change_background_to(:lightblue)
+e