tk_paradise 0.0.13

data/lib/tk_paradise/examples/014_tk_slider.rb

@@ -0,0 +1,63 @@
+# This demonstration script creates a text widget that illustrates the
+# various display styles that may be set for tags. 
+# Modified from the demo widget example provided in the Tcl release
+require 'tk'
+TITLE = 'Packing Example'
+root   = TkRoot.new() { title TITLE }
+button = TkButton.new(root) { 
+  text "First, rightmost" 
+  }
+button.pack("side"=>"right", "fill"=>'y')
+entry = TkEntry.new(root).pack("side"=>"top", "fill"=>"x")
+entry.insert(0, "Entry on the top")
+label = TkLabel.new() { text 'to the right' }
+label.pack("side"=>"right")
+image = TkPhotoImage.new(
+  'file'   => '/home/x/DATA/images/NJOY/Leeann_Tweeden.png', 
+  'height' => 52
+)
+img_label = TkLabel.new(root) { image image }.pack("anchor"=>"e")
+text = TkText.new(root) { width 20; height 5 }.pack("side"=>"left")
+text.insert('end', "Left in canvas")
+TkButton.new(root) {
+  index = 0
+  text 'Click Me'
+  command proc {
+  index += 1
+  puts 'Congratulations on creating ' +
+  'your '+verbose_number_to_word_position(index.to_s)+' Ruby/Tk' +
+  'application'}
+  }.pack('padx'=>15, 'pady'=>15) 
+#TkScrollbar.new(root)
+TkMessage.new(root) { text "Message in the Bottom" }.pack("side"=>"bottom")
+Tk.mainloop() 
+
+
+#text .t -yscrollcommand ".scroll set" -setgrid true \
+#        -width 40 -height 10 -wrap word
+#scrollbar .scroll -command ".t yview"
+#pack .scroll -side right -fill y
+#pack .t -expand yes -fill both
+#
+# Set up the tags 
+#.t tag configure bold_italics -font \
+#    {-family courier -size 12 -weight bold -slant italic}
+#.t tag configure big -font {-family helvetica -size 24 -weight bold}
+#.t tag configure color1 -foreground red
+#.t tag configure sunken -relief sunken -borderwidth 1
+#.t tag bind Ouch <1> {.t insert end "Ouch! "}
+#
+# Now insert text that has the property of the tags
+#.t insert end "Here are a few text styles.\n"
+#.t insert end "1. Bold italic text.\n" bold_italics#
+#.t insert end "2. Larger Helvetica  text.\n" big
+#.t insert end "3. Red text.\n" color1
+#.t insert end "4. Sunken text.\n" sunken
+#button .b -text "5. An embedded Hello Button" \
+#    -command {.t insert end "Hello "}
+#.t window create end -window .b
+#.t insert end "\n"
+# .t insert end "6. Text with a binding (try clicking me)" Ouch
+#.t insert end "\nAnd all this is editable!"
+
+

data/lib/tk_paradise/examples/015_choose_colour_example.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+root = TkRoot.new
+root.title = 'Window'
+root.geometry('800x600+0+0')
+
+button_click = Proc.new {
+  Tk.chooseColor
+}
+
+button = TkButton.new(root) {
+  text 'button'
+  pack(side: :left, padx: "50", pady: "50")
+}
+
+button.command = button_click
+
+Tk.mainloop

data/lib/tk_paradise/examples/016_spin_box_example.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+alias e puts
+
+root = TkRoot.new
+root.title = 'Window'
+root.geometry('800x600+0+0')
+
+@spin_box_variable = TkVariable.new
+@spin_box = TkSpinbox.new(root) {
+  from 0
+  to 100
+  increment 5
+  justify :center
+  textvariable @spin_box_variable
+  command proc { callback }
+  pack(side: 'left', padx: '50', pady: '50')
+}
+def callback
+  e 'The value has changed.'
+  e @spin_box_variable.get
+end
+
+Tk.mainloop

data/lib/tk_paradise/examples/017_combo_box_example.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+alias e puts
+
+root = TkRoot.new
+root.title = 'Combo Box Example'
+root.geometry('700x550+0+0')
+
+MONOSPACED_FONT = TkFont.new(family: 'Hack', size: 22, weight: 'bold')
+
+# =========================================================================== #
+# label text for title
+# =========================================================================== #
+TkLabel.new(root,
+            text: 'Combobox Widget', 
+            background: 'green',
+            foreground: 'white',
+            font:       MONOSPACED_FONT
+           ).grid(row: 0, column: 0)
+
+TkLabel.new(root,
+            text:       'Select the month:',
+            font:       MONOSPACED_FONT
+           ).grid(column: 0, row: 5, padx: 10, pady: 25)
+
+# =========================================================================== #
+# Combobox creation:
+# =========================================================================== #
+n = TkVariable.new
+combo_box = TkCombobox.new(
+  root,
+  width: 30,
+  font:  MONOSPACED_FONT,
+  textvariable: n
+)
+combo_box.values(%w(
+  aa bb cc dd ee ff gg hh ii jj kk ll mm nn oo pp qq rr ss tt uu
+))
+combo_box.grid(column: 0, row: 6)
+combo_box.current = 3
+
+Tk.mainloop

data/lib/tk_paradise/examples/018_tk_list_box_example.rb

@@ -0,0 +1,18 @@
+require 'tk'
+
+root = TkRoot.new
+root.title = "Window"
+root.geometry('700x400+0+0')
+list = TkListbox.new(root) {
+   width 10
+   height 10
+   setgrid 1
+   selectmode 'multiple'
+   pack('fill' => 'x')
+}
+
+list.insert 0, "yellow", "gray", "green",
+  "blue", "red", "black", "white", "cyan",
+  "pink", "yellow", "orange", "gray"
+
+Tk.mainloop

data/lib/tk_paradise/examples/019_tk_curves.rb

@@ -0,0 +1,33 @@
+require 'tk'
+include Math
+
+TkRoot.new { |root|
+title 'Curves'
+geometry "400x400"
+TkCanvas.new(root) do |canvas|
+width 400
+height 400
+pack('side'=>'top', 'fill'=>'both', 'expand'=>'yes')
+points = [ ]
+10.upto(30) do |scale|
+(0.0).step(2*PI,0.1) do |i|
+  new_x = 5*scale*sin(i) + 200
+  new_y = 5*scale*cos(i) + 200
+  points << [ new_x, new_y ]
+  f = scale/5.0
+  r = (Math.sin(f)+1)*127.0
+  g = (Math.cos(2*f)+1)*127.0
+  b = (Math.sin(3*f)+1)*127.0
+col = sprintf("#%02x%02x%02x", r.to_i, g.to_i, b.to_i)
+if points.size == 3
+  TkcLine.new(canvas, points[0][0], points[0][1],
+  points[1][0], points[1][1], points[2][0], points[2][1],
+  'smooth'=>'on', 'width'=> 7, 'fill' => col, 'capstyle' => 'round')
+  points.shift
+end
+end
+end
+end
+}
+
+Tk.mainloop

data/lib/tk_paradise/examples/advanced/0001_example_showing_move_method.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk_paradise'
+
+alias e puts
+
+@window = Tk.root
+@window.title = 'Window'
+@window.move(0, 0)
+USE_THIS_FONT = TkFont.new(family: 'Helvetica', size: 20, weight: 'bold')
+
+# =========================================================================== #
+# === on_button1_clicked
+# =========================================================================== #
+def on_button1_clicked
+  result = Tk.choose_colour # The result may be like this: "#d9845b"
+  @window.configure(background: result)
+  return result
+end
+
+proc_on_button_clicked = Proc.new { on_button1_clicked }
+
+button = TkButton.new(@window) {
+  text 'button: choose a colour'
+  font USE_THIS_FONT
+  pack(side: :left, padx: "50", pady: "50")
+}
+button.command = proc_on_button_clicked
+
+Tk.run

data/lib/tk_paradise/tk_classes/label.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'tk_paradise/tk_classes/label.rb'
+# =========================================================================== #
+module Tk
+
+class TkLabel
+
+  # ========================================================================= #
+  # === set_text
+  # ========================================================================= #
+  def set_text(i)
+    configure(text: i)
+  end
+
+end; end

data/lib/tk_paradise/tk_classes/root.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'tk_paradise/tk_classes/root.rb'
+# =========================================================================== #
+module Tk
+
+class Root
+
+  # ========================================================================= #
+  # === move
+  #
+  # This will re-position the tk-root widget to the specified position,
+  # similar to how ruby-gtk works.
+  # ========================================================================= #
+  def move(
+      x = 0,
+      y = 0
+    )
+    root.geometry("+#{x}+#{y}") # This will only specify the x and y coordinates
+  end
+  
+end; end

data/lib/tk_paradise/tk_paradise.rb

@@ -0,0 +1,154 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'tk_paradise/tk_paradise.rb'
+# include Tk
+# =========================================================================== #
+require 'tk'
+
+module Tk
+
+  alias choose_colour chooseColor # === choose_colour
+
+  # ========================================================================= #
+  # Provide some "aliases".
+  # ========================================================================= #
+  Grid = TkGrid
+  Font = TkFont
+  # ========================================================================= #
+  # Button = TkButton
+  # Note that the tk-gem already defines Button.
+  # ========================================================================= #
+
+  # ========================================================================= #
+  # === e
+  # ========================================================================= #
+  def e(i = '')
+    puts i
+  end
+
+  # ========================================================================= #
+  # === Tk.run
+  # ========================================================================= #
+  def self.run
+    ::Tk.mainloop
+  end
+
+  # ========================================================================= #
+  # === Tk.root
+  # ========================================================================= #
+  def self.root(hash = {}, &block)
+    root = TkRoot.new { hash }
+    if block_given?
+      yielded = yield
+      if yielded.is_a? Hash
+        # =================================================================== #
+        # === :geometry
+        # =================================================================== #
+        if yielded.has_key? :geometry
+          root.geometry(yielded[:geometry])
+        end
+        # =================================================================== #
+        # === :title
+        # =================================================================== #
+        if yielded.has_key? :title
+          root.title = yielded[:title]
+        end
+      end
+    end
+    return root
+  end
+
+  # ========================================================================= #
+  # === tk_label
+  #
+  # The second argument should be the root-widget.
+  #
+  # Usage example:
+  #
+  #   tk_label('Message in the Bottom', root) { :on_bottom }
+  #
+  # ========================================================================= #
+  def tk_label(
+      text_to_use = '',
+      root_widget = nil,
+      font        = nil # fontStyle = tkFont.Font(family="Lucida Grande", size=20)
+    )
+    pack_onto_this_side = 'bottom'
+    # ======================================================================= #
+    # === Handle blocks next
+    # ======================================================================= #
+    if block_given?
+      yielded = yield
+      case yielded # case tag
+      # ===================================================================== #
+      # === :on_bottom
+      # ===================================================================== #
+      when :on_bottom
+        pack_onto_this_side = 'bottom'
+      # ===================================================================== #
+      # === :on_right
+      # ===================================================================== #
+      when :on_right
+        pack_onto_this_side = 'right'
+      end
+    end
+    ::TkMessage.new(root_widget) {
+      text(text_to_use)
+    }.pack('side' => pack_onto_this_side)
+  end; alias label tk_label # === label
+
+  # ========================================================================= #
+  # === tk_image
+  #
+  # Usage examples:
+  #
+  #   - create an empty image of 300x200 pixels:
+  #
+  #       image = TkPhotoImage.new(height: 200, width: 300)
+  #
+  #   - create an image from a file:
+  #
+  #       image = TkPhotoImage.new(file: 'my_image.gif')
+  #
+  # ========================================================================= #
+  def tk_image(
+      path_to_the_image,
+      extra_arguments = { height: 50 }
+    )
+    hash = {}
+    hash['file'] = path_to_the_image
+    hash.merge(extra_arguments)
+    return ::TkPhotoImage.new(hash)
+  end; alias image tk_image # === image
+
+  # ========================================================================= #
+  # === tk_button
+  # ========================================================================= #
+  # def tk_button
+  # end; alias button tk_button # === button
+
+  class Button
+
+    # ======================================================================= #
+    # === set_font
+    # ======================================================================= #
+    def set_font(i)
+      self['font'] = i
+    end
+
+  end
+
+# create button
+# button = Button(gui, text='My Button', bg='#0052cc', fg='#ffffff')
+# # apply font to the button label
+# button['font'] = myFont
+
+end
+
+# =========================================================================== #
+# Next, require some addons - modifications of core-tk classes.
+# =========================================================================== #
+require 'tk_paradise/tk_classes/label.rb'
+require 'tk_paradise/tk_classes/root.rb'

data/lib/tk_paradise/version/version.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'tk_paradise/version/version.rb'
+# =========================================================================== #
+module Tk
+
+  # ========================================================================= #
+  # === VERSION
+  # ========================================================================= #
+  VERSION = '0.0.13'
+
+  # ========================================================================= #
+  # === LAST_UPDATE
+  # ========================================================================= #
+  LAST_UPDATE = '23.12.2023'
+
+end

data/lib/tk_paradise.rb

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

data/tk_paradise.gemspec

@@ -0,0 +1,42 @@
+# =========================================================================== #
+# Gemspec.
+# =========================================================================== #
+require 'tk_paradise/version/version.rb'
+require 'roebe'
+
+Gem::Specification.new { |s|
+
+  s.name    = 'tk_paradise'
+  s.version = Tk::VERSION
+  s.date    = Time.now.strftime('%Y-%m-%d')
+
+  DESCRIPTION = <<-EOF
+
+This project is called tk_paradise. It provides some helper-code for
+ruby-tk applications.
+
+It is in an early beta-stage; don't use it yet.
+  EOF
+
+  s.summary     = DESCRIPTION
+  s.description = DESCRIPTION
+  
+  s.extra_rdoc_files = %w()
+  
+  s.authors  = ['Robert A. Heiler']
+  s.email    = Roebe.email?
+  s.files    = Dir['**/*']
+  s.license  = 'GPL-2.0'
+  s.homepage = 'https://rubygems.org/gems/tk_paradise'
+
+  s.required_ruby_version     = '>= '+RUBY_VERSION
+  s.required_rubygems_version = '>= '+Gem::VERSION
+  s.rubygems_version          = '>= '+Gem::VERSION
+
+  # ========================================================================= #
+  # External dependencies for the project:
+  # ========================================================================= #
+  s.add_dependency 'colours'
+  s.add_dependency 'tk'
+
+}

metadata

@@ -0,0 +1,106 @@
+--- !ruby/object:Gem::Specification
+name: tk_paradise
+version: !ruby/object:Gem::Version
+  version: 0.0.13
+platform: ruby
+authors:
+- Robert A. Heiler
+autorequire:
+bindir: bin
+cert_chain: []
+date: 2023-12-23 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: colours
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: tk
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: |2
+
+  This project is called tk_paradise. It provides some helper-code for
+  ruby-tk applications.
+
+  It is in an early beta-stage; don't use it yet.
+email: shevy@inbox.lt
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- README.md
+- doc/README.gen
+- lib/tk_paradise.rb
+- lib/tk_paradise/base/base.rb
+- lib/tk_paradise/examples/001_dialog_box_example.rb
+- lib/tk_paradise/examples/002_draw_tiny_box.rb
+- lib/tk_paradise/examples/003_fun_with_cursors.rb
+- lib/tk_paradise/examples/004_hello_world_example.rb
+- lib/tk_paradise/examples/005_key_press_event_example.rb
+- lib/tk_paradise/examples/006_multiple_buttons.rb
+- lib/tk_paradise/examples/007_packing_example_in_tk.rb
+- lib/tk_paradise/examples/008_pig_latin_example.rb
+- lib/tk_paradise/examples/009_scrollbar_example.rb
+- lib/tk_paradise/examples/010_telnet_client.rb
+- lib/tk_paradise/examples/011_thermostat_example.rb
+- lib/tk_paradise/examples/012_tk_menu_example.rb
+- lib/tk_paradise/examples/013_tk_popup.rb
+- lib/tk_paradise/examples/014_tk_slider.rb
+- lib/tk_paradise/examples/015_choose_colour_example.rb
+- lib/tk_paradise/examples/016_spin_box_example.rb
+- lib/tk_paradise/examples/017_combo_box_example.rb
+- lib/tk_paradise/examples/018_tk_list_box_example.rb
+- lib/tk_paradise/examples/019_tk_curves.rb
+- lib/tk_paradise/examples/advanced/0001_example_showing_move_method.rb
+- lib/tk_paradise/examples/advanced/0019_tk_curves.rb
+- lib/tk_paradise/tk_classes/label.rb
+- lib/tk_paradise/tk_classes/root.rb
+- lib/tk_paradise/tk_paradise.rb
+- lib/tk_paradise/version/version.rb
+- tk_paradise.gemspec
+homepage: https://rubygems.org/gems/tk_paradise
+licenses:
+- GPL-2.0
+metadata: {}
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.2.2
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.4.22
+requirements: []
+rubygems_version: 3.4.22
+signing_key:
+specification_version: 4
+summary: This project is called tk_paradise. It provides some helper-code for ruby-tk
+  applications.  It is in an early beta-stage; don't use it yet.
+test_files: []