gtk_paradise 0.9.120 → 0.11.19

data/lib/gtk_paradise/gtk_classes/window.rb

@@ -2,27 +2,44 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
+# === Gtk::Window
+# =========================================================================== #
 # require 'gtk_paradise/gtk_classes/window.rb'
 # Gtk.popup_window
 # =========================================================================== #
 module Gtk
 
-class Window
+class Window # === Gtk::Window
 
   require 'gtk_paradise/toplevel_methods/determine_which_gtk_version_is_in_use.rb'
+  # ========================================================================= #
+  # Not sure if the next require is good here. Ideally we should not 
+  # require it here.
+  # ========================================================================= #
+  # require 'gtk_paradise/gtk_classes/widget.rb'
 
   # ========================================================================= #
   # === xid_value?
+  #
+  # Not sure what the replacement is for ruby-gtk4.
   # ========================================================================= #
   def xid_value?
-    window.xid.to_s
+    if ::Gtk.use_gtk3?
+      window.xid.to_s
+    end
   end; alias xid? xid_value? # === xid
 
   # ========================================================================= #
   # === use_this_cursor=
+  #
+  # Enable some shortcuts for cursors. This may also be useful for
+  # ruby-gtk2 applications.
   # ========================================================================= #  
   def use_this_cursor=(i = :boat)
     case i
+    # ======================================================================= #
+    # === :boat
+    # ======================================================================= #
     when :boat
       i = Gdk::Cursor::BOAT
     end
@@ -31,6 +48,24 @@ class Window
     )
   end
 
+  # ========================================================================= #
+  # === button
+  #
+  # This method is mostly kept as a "compatibility method" for old
+  # ruby-gtk2 legacy code, to simplify creating a button. This may
+  # be useful in DSL-like applications, where we can use something
+  # like:
+  #
+  #   button {
+  #   }
+  # 
+  # ========================================================================= #
+  def button(&block)
+    button = ::Gtk::Button.new
+    button.instance_eval(&block)
+    return button
+  end; alias return_a_new_button button # === return_a_new_button
+
 end
 
   # ========================================================================= #

data/lib/gtk_paradise/hello_world/README.md

@@ -1,5 +1,5 @@
 This directory will contain hello-world examples in gtk2, gtk3, 
-and (should bindings exist, eventually) gtk4.
+and - since as of September 2022 - gtk4.
 
 The reason why this directory was created in August 2020 was because
 I needed a quick way to test the installation on the windows platform

data/lib/gtk_paradise/hello_world/hello_world_gtk4.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+require 'gtk4'
+
+application = Gtk::Application.new('org.gtk.example', :flags_none)
+
+application.signal_connect(:activate) { |app|
+  win = Gtk::ApplicationWindow.new(app)
+  win.title = 'window'
+  win.set_default_size(600, 400)
+
+  button = Gtk::Button.new(label: 'Hello World')
+  button.signal_connect(:clicked) {
+    puts "Hello World"
+    win.destroy
+  }
+  win.set_child(button)
+  win.show
+}
+
+application.run

data/lib/gtk_paradise/images/small/README.md

@@ -0,0 +1,2 @@
+Small images should be ... well, small. So this directory just
+collects a few small images.

data/lib/gtk_paradise/pango/{pango_fonts.rb → fonts.rb}

@@ -18,13 +18,13 @@
 #   PangoFonts::FONT_SANS_BOLD_08
 #
 # =========================================================================== #
-# require 'gtk_paradise/pango/pango_fonts.rb'
+# require 'gtk_paradise/pango/fonts.rb'
 # =========================================================================== #
 module Pango
 
 module Fonts # === Pango::Fonts
 
-if Pango.const_defined? :FontDescription
+if ::Pango.const_defined? :FontDescription
 
   # ========================================================================= #
   # === Font Sans bold

data/lib/gtk_paradise/pango/{pango.rb → layout.rb}

@@ -9,7 +9,7 @@
 # Pango::SCALE was 1024 when I checked it during October 2008. It still is
 # in 2020. :)
 # =========================================================================== #
-# require 'gtk_paradise/pango/pango.rb'
+# require 'gtk_paradise/pango/layout.rb'
 # =========================================================================== #
 module Pango
 

data/lib/gtk_paradise/pango/pango_renderer.rb

@@ -2,11 +2,18 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-require 'gtk_paradise/require_gtk2'
+require 'gtk2'
 
 include Gtk
 
+# =========================================================================== #
+# === RADIUS
+# =========================================================================== #
 RADIUS  = 122
+
+# =========================================================================== #
+# === N_WORDS
+# =========================================================================== #
 N_WORDS =  22 # 22 words shown
 
 win = Window.new('Gdk::PangoRenderer sample')
@@ -44,7 +51,7 @@ win.window.background = background
 # Mouse-click event is also an expose_event.
 # =========================================================================== #
 win.signal_connect(:expose_event) {
-  (0...N_WORDS).each { |i|
+  (0 ... N_WORDS).each { |i|
     rotated_matrix = pango_matrix.dup
     angle = 360 * i / N_WORDS.to_f
     color = Gdk::Color.new(65535 * rand, 65535 * rand, 65535 * rand)

data/lib/gtk_paradise/project/project.rb

@@ -22,7 +22,7 @@ module Gtk
   # ========================================================================= #
   def self.project_base_directory?
     PROJECT_BASE_DIRECTORY
-  end
+  end; self.instance_eval { alias base_directory? project_base_directory? } # === Gtk.base_directory?
 
   # ========================================================================= #
   # === Gtk.project_yaml_directory?
@@ -34,6 +34,7 @@ module Gtk
 end
 
 if __FILE__ == $PROGRAM_NAME
-  puts Gtk::PROJECT_BASE_DIRECTORY
-  puts Gtk.project_yaml_directory?
+  alias e puts
+  e Gtk::PROJECT_BASE_DIRECTORY
+  e Gtk.project_yaml_directory?
 end # rb project.rb

data/lib/gtk_paradise/prototypes/README.md

@@ -4,3 +4,11 @@ adapted into your own custom widgets.
 The file gtk3.rb is specifically used for ruby-gtk3 support in
 these widgets. The code here is trying to make copy-pasting and
 quick prototyping simpler.
+
+Since as of September 2022 ruby-gtk4 is supported as well, and
+a corresponding prototype file has been added into this directory.
+
+Note that the idea behind unified_gtk_prototype.rb is to 
+support all of ruby-gtk2, ruby-gtk3 and ruby-gtk4 in one .rb
+file. This may not work very well right now, but in the future
+it will hopefully work better.

data/lib/gtk_paradise/prototypes/gtk3_standalone.rb

@@ -17,14 +17,8 @@ module Gtk
 
 class Gtk3Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk3Standalone 
 
-  require 'gtk_paradise/requires/require_the_base_module.rb'
   include ::Gtk::BaseModule
 
-  # ========================================================================= #
-  # === NAMESPACE
-  # ========================================================================= #
-  NAMESPACE = inspect
-
   # ========================================================================= #
   # === TITLE
   # ========================================================================= #
@@ -65,23 +59,15 @@ class Gtk3Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk3Standalone
   # ========================================================================= #
   def reset
     reset_the_internal_variables
+    infer_the_namespace
     # ======================================================================= #
     # === @configuration
     # ======================================================================= #
-    @configuration = [true, __dir__, NAMESPACE]
-    # ======================================================================= #
-    # === @title
-    # ======================================================================= #
-    set_title(TITLE)
-    # ======================================================================= #
-    # === @width
-    # ======================================================================= #
-    set_width(WIDTH)
+    @configuration = [true, __dir__, namespace?]
     # ======================================================================= #
-    # === @height
+    # === Set the title, width, height and the font in use.
     # ======================================================================= #
-    set_height(HEIGHT)
-    set_use_this_font(USE_THIS_FONT)
+    title_width_height_font(TITLE, WIDTH, HEIGHT, USE_THIS_FONT)
     use_gtk_paradise_project_css_file # or use use_project_css_file 
     infer_the_size_automatically
   end
@@ -101,9 +87,10 @@ class Gtk3Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk3Standalone
   end
 
   # ========================================================================= #
-  # === create_skeleton                                          (create tag)
+  # === create_skeleton                            (create tag, skeleton tag)
   # ========================================================================= #
   def create_skeleton
+    # create_the_entries
   end
 
   # ========================================================================= #
@@ -118,7 +105,7 @@ class Gtk3Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk3Standalone
   # === run                                                         (run tag)
   # ========================================================================= #
   def run
-    create_skeleton_then_connect_skeleton
+    super()
   end
 
   # ========================================================================= #
@@ -132,7 +119,7 @@ class Gtk3Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk3Standalone
     r = ::Gtk.run
     r << _
     r.automatic_size_then_automatic_title
-    # r.enable_quick_exit
+    r.enable_quick_exit
     r.top_left_then_run
   end
 

data/lib/gtk_paradise/prototypes/gtk4_standalone.rb

@@ -0,0 +1,135 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === FoobarParadise::GUI::Gtk::Gtk4Standalone
+# =========================================================================== #
+# require 'foobar/gui/gtk4/gtk4_standalone/gtk4_standalone.rb'
+# FoobarParadise::GUI::Gtk::Gtk4Standalone.run
+# =========================================================================== #
+require 'gtk_paradise/require_gtk4'
+
+module FoobarParadise
+
+module GUI
+
+module Gtk
+
+class Gtk4Standalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::Gtk4Standalone 
+
+  include ::Gtk::BaseModule
+
+  # ========================================================================= #
+  # === TITLE
+  # ========================================================================= #
+  TITLE = 'Pick a proper title here please.'
+
+  # ========================================================================= #
+  # === WIDTH
+  # ========================================================================= #
+  WIDTH = '25% or minimum 200px'
+
+  # ========================================================================= #
+  # === HEIGHT
+  # ========================================================================= #
+  HEIGHT = '15% or minimum 100px'
+
+  # ========================================================================= #
+  # === USE_THIS_FONT
+  # ========================================================================= #
+  USE_THIS_FONT = :dejavu_condensed_20
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      commandline_arguments = ARGV,
+      run_already           = true
+    )
+    super(:vertical)
+    reset
+    set_commandline_arguments(
+      commandline_arguments
+    )
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    reset_the_internal_hash
+    populate_the_internal_hash_with_the_default_values
+    reset_the_shared_module
+    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)
+    use_gtk_paradise_project_css_file # or use use_project_css_file 
+    infer_the_size_automatically
+  end
+
+  # ========================================================================= #
+  # === padding?
+  # ========================================================================= #
+  def padding?
+    4
+  end
+
+  # ========================================================================= #
+  # === border_size?
+  # ========================================================================= #
+  def border_size?
+    2
+  end
+
+  # ========================================================================= #
+  # === create_skeleton                            (create tag, skeleton tag)
+  # ========================================================================= #
+  def create_skeleton
+    # create_the_entries
+  end
+
+  # ========================================================================= #
+  # === connect_skeleton                                        (connect tag)
+  # ========================================================================= #
+  def connect_skeleton
+    abort_on_exception
+    minimal(gtk_left_aligned_label('Hello world! This is a simple test.'))
+  end
+
+  # ========================================================================= #
+  # === run                                                         (run tag)
+  # ========================================================================= #
+  def run
+    super()
+  end
+
+  # ========================================================================= #
+  # === FoobarParadise::GUI::Gtk::Gtk4Standalone.run
+  # ========================================================================= #
+  def self.run(
+      i = ARGV
+    )
+    ::Gtk.default_application('interactive.caesar.cipher') {{
+      widget_to_use: Roebe::GUI::Gtk::InteractiveCaesarCipher.new
+    }}
+    # require 'gtk_paradise/app/app.rb'
+    # _ = ::FoobarParadise::GUI::Gtk::Gtk4Standalone.new(i)
+    # r = ::Gtk.run
+    # r << _
+    # r.automatic_size_then_automatic_title
+    # r.enable_quick_exit
+    # r.top_left_then_run
+  end
+
+end; end; end; end
+
+if __FILE__ == $PROGRAM_NAME
+  FoobarParadise::GUI::Gtk::Gtk4Standalone.run
+end

data/lib/gtk_paradise/prototypes/shared_code.rb

@@ -15,7 +15,6 @@ module Gtk
 
 module FoobarModule
 
-  require 'gtk_paradise/requires/require_the_base_module.rb'
   include ::Gtk::BaseModule
 
   # ========================================================================= #
@@ -68,18 +67,9 @@ module FoobarModule
     # ======================================================================= #
     @configuration = [true, __dir__, NAMESPACE]
     # ======================================================================= #
-    # === @title
+    # === Set the title, width height and font in use.
     # ======================================================================= #
-    @title  = TITLE
-    # ======================================================================= #
-    # === @width
-    # ======================================================================= #
-    set_width(WIDTH)
-    # ======================================================================= #
-    # === @height
-    # ======================================================================= #
-    set_height(HEIGHT)
-    set_use_this_font(USE_THIS_FONT)
+    title_width_height_font(TITLE, WIDTH, HEIGHT, USE_THIS_FONT)
     use_gtk_paradise_project_css_file # or use use_project_css_file 
     infer_the_size_automatically
   end
@@ -88,14 +78,14 @@ module FoobarModule
   # === padding?
   # ========================================================================= #
   def padding?
-    0
+    4
   end
 
   # ========================================================================= #
   # === border_size?
   # ========================================================================= #
   def border_size?
-    0
+    2
   end
 
   # ========================================================================= #
@@ -116,7 +106,7 @@ module FoobarModule
   # === run                                                         (run tag)
   # ========================================================================= #
   def run
-    create_skeleton_then_connect_skeleton
+    super()
   end
 
   # ========================================================================= #

data/lib/gtk_paradise/prototypes/unified_gtk_prototype.rb

@@ -0,0 +1,179 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === FoobarParadise::GUI::Gtk::GtkStandalone
+# =========================================================================== #
+# require 'foobar/gui/gtk3/prototypes/unified_gtk_prototype.rb'
+# FoobarParadise::GUI::Gtk::GtkStandalone.run
+# =========================================================================== #
+_ = ARGV.first
+if _.nil? or _.empty?
+  _ = 'gtk3' # This is the default.
+end
+case _
+when /gtk2/
+  require 'gtk_paradise/require_gtk2'
+when /gtk3/
+  require 'gtk_paradise/require_gtk3'
+when /gtk4/
+  require 'gtk_paradise/require_gtk4'
+end
+
+module FoobarParadise
+
+module GUI
+
+module Gtk
+
+class GtkStandalone < ::Gtk::Box # === FoobarParadise::GUI::Gtk::GtkStandalone 
+
+  include ::Gtk::BaseModule
+
+  # ========================================================================= #
+  # === TITLE
+  # ========================================================================= #
+  TITLE = 'Pick a proper title here please.'
+
+  # ========================================================================= #
+  # === WIDTH
+  # ========================================================================= #
+  WIDTH = '25% or minimum 200px'
+
+  # ========================================================================= #
+  # === HEIGHT
+  # ========================================================================= #
+  HEIGHT = '15% or minimum 100px'
+
+  # ========================================================================= #
+  # === USE_THIS_FONT
+  # ========================================================================= #
+  USE_THIS_FONT = :dejavu_condensed_20
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      commandline_arguments = ARGV,
+      run_already           = true
+    )
+    super(:vertical)
+    reset
+    set_commandline_arguments(
+      commandline_arguments
+    )
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    reset_the_internal_variables
+    populate_the_internal_hash_with_the_default_values
+    # reset_the_shared_module
+    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)
+    use_gtk_paradise_project_css_file # or use use_project_css_file 
+    infer_the_size_automatically
+  end
+
+  # ========================================================================= #
+  # === padding?
+  # ========================================================================= #
+  def padding?
+    4
+  end
+
+  # ========================================================================= #
+  # === border_size?
+  # ========================================================================= #
+  def border_size?
+    2
+  end
+
+  # ========================================================================= #
+  # === create_skeleton                            (create tag, skeleton tag)
+  # ========================================================================= #
+  def create_skeleton
+    # create_the_entries
+  end
+
+  # ========================================================================= #
+  # === connect_skeleton                                        (connect tag)
+  # ========================================================================= #
+  def connect_skeleton
+    abort_on_exception
+    minimal(
+      left_aligned_label('Installer')
+    )
+  end
+
+  # ========================================================================= #
+  # === run                                                         (run tag)
+  # ========================================================================= #
+  def run
+    super()
+  end
+
+  # ========================================================================= #
+  # === FoobarParadise::GUI::Gtk::GtkStandalone.run
+  # ========================================================================= #
+  def self.run(
+      i = ARGV
+    )
+  end
+
+  # ========================================================================= #
+  # === FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk2
+  # ========================================================================= #
+  def self.run_gtk2
+  end
+
+  # ========================================================================= #
+  # === FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk3
+  # ========================================================================= #
+  def self.run_gtk3(
+      i = ARGV
+    )
+    require 'gtk_paradise/app/app.rb'
+    _ = ::FoobarParadise::GUI::Gtk::GtkStandalone.new(i)
+    r = ::Gtk.run
+    r << _
+    r.automatic_size_then_automatic_title
+    r.enable_quick_exit
+    r.top_left_then_run
+  end
+
+  # ========================================================================= #
+  # === FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk4
+  # ========================================================================= #
+  def self.run_gtk4
+    ::Gtk.default_application('unified.gtk.prototype') {{
+      widget_to_use: FoobarParadise::GUI::Gtk::GtkStandalone.new
+    }}
+  end
+
+end; end; end; end
+
+if __FILE__ == $PROGRAM_NAME
+  _ = ARGV.first
+  if _.nil? or _.empty?
+    _ = 'gtk3' # This is the default.
+  end
+  case _
+  when /gtk2/
+    FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk2
+  when /gtk3/
+    FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk3
+  when /gtk4/
+    FoobarParadise::GUI::Gtk::GtkStandalone.run_gtk4
+  end
+end # rb unified_gtk_prototype.rb

data/lib/gtk_paradise/require_gtk4.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'gtk_paradise/require_gtk4.rb'
+# =========================================================================== #
+require 'gtk_paradise/requires/require_gtk4.rb'