gtk_paradise 0.9.120 → 0.11.19

data/lib/gtk_paradise/examples/drawing/009_example.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+R = 7
+Width, Height = 500, 500
+
+Drawing.app(width: Width, height: Height) {
+  draw {
+    clear
+  }
+
+  p = Vector[0, 0]
+  np = p
+  deg = 90
+  r = 0
+  step = 1.5
+  
+  b_line = lambda do |p1, p2|
+    l = (p2 - p1).r
+    pt = p1
+    0.upto(l) do
+      color(0, 65535, 0)
+      arc(true, Width / 2 + pt[0] - R, Height / 2 - pt[1] - R, R * 2, R * 2, 0, 64 * 360)
+      pt += (p2 - p1) / l
+    end
+  end
+  
+  id = timer(50) do
+    b_line.call(p, np)
+    
+    p = np
+    θ = Math::PI * deg / 180
+    np = Vector[Math.cos(θ), Math.sin(θ)] * r
+    r += step
+    step_d = 20 - r / 35
+    deg -= step_d
+    timer_stop(id) if r > 220
+    true
+  end
+}

data/lib/gtk_paradise/examples/drawing/010_example.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = 500, 500
+
+Drawing.app(width: Width, height: Height) {
+  draw {
+    clear
+    
+    color(0, 65535, 0)
+    r = Width / 2
+    circle(false, 0, r, r)
+    circle(false, 2 * r, r, r)
+    
+    (1..9).to_a.combination(2) do |p, q|
+      x = p / q.to_f
+      y = 1 / (2 * q ** 2).to_f
+      wx, wy = Width * x, Height * y
+      circle(false, wx, Height - wy, wy)
+    end
+  }
+}

data/lib/gtk_paradise/examples/drawing/011_example.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = if ARGV.size == 2
+  ARGV.map(&:to_i)
+else
+  [1000, 700]
+end
+
+Max_r, Min_r = 40, 10
+ColorMax = 65535
+MaxNum = 60
+
+
+class Circle
+  def initialize(ob)
+    @slot = ob
+    @width, @height = Width, Height
+    renewal
+    @y = rand(@height)
+  end
+  attr_reader :height
+  attr_writer :y
+  
+  def renewal
+    @width, @height = @slot.get_window_size
+    @max_r = rand(Max_r - Min_r) + Min_r
+    @x = rand(@width)
+    @y = -rand(@max_r)
+    @color = [rand(ColorMax), rand(ColorMax), rand(ColorMax)]
+    @fall_step = 1 + rand * 3
+    @r = 1
+    @r_step = rand * 0.2 + 0.8
+  end
+
+  def paint
+    @slot.color(@color[0], @color[1], @color[2])
+    @slot.circle(true, @x, @y, @r)
+    @y += @fall_step
+    @r += @r_step
+    @r_step *= -1 if @r > @max_r or @r < 1
+    renewal if @y > @height + Max_r
+    true
+  end
+end
+
+Drawing.app(width: Width, height: Height, resizable: true) {
+  circles = []
+  MaxNum.times {circles << Circle.new(self)}
+  black = color(0, 0, 0)
+  
+  draw do
+    clear(black)
+  end
+
+  timer(60) do
+    clear(black)
+    circles.each(&:paint)
+  end
+
+  window_changed do
+    clear(black)
+    circles.each do |c|
+      c.renewal
+      c.y = rand(c.height)
+      c.paint
+    end
+  end
+}

data/lib/gtk_paradise/examples/drawing/012_example.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+Width, Height = 400, 300
+CircumcircleR = 0.8
+
+# === incircle
+def incircle(a, b, c)
+  l, m, n = (b - a).norm, (c - b).norm, (a - c).norm
+  q = l + m + n
+  
+  po = a * (m / q) + b * (n / q) + c * (l / q)
+  r  = Math.sqrt((q / 2 - l) * (q / 2 - m) * (q / 2 - n) * 2 / q)
+  [po, r]
+end
+
+class Vector
+  def to_w
+    l = Height / 2
+    Vector[Width / 2 + self[0] * l, l - self[1] * l]
+  end
+end
+
+get_po = proc {|θ|
+  Vector[Math.cos(θ), Math.sin(θ)] * CircumcircleR
+}
+rv  = proc { Math::PI * (rand + 1) * 0.005 }
+
+angle = [
+  0.5 * 2 * Math::PI, 1.17 * 2 * Math::PI, 1.83 * 2 * Math::PI
+]
+step  = [rv.call, rv.call, -rv.call]
+
+Drawing.app(width: Width, height: Height) {
+  draw {clear}
+  
+  timer(30) {
+    clear
+    
+    a, b, c = get_po[angle[0]], get_po[angle[1]], get_po[angle[2]]
+    
+    color(0, 65535, 0)
+    line(a.to_w[0], a.to_w[1], b.to_w[0], b.to_w[1])
+    line(b.to_w[0], b.to_w[1], c.to_w[0], c.to_w[1])
+    line(c.to_w[0], c.to_w[1], a.to_w[0], a.to_w[1])
+    
+    color(65535, 0, 65535)
+    circle(false, Width / 2, Height / 2, CircumcircleR * Height / 2)
+    
+    color(65535, 65535, 0)
+    po, r = incircle(a, b, c)
+    circle(true, po.to_w[0], po.to_w[1], r * Height / 2)
+    
+    angle = angle.map.with_index {|θ, i| θ + step[i]}
+  }
+}

data/lib/gtk_paradise/examples/drawing/README.md

@@ -0,0 +1,3 @@
+This old code worked on ruby-gtk2. For ruby-gtk3 and
+ruby-gtk4 it may have to be ported; that porting 
+effort has not yet happened, though.

data/lib/gtk_paradise/examples/drawing/moving_turtle_example.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk_paradise/drawing/drawing.rb'
+
+# =========================================================================== #
+# === WIDTH
+# =========================================================================== #
+WIDTH  = 600
+
+# =========================================================================== #
+# === HEIGHT
+# =========================================================================== #
+HEIGHT = 400
+
+Drawing.app(
+    width:  WIDTH,
+    height: HEIGHT,
+    title: 'A moving turtle'
+  ) {
+  draw {
+    clear
+
+    turtle = Drawing::Turtle.new
+    turtle.move(-130, -100) # x-start point comes first.
+    turtle.color(0, 65535, 0) # This is a light green colour.
+    ratio = Math.sqrt(2) / 2 # This is the ratio: 0.7071067811865476
+
+    drawing = lambda { |length, depth|
+      if depth.zero?
+        turtle.forward(length)
+      else
+        turtle.left(45)
+        drawing[length * ratio, depth - 1]
+        turtle.right(90)
+        drawing[length * ratio, depth - 1]
+        turtle.left(45)
+      end
+    }
+    drawing[260.0, 10]
+  }
+}

data/lib/gtk_paradise/examples/gdk/001_gdk_screen_properties.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require '001_gdk_screen_properties.rb'
+# =========================================================================== #
+require 'gtk3'
+
+alias e puts
+
+e
+e 'This example shows methods related to Gdk::Screen.default().'
+e
+
+@screen = Gdk::Screen.default
+
+settings_map = %w(
+  gtk-double-click-time
+  gtk-dnd-drag-threshold
+  gtk-can-change-accels
+  gtk-color-palette
+  gtk-font-name
+  gtk-icon-sizes
+  gtk-key-theme-name
+  gtk-toolbar-style
+  gtk-toolbar-icon-size
+  gtk-im-preedit-style
+  gtk-im-status-style
+  gtk-cursor-blink
+  gtk-cursor-blink-time
+  gtk-theme-name 
+)
+
+e 'The available methods are:'
+e
+pp @screen.methods.sort
+e
+
+settings_map.each { |entry|
+  e "#{entry}: #{@screen.get_setting(entry)}"
+  pp @screen.get_setting(entry)
+}
+
+e 'The current desktop is: '+
+  @screen.current_desktop.to_s
+
+pp @screen.destroyed?
+
+# pp @screen.get_monitor_geometry
+
+e 'The name of the window manager is: '+
+  @screen.window_manager_name
+e '.rgba_visual:'
+pp @screen.rgba_visual
+e '.root_window:'
+pp @screen.root_window # #<Gdk::X11Window:0x555e15c2f790 ptr=0x555e13849200>
+e '.screen_number:'
+pp @screen.screen_number

data/lib/gtk_paradise/examples/gdk_pixbuf/save_image_example.rb

@@ -19,7 +19,7 @@ alias e puts
 # =========================================================================== #
 # === DEFAULT_FILE
 # =========================================================================== #
-DEFAULT_FILE = '/Depot/NJOY/VidaGuerra.png'
+DEFAULT_FILE = '/home/x/data/images/NJOY/VidaGuerra.jpg'
 Rect = Struct.new('Rect', :x, :y, :w, :h)
 path = ARGV.first || DEFAULT_FILE
 pixbuf = GdkPixbuf::Pixbuf.new(file: path)

data/lib/gtk_paradise/examples/gir_ffi/001_hello_world.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+# Based on the 'Hello world' Gtk+ tutorial example at
+#
+# http://library.gnome.org/devel/gtk-tutorial/2.90/c39.html#SEC-HELLOWORLD
+#
+require 'gir_ffi-gtk3'
+
+Gtk.init
+
+alias e puts
+
+win = Gtk::Window.new(:toplevel)
+win.signal_connect('delete-event') {
+  e 'delete event occured'
+  true
+}
+
+win.signal_connect('destroy') { Gtk.main_quit }
+win.border_width = 10
+
+button = Gtk::Button.new_with_label('Hello World')
+button.signal_connect('clicked') { win.destroy }
+
+win.add(button)
+button.show
+win.show
+
+Gtk.main

data/lib/gtk_paradise/examples/gir_ffi/002_upgraded_hello_world.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+# Based on the 'Upgraded Hello world' Gtk+ tutorial example at
+# http://library.gnome.org/devel/gtk-tutorial/2.90/x344.html
+#
+require 'gir_ffi-gtk3'
+
+callback = lambda { |_widget, data|
+  puts "Hello again - #{data} was pressed"
+}
+
+Gtk.init
+
+win = Gtk::Window.new(:toplevel)
+win.title = 'Hello Buttons!'
+
+win.signal_connect('delete-event') {
+  Gtk.main_quit
+  false
+}
+
+win.border_width = 10
+
+box = Gtk::HBox.new(false, 0)
+win.add box
+
+button = Gtk::Button.new_with_label('Button 1')
+button.signal_connect('clicked', "button 1", &callback)
+box.pack_start button, true, true, 0
+button.show
+
+button = Gtk::Button.new_with_label('Button 2')
+button.signal_connect('clicked', "button 2", &callback)
+box.pack_start button, true, true, 0
+button.show
+
+box.show
+win.show
+
+Gtk.main

data/lib/gtk_paradise/examples/gir_ffi/003_gtk_application_example.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+require "gir_ffi-gtk3"
+
+myapp = Gtk::Application.new("org.gtk.example", :handles_command_line)
+
+myapp.signal_connect "command-line" do |app, _command_line|
+  app.activate
+  0
+end
+
+myapp.signal_connect "activate" do |app|
+  win = Gtk::ApplicationWindow.new(app)
+  win.set_title("Gtk Application example")
+  win.set_default_size(200, 200)
+
+  button_box = Gtk::ButtonBox.new(:horizontal)
+  win.add(button_box)
+
+  button = Gtk::Button.new_with_label("Hello world")
+  button.signal_connect "clicked" do
+    puts "Hello World"
+    app.quit
+  end
+
+  button_box.add(button)
+  win.show_all
+end
+
+exit(myapp.run([$PROGRAM_NAME] + ARGV))

data/lib/gtk_paradise/examples/gir_ffi/004_treeview_example.rb

@@ -0,0 +1,64 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gir_ffi-gtk3'
+
+Gtk.init
+
+# ========================================================================= #
+# Add window.
+# ========================================================================= #
+win = Gtk::Window.new(:toplevel)
+win.resize(640, 480)
+win.signal_connect('destroy') { Gtk.main_quit }
+
+# ========================================================================= #
+# Add treeview.
+# ========================================================================= #
+tv = Gtk::TreeView.new
+
+# ========================================================================= #
+# Add store.
+# ========================================================================= #
+ls = Gtk::ListStore.new([GObject::TYPE_STRING])
+tv.set_model(ls)
+
+# ========================================================================= #
+# === Gtk.simple_text
+# ========================================================================= #
+module Gtk
+  def self.simple_text(i = '')
+    return Gtk::Label.new(i)
+  end
+end
+
+# lab = Gtk::Label.new('Name')
+lab = Gtk.simple_text('Name')
+rend = Gtk::CellRendererText.new
+
+# ========================================================================= #
+# Add column.
+# ========================================================================= #
+col = Gtk::TreeViewColumn.new
+col.set_widget(lab)
+col.pack_start(rend, true)
+col.add_attribute(rend, 'text', 0)
+
+lab.show
+
+tv.append_column(col)
+
+# Add rows.
+iter = ls.append
+ls.set_value(iter, 0, 'Kasper')
+
+iter = ls.append
+ls.set_value(iter, 0, 'Christina')
+
+win.add tv
+tv.show
+
+win.show
+
+Gtk.main

data/lib/gtk_paradise/examples/gir_ffi/005_complex_example.rb

@@ -0,0 +1,104 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gir_ffi-gtk3'
+
+Gtk.init
+
+# ========================================================================= #
+# Do the gtk-specific requires after Gtk.init
+# ========================================================================= #
+require 'gtk_paradise/gtk_classes/style_context.rb'
+#require 'gtk_paradise/gtk_classes/tree_view.rb'
+
+# ========================================================================= #
+# === Gtk.simple_text
+# ========================================================================= #
+module Gtk
+  def self.simple_text(i = '')
+    return Gtk::Label.new(i)
+  end
+end
+
+# ========================================================================= #
+# Add window.
+# ========================================================================= #
+window = Gtk::Window.new(:toplevel)
+window.resize(640, 480)
+window.signal_connect('destroy') { Gtk.main_quit }
+
+# ========================================================================= #
+# Add treeview.
+# ========================================================================= #
+tree_view = Gtk::TreeView.new
+#tree_view.do_use_clickable_headers
+#tree_view.rubber_banding
+# pp tree_view.methods.sort
+
+# ========================================================================= #
+# Add store.
+# ========================================================================= #
+ls = Gtk::ListStore.new([GObject::TYPE_STRING])
+tree_view.set_model(ls)
+
+# lab = Gtk::Label.new('Name')
+lab = Gtk.simple_text('Name')
+lab.show
+rend = Gtk::CellRendererText.new
+
+# ========================================================================= #
+# Add column.
+# ========================================================================= #
+tree_view_column = Gtk::TreeViewColumn.new
+tree_view_column.set_widget(lab)
+tree_view_column.pack_start(rend, true)
+tree_view_column.add_attribute(rend, 'text', 0)
+tree_view.append_column(tree_view_column)
+# tree_view.add_mnemonic_label("T")
+tree_view.border_width = 120
+tree_view.enable_grid_lines = 1
+#tree_view.hadjustment = 0.5
+tree_view.halign = 0.5
+tree_view.headers_clickable = true
+tree_view.headers_visible = true
+tree_view.level_indentation = 3
+tree_view.margin = 15
+tree_view.rubber_banding = true
+tree_view.set_has_tooltip(true)
+tree_view.set_tooltip_text('This is just a tooltip example.')
+#pp tree_view.state_flags
+
+
+colour = Gdk::Color.new
+colour.green = 55
+colour.red = 55
+colour.blue = 55
+# width = tree_view.root_window.width
+# pp width
+
+# tree_view.override_background_color(:normal  , Gdk::Color.new(6400, 6400, 6440))
+# tree_view.override_background_color(:prelight,   Gdk::Color.new(6400, 3400, 6440))
+# tree_view.override_background_color(:active,  Gdk::Color.new(6400, 1400, 6440))
+
+# pp tree_view.events
+
+# pp ::Gtk::StyleProvider.constants.sort
+# pp '^^^'
+# style_context = Gtk.style_context_provider(:default, false)
+# pp style_context
+
+# ========================================================================= #
+# Add rows.
+# ========================================================================= #
+iter = ls.append
+ls.set_value(iter, 0, 'Kasper')
+
+iter = ls.append
+ls.set_value(iter, 0, 'Christina')
+iter = ls.append
+ls.set_value(iter, 0, 'Peter')
+window.add(tree_view)
+tree_view.show
+window.show
+Gtk.main

data/lib/gtk_paradise/examples/gir_ffi/README.md

@@ -0,0 +1,5 @@
+This directory contains code for gir_ffi-gtk.
+
+It is not clear whether the gtk_paradise gem will support
+these bindings, so treat this directory purely as a 
+case-study at this point in time.

data/lib/gtk_paradise/examples/glib/parse_glib_settings.rb

@@ -45,4 +45,4 @@ p Gtk::Settings.rc_property_parse_color(spec, "{2222,44444,65535}").to_a
 p Gtk::Settings.rc_property_parse_enum(enum, 'watch')
 p Gtk::Settings.rc_property_parse_flags(flags, "(scroll-mask|structure-mask)")
 p Gtk::Settings.rc_property_parse_requisition(spec, "{100, 200}")
-p Gtk::Settings.rc_property_parse_border(spec, "{100, 200, 300, 400}").to_a
+p Gtk::Settings.rc_property_parse_border(spec, "{100, 200, 300, 400}").to_a

data/lib/gtk_paradise/examples/gtk2/008_list_store_example.rb

@@ -44,7 +44,7 @@ class ListStoreExample
     @window.show_all
     @window.title = 'ListStore'
     @window.signal_connect(:destroy) { Gtk.main_quit }
-    @window.set_default_size(1200, 600)
+    @window.set_default_size(1500, 800)
     @window.move(0, 0)
   end
   

data/lib/gtk_paradise/examples/gtk3/{061_gtk_entry.rb → 001_gtk_entry.rb}

@@ -53,20 +53,24 @@ entry2.set_icon_from_icon_name(Gtk::EntryIconPosition::PRIMARY, icon_name)
 box1.add(entry2)
 
 entry3 = Gtk::Entry.new
-entry3.set_text('Pulsing ... ')
-entry3.set_icon_from_icon_name(Gtk::EntryIconPosition::PRIMARY, icon_name)
+entry3.set_text('Showing an icon on the right side')
+icon_name = :contact_new
+entry3.set_icon_from_icon_name(Gtk::EntryIconPosition::SECONDARY, icon_name)
 box1.add(entry3)
 
 # =========================================================================== #
 # === do_pulse
 # =========================================================================== #
-def do_pulse(i)
+def do_pulse(i, return_value = true)
   i.progress_pulse
-  true
+  return_value
 end
 
+# =========================================================================== #
+# Attach a pulse to entry3 next:
+# =========================================================================== #
 entry3.set_progress_pulse_step(0.2)
-_timeout_id = GLib::Timeout.add(100) {
+_timeout_id = GLib::Timeout.add(500) {
   do_pulse(entry3)
 }
 
@@ -81,11 +85,12 @@ box1.pack_start(entry2, expand: false, fill: false, padding: 20)
 
 entry3 = Gtk::Entry.new
 entry3.set_width_chars(10)
+# Set a ghost text
 entry3.set_placeholder_text('https://youtube.com/watch?v=...')
 box1.pack_start(entry3, expand: false, fill: false, padding: 20)
 
 window.add(box1)
 window.signal_connect(:destroy) { Gtk.main_quit }
-window.show_all.set_size_request(800, 200)
+window.show_all.set_size_request(400, 200)
 window.move(0, 0)
 Gtk.main

data/lib/gtk_paradise/examples/gtk3/{009_scrolled_window_example.rb → 002_scrolled_window_example.rb}

@@ -2,7 +2,7 @@
 # Encoding: UTF-8
 # frozen_string_literal: true
 # =========================================================================== #
-# $GTK_PARADISE/examples/gtk3/scrolled_window_example.rb
+# $GTK_PARADISE/examples/gtk3/002_scrolled_window_example.rb
 # =========================================================================== #
 require 'gtk3'
 
@@ -15,13 +15,13 @@ window = Gtk::Window.new
 @text_view = Gtk::TextView.new(@text_buffer)
 @text_view.set_editable(true)
 rgba = Gdk::RGBA.new
-rgba.parse(:silver)
+rgba.parse(:lightblue)
 
 @text_view.override_background_color(:normal, rgba)
 @text_view.cursor_visible = false # cursor is nit mehr zu sehen.
 @text_view.wrap_mode = :word
-@text_view.left_margin = 15
-@text_view.right_margin = 15
+@text_view.left_margin  = 25
+@text_view.right_margin = 25
 @text_view.set_cursor_visible(true)
 
 @scrolled_window = Gtk::ScrolledWindow.new
@@ -45,5 +45,7 @@ rgba.parse(:silver)
 window.add(@scrolled_window)
 window.show_all
 window.set_size_request(1200, 800)
+window.set_border_width(25)
 window.move(0, 0)
+window.signal_connect(:delete_event) { ::Gtk.main_quit }
 Gtk.main