gtk_paradise 0.9.120

data/lib/gtk_paradise/examples/gtk2/061_mouse_movement.rb

@@ -0,0 +1,174 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This widget shows how to intercept mouse-drag and mouse-drop events.
+# =========================================================================== #
+# require '061_mouse_movement.rb'
+# =========================================================================== #
+require 'gtk2'
+
+module Gtk
+
+class ValueDragger < ::Gtk::EventBox
+  
+  attr_accessor :val
+  attr_accessor :divX
+  attr_accessor :divY
+  attr_accessor :widget
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      widget = Label.new('value = 0'),
+      divX = 1,
+      divY = 1,
+      &block
+    )
+    super()
+    self.signal_connect('motion-notify-event')  { | w, e |
+      on_motion_notify_event( w, e )
+    }
+    self.signal_connect(:button_press_event)    { on_button_press_event }
+    self.signal_connect('button-release-event') { on_button_release_event }
+    self.add(@widget = widget)
+    @startVal = 0
+    @should_change_val = false
+    @startX = nil
+    @startY = nil
+    @block  = block
+    @divX   = divX
+    @divY   = divY
+    @divX   = 1 if divX.to_f == 0
+    @divY   = 1 if divY.to_f == 0
+  end
+
+  # ========================================================================= #
+  # === on_motion_notify_event
+  # ========================================================================= #
+  def on_motion_notify_event(w, e)
+    if @should_change_val
+      _win, x, y, state = e.window.pointer
+      p e.class
+      @val = ( @startVal + ( ( x - @startX ) / @divX ) +
+             ( ( @startY - y ) / @divY ) ).round
+      @block.call
+      return true
+    end
+  end
+
+  # ========================================================================= #
+  # === on_button_press_event
+  # ========================================================================= #
+  def on_button_press_event
+    win, @startX, @startY, state = self.window.pointer
+    @should_change_val = true
+  end
+
+  # ========================================================================= #
+  # === on_button_release_event
+  # ========================================================================= #
+  def on_button_release_event
+    @should_change_val = false
+    @startX = nil
+    @startY = nil
+    @startVal = @val
+  end
+  
+  # ========================================================================= #
+  # === get_value
+  # ========================================================================= #
+  def get_value
+    return @val
+  end
+
+  # ========================================================================= #
+  # === get_widget
+  # ========================================================================= #
+  def get_widget
+    return @widget
+  end
+
+  # ========================================================================= #
+  # === set_value
+  # ========================================================================= #
+  def set_value(i)
+    @startVal = i
+  end
+
+  # ========================================================================= #
+  # === set_divX
+  # ========================================================================= #
+  def set_divX(i)
+    i = 1 if i.to_f == 0
+    @divX = i
+  end; alias set_x set_divX # === set_x
+
+  # ========================================================================= #
+  # === set_divY
+  # ========================================================================= #
+  def set_divY(i)
+    i = 1 if i.to_f == 0
+    @divY = i
+  end; alias set_y set_divY
+
+  # ========================================================================= #
+  # === set_div
+  #
+  # Here we set both x and y in one method.
+  # ========================================================================= #
+  def set_div( x, y )
+    set_x(x)
+    set_y(y)
+  end
+
+  # ========================================================================= #
+  # === new_block
+  # ========================================================================= #
+  def new_block(&block)
+    @block = block
+  end
+end
+
+end
+
+class MainApp < Gtk::Window
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    super
+    self.signal_connect(:destroy) { Gtk.main_quit }
+    f = Gtk::Frame.new('')
+    label = Gtk::Label.new( 'Wert = 0' )
+    dragger = Gtk::ValueDragger.new( f.add(label) ) {
+      label.set_label("Wert = #{ dragger.get_value }")
+    }
+    vbox = Gtk::VBox.new
+    label = Gtk::Label.new(
+      'Click the mouse button in order to modify the value.'
+    )
+    vbox.pack_start(label, false, false, 10)
+    entry_X = Gtk::Entry.new
+    entry_Y = Gtk::Entry.new 
+    vbox.pack_start(entry_X, false)
+    vbox.pack_start(entry_Y, false)
+    button = Gtk::Button.new(Gtk::Stock::OK) 
+    vbox.pack_start(button, false)
+    vbox.pack_start(dragger)
+    eX.text = 'X-Teiler hier...'
+    eY.text = 'Y-Teiler hier...'
+    self.add( vbox ).show_all
+    btn.signal_connect(:clicked) {
+      dragger.set_div( eX.text.to_f, eY.text.to_f )
+    }
+  end
+
+end
+
+if __FILE__ == $PROGRAM_NAME
+  MainApp.new
+  Gtk.main
+end

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

@@ -0,0 +1,16 @@
+This directory may contain code that may serve as "examples", ideally simple
+examples, but more advanced examples can be stored here as well.
+
+The difference between files stored in the directory here, and files stored
+in the subdirectory gtk_paradise/widgets/ is that the latter may tap into
+code that is available within the gtk_paradise project itself, whereas the
+former MUST contain only self-contained examples that work, by default,
+with ruby-gtk2 or ruby-gtk3 only. That way we can see which examples work,
+and which ones that were modified via the gtk_paradise project do not work.
+The user may thus learn from the "raw" examples as well.
+
+In October 2020 the above rule was a bit relaxed; while it still applies
+to gtk2, I try to shorten the code in the gtk3-examples sometimes, to see
+whether it is simpler to maintain it, or more confusing - we will see.
+The subdirectory advanced/ may contain code that taps into the gtk_paradise
+more determinedly so.

data/lib/gtk_paradise/examples/gtk2/settings/README.md

@@ -0,0 +1,2 @@
+This is for Gtk::Settings, but only for the ruby-gtk2 bindings. In the
+ruby-gtk3 bindings, the code here does not work.

data/lib/gtk_paradise/examples/gtk2/settings/gtk_settings.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'gtk2'
+
+enum = GLib::Param::Enum.new(
+   'enum',                      # name
+   'Enum',                      # nick
+   'Enum enum',                 # blurb
+   GLib::Type['GdkCursorType'], #type
+   Gdk::Cursor::ARROW,          #default
+   GLib::Param::READABLE|
+   GLib::Param::WRITABLE
+)
+
+flags = GLib::Param::Flags.new(
+  'flags',                       # name
+  'Flags',                       # nick
+  'Flags flags',                 # blurb
+  GLib::Type['GdkEventMask'],    #type
+  Gdk::Event::LEAVE_NOTIFY_MASK, #default
+  GLib::Param::READABLE|
+  GLib::Param::WRITABLE
+)
+
+spec = GLib::Param::Int.new('integer',         # name
+  'Integer',         # nick
+  'Integer integer', # blurb
+  0,                 # min
+  10000,             # max
+  0,                 # default
+  GLib::Param::READABLE|
+  GLib::Param::WRITABLE
+)
+
+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

data/lib/gtk_paradise/examples/gtk2/uimanager/uimanager.xml

@@ -0,0 +1,36 @@
+<?xml version="1.0"?> 
+<ui>
+  <menubar name='MenuBar'>
+    <menu action='FileMenu'>
+      <menuitem action='New'/>
+      <menuitem action='Open'/>
+      <menuitem action='Save'/>
+      <menuitem action='SaveAs'/>
+      <separator/>
+      <menuitem action='Quit'/>
+    </menu>
+    <menu action='PreferencesMenu'>
+      <menu action='ColorMenu'>
+	<menuitem action='Red'/>
+	<menuitem action='Green'/>
+	<menuitem action='Blue'/>
+      </menu>
+      <menu action='ShapeMenu'>
+        <menuitem action='Square'/>
+        <menuitem action='Rectangle'/>
+        <menuitem action='Oval'/>
+      </menu>
+      <menuitem action='Bold'/>
+    </menu>
+    <menu action='HelpMenu'>
+      <menuitem action='About'/>
+    </menu>
+  </menubar>
+  <toolbar  name='ToolBar'>
+    <toolitem action='Open'/>
+    <toolitem action='Quit'/>
+    <separator action='Sep1'/>
+    <toolitem action='Logo'/>
+  </toolbar>
+</ui>
+

data/lib/gtk_paradise/examples/gtk2/uimanager/uimanager_example.rb

@@ -0,0 +1,113 @@
+#!/usr/bin/ruby -w
+# This string carries the XML dataset.
+@xml_ui_info = %Q[
+
+<ui>
+ <menubar name='MenuBar'>
+   <menu action='FileMenu'>
+     <menuitem action='New'/>
+     <menuitem action='Open'/>
+     <menuitem action='Save'/>
+     <menuitem action='SaveAs'/>
+     <separator/>
+     <menuitem action='Quit'/>
+   </menu>
+   <menu action='PreferencesMenu'>
+   <menu action='ColorMenu'>
+ <menuitem action='Red'/>
+ <menuitem action='Green'/>
+ <menuitem action='Blue'/>
+     </menu>
+     <menu action='ShapeMenu'>
+       <menuitem action='Square'/>
+       <menuitem action='Rectangle'/>
+       <menuitem action='Oval'/>
+     </menu>
+     <menuitem action='Bold'/>
+   </menu>
+    <menu action='HelpMenu'>
+      <menuitem action='About'/>
+    </menu>
+  </menubar>
+  <toolbar  name='ToolBar'>
+    <toolitem action='Open'/>
+    <toolitem action='Quit'/>
+    <separator action='Sep1'/>
+    <toolitem action='Logo'/>
+  </toolbar>
+</ui>]
+
+require 'gtk2'
+Gtk.init
+if str = Gtk.check_version(2, 4, 0)
+  puts "This sample requires GTK+ 2.4.0 or later"
+  puts str
+  exit
+end
+callback = Proc.new {|actiongroup, action| 
+  puts "`#{action.name}' is clicked. "
+  if action.is_a? Gtk::ToggleAction
+    puts "active? = #{action.active?}"
+  end
+}
+callback_quit = Proc.new {
+  p 'Quit is called.'
+  Gtk.main_quit
+}
+callback_radio = Proc.new {|action, current|
+  puts "action = `#{action.name}'"
+  puts "current = `#{current.name}'"
+}
+
+actions = [
+  ['FileMenu', nil, '_File'],
+  ['PreferencesMenu', nil, '_Preferences'],
+  ['ColorMenu', nil, '_Color'],
+  ['ShapeMenu', nil, '_Shape'],
+  ['HelpMenu', nil, '_Help'],
+  ['New',    Gtk::Stock::NEW, '_New', '<control>N', 'Create a new file', callback],
+  ['Open',   Gtk::Stock::OPEN, '_Open', '<control>O', 'Open a file', callback],
+  ['Save',   Gtk::Stock::SAVE, '_Save', '<control>S', 'Save current file', callback],
+  ['SaveAs', Gtk::Stock::SAVE, 'Save _As...', nil, 'Save to a file', callback],
+  ['Quit',   Gtk::Stock::QUIT, '_Quit', '<control>Q', 'Quit', callback_quit],
+  ['About', nil, '_About', '<control>A', 'About', callback],
+  ['Logo', 'demo-gtk-logo', nil, nil, 'GTK+', callback]
+]
+
+toggle_actions = [
+  ['Bold', Gtk::Stock::BOLD, '_Bold', '<control>B', 'Bold', callback, true]
+]
+
+color_radio_actions = [
+  ['Red',   nil, '_Red',   '<control>R', 'Blood', 0],
+  ['Green', nil, '_Green', '<control>G', 'Grass', 1],
+  ['Blue',  nil, '_Blue',  '<control>B', 'Sky', 2]
+]
+shape_radio_actions = [
+  ['Square', nil, '_Square', '<control>S', 'Square', 0],
+  ['Rectangle', nil, '_Rectangle', '<control>R', 'Rectangle', 1],
+  ['Oval', nil, '_Oval', '<control>O', 'Egg', 2]
+]
+
+window = Gtk::Window.new
+
+actiongroup = Gtk::ActionGroup.new('Actions')
+actiongroup.add_actions(actions)
+actiongroup.add_toggle_actions(toggle_actions)
+actiongroup.add_radio_actions(color_radio_actions, 1) { |action, current|
+  puts "action = `#{action.name}'"
+  puts "current = `#{current.name}'"
+}
+actiongroup.add_radio_actions(shape_radio_actions, 2, callback_radio)
+uimanager = Gtk::UIManager.new
+uimanager.insert_action_group(actiongroup, 0)
+window.add_accel_group(uimanager.accel_group)
+uimanager.add_ui(@xml_ui_info)
+vbox = Gtk::VBox.new
+vbox.pack_start(uimanager.get_widget('/MenuBar'), false, false)
+vbox.pack_start(Gtk::Label.new("Gtk::UIManager Sample"))
+window.add(vbox)
+window.set_default_size(100, 100).show_all
+window.move(0, 0)
+window.signal_connect(:destroy){Gtk.main_quit}
+Gtk.main

data/lib/gtk_paradise/examples/gtk3/001_font_related_information.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This widget will show some information about the font in use.
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/font_related_information.rb
+# =========================================================================== #
+require 'gtk3'
+
+module Gtk
+
+class FontRelatedInformation < ::Gtk::Window # === Gtk::FontRelatedInformation
+
+  alias e puts
+
+  begin
+    require 'colours'
+    include Colours
+  rescue LoadError; end
+
+  # ========================================================================= #
+  # === USE_THIS_FONT
+  # ========================================================================= #
+  USE_THIS_FONT = Pango::FontDescription.new('Hack 20')
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      run_already = true
+    )
+    super('First example')
+    reset
+    override_font(USE_THIS_FONT)
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset
+  # ========================================================================= #
+  def reset
+    # ======================================================================= #
+    # === @use_this_font
+    # ======================================================================= #
+    @use_this_font = 'Hack 20'
+    set_size_request(400, 400)
+    set_border_width(10)
+  end
+
+  # ========================================================================= #
+  # === display_the_full_font_of
+  # ========================================================================= #
+  def display_the_full_font_of(font_description)
+    e 'The font description, as String, is: '+
+      steelblue(font_description.to_s)
+  end
+
+  # ========================================================================= #
+  # === run
+  # ========================================================================= #
+  def run
+    button = ::Gtk::Button.new(label: 'Say hello')
+    button.signal_connect(:clicked) {
+      e 'Hello World!! \\o/'
+      pango_context = button.pango_context
+      font_description = pango_context.font_description
+      display_the_full_font_of(font_description)
+      e 'The family name is: '+steelblue(font_description.family.to_s)
+      splitted = @use_this_font.split(' ')
+      @use_this_font = splitted.first+' '+(splitted.last.to_i+1).to_s
+      button.override_font(
+        Pango::FontDescription.new(
+          @use_this_font
+        )
+      )
+      button.override_font(Pango::FontDescription.new('bold'))
+    }
+    button.override_font(
+      Pango::FontDescription.new('bold')
+    )
+    add(button)
+    signal_connect(:delete_event) { |_widget| ::Gtk.main_quit }
+    show_all
+    move(0, 0)
+    ::Gtk.main
+  end
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  Gtk::FontRelatedInformation.new
+end

data/lib/gtk_paradise/examples/gtk3/002_simple_window.rb

@@ -0,0 +1,48 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/simple_window.rb
+# =========================================================================== #
+require 'gtk3'
+
+alias e puts
+
+window = Gtk::Window.new
+window.set_size_request(800, 600)
+window.realize
+# =========================================================================== #
+# Next query for its xid value.
+# =========================================================================== #
+xid_value = window.window.xid.to_s
+e 'The windows xid is: '+xid_value
+_ = 'mpv --wid='+xid_value+' --start=280 /home/x/video/Realvids/224_Tremors.mp4'
+e _
+system _
+
+box = Gtk::Box.new(:vertical)
+button = Gtk::Button.new(label: 'Run mplayer')
+
+button.signal_connect(:clicked) {|widget, event|
+  # ========================================================================= #
+  # Let mpv play via the specified XID value.
+  # ========================================================================= #
+  Thread.new {
+    _ = 'mpv --wid='+xid_value+' --start=280 /home/x/video/Realvids/224_Tremors.mp4'
+    e _
+    system _
+  }
+} 
+box.add(button)
+window.add(box)
+window.show_all
+# =========================================================================== #
+# Next we use three calls to .set_title(). The reason this was added was
+# mostly to find out whether a newly set title overrides an older title.
+# This is indeed the case.
+# =========================================================================== #
+window.set_title('A - 002_simple_window.rb')
+window.set_title('B - 002_simple_window.rb')
+window.set_title('C - 002_simple_window.rb')
+window.move(0, 0)
+Gtk.main

data/lib/gtk_paradise/examples/gtk3/003_sorted_tree.rb

@@ -0,0 +1,141 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# A brief demonstration of:
+#
+#   - Gtk::Window
+#   - Gtk::ScrolledWindow
+#   - Gtk::ListStore
+#   - Gtk::TreeView
+#   - Gtk::TreeModelSort
+#   - Gtk::TreeModelFilter
+#   - Gtk::CellRenderText
+#   - Gtk::TreeViewcolumn
+#   - Gtk::TreeIter
+#
+# =========================================================================== #
+# require 'sorted_tree.rb'
+# =========================================================================== #
+# $GTK_PARADISE/examples/gtk3/sorted_tree.rb
+# =========================================================================== #
+require 'gtk3'
+
+alias e puts
+
+# =========================================================================== #
+# === register_sigint
+# =========================================================================== #
+def register_sigint
+  Signal.trap('SIGINT') { exit }
+end; register_sigint
+
+# =========================================================================== #
+# Create a list store with:
+#  - an Integer (ID)
+#  - a String (date)
+#  - a TrueClass (represents whether or not the row should be shown or 
+#   not)
+# =========================================================================== #
+list_store = Gtk::ListStore.new(Integer, String, TrueClass)
+
+# =========================================================================== #
+# Create a filtered list store that wraps the list store
+# and set the filter column criteria
+# =========================================================================== #
+list_store_filter = Gtk::TreeModelFilter.new(list_store)
+list_store_filter.visible_column = 2
+
+# =========================================================================== #
+# === Gtk::TreeModelSort
+#
+# Create a sorted list store and set the sorting function for the
+# first column.  Note that we are wrapping the sorted model around
+# filtered model -- which in turn wraps the original list store model.
+# =========================================================================== #
+list_store_sort = Gtk::TreeModelSort.new(list_store_filter)
+list_store_sort.set_sort_func(0) { |a, b| a[0] <=> b[0] }
+
+# =========================================================================== #
+# Fill the list store with stuff - 3 elements per iter.
+# =========================================================================== #
+10.times { |i|
+  iter = list_store.append
+  iter[0] = i
+  iter[1] = Time.now.to_s
+  iter[2] = true
+}
+
+# =========================================================================== #
+# Create a window with a size of 800x400 pixels next.
+# =========================================================================== #
+window = Gtk::Window.new
+window.set_size_request(800, 400)
+window.signal_connect(:destroy) { Gtk::main_quit }
+
+# =========================================================================== #
+# Create a scrollable window, with automatic scrollbars, and
+# pack it into the window
+# =========================================================================== #
+scrolled_window = Gtk::ScrolledWindow.new
+scrolled_window.set_policy(:automatic, :automatic)
+window << scrolled_window
+
+# =========================================================================== #
+# Create a treeview, giving it the sorted list store (which is
+# wrapping the
+# =========================================================================== #
+tree_view = Gtk::TreeView.new(list_store_sort)
+scrolled_window.add_with_viewport(tree_view)
+
+# =========================================================================== #
+# Create a CellRenderer that's in charge of rendering the ID
+# =========================================================================== # 
+renderer = Gtk::CellRendererText.new
+renderer.set_property('background', 'lavender')
+renderer.set_property('foreground', 'black')
+
+# =========================================================================== #
+# Create the ID column which uses the cell renderer defined above and
+# is hooked up to the first column of the model. Sorting is turned on
+# on this column (which also uses the first column in the model
+# to figure out what to sort)
+# =========================================================================== #
+id_column = Gtk::TreeViewColumn.new('ID', renderer, text: 0)
+id_column.sort_column_id = 0
+id_column.alignment = 0.5 # Center it.
+id_column.set_resizable(true)
+tree_view.append_column(id_column)
+
+# =========================================================================== #
+# Create a column that renders the current time (the second column
+# in the model.
+# =========================================================================== #
+time_column = Gtk::TreeViewColumn.new('Current Time', renderer, text: 1)
+tree_view.append_column(time_column)
+
+tree_view.signal_connect(:button_release_event) { |widget,event|
+  e "The id is: #{widget.selection.selected[0]}"
+}
+tree_view.rules_hint = true
+
+# =========================================================================== #
+# Show everything
+# =========================================================================== #
+window.show_all
+window.move(0, 0)
+
+# =========================================================================== #
+# Every once in 10 seconds will we loop through each row in the list
+# and update the time and set half of the rows' visibility attribute 
+# to false and the other half to true.
+# =========================================================================== #
+GLib::Timeout.add(10_000) {
+  list_store.each { |model, path, iter|
+    iter[1] = Time.now.to_s
+    iter[2] = rand(2) == 1
+  }
+}
+
+# Starts the Gtk main loop
+Gtk.main