tk_paradise 0.0.13

data/lib/tk_paradise/base/base.rb

@@ -0,0 +1,63 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'tk_paradise/base/base.rb'
+# =========================================================================== #
+module Tk
+
+class Base # === Tk::Base
+
+  require 'colours'
+  include Colours
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      i = ARGV
+    )
+    set_commandline_arguments(i)
+    reset
+  end
+
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    # ======================================================================= #
+    # === @internal_hash
+    # ======================================================================= #
+    @internal_hash = {}
+  end
+
+  # ========================================================================= #
+  # === set_commandline_arguments
+  # ========================================================================= #
+  def set_commandline_arguments(i = '')
+    i = [i].flatten.compact
+    @commandline_arguments = i
+  end
+
+  # ========================================================================= #
+  # === commandline_arguments?
+  # ========================================================================= #
+  def commandline_arguments?
+    @commandline_arguments
+  end
+
+  # ========================================================================= #
+  # === first_argument?
+  # ========================================================================= #
+  def first_argument?
+    @commandline_arguments.first
+  end; alias first? first_argument? # === first?
+
+  # ========================================================================= #
+  # === tk_variable
+  # ========================================================================= #
+  def tk_variable
+    TkVariable.new
+  end
+
+end; end

data/lib/tk_paradise/examples/001_dialog_box_example.rb

@@ -0,0 +1,21 @@
+#!/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.getOpenFile
+}
+
+button = TkButton.new(root) {
+  text 'button'
+  pack(side: :left, padx: "50", pady: "50")
+}
+
+button.command = button_click
+
+Tk.mainloop

data/lib/tk_paradise/examples/002_draw_tiny_box.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+root = TkRoot.new { title 'Click to draw a tiny box' }
+TkLabel.new(root) { text 'Attention!'; font TkCaptionFont }
+canvas = TkCanvas.new(root)
+canvas.pack
+canvas.bind('1',  proc { |e| 
+  p "#{e.x}, #{e.y}"
+  TkcRectangle.new(canvas, e.x,e.y,e.x-5, e.y-5)
+})
+root.bind('Any-Key-d',  
+  proc { |event| 
+    p "#{event.x}, #{event.y}"
+    TkcRectangle.new(canvas, event.x, event.y, event.x-5, event.y-5)
+  }
+)
+Tk.mainloop
+# rb draw_tiny_box.rb

data/lib/tk_paradise/examples/003_fun_with_cursors.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+root     = TkRoot.new { title 'Fun with Cursors'}
+# =========================================================================== #
+# Specify the Root Geometry
+# =========================================================================== #
+root.geometry '1250x1000+0+0'
+
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='box_spiral';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='center_ptr';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='circle';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='clock';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='coffee_mug';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='cross';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='cross_reverse';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='crosshair';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='diamond_cross';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='dot';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='dotbox';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='double_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='draft_large';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='draft_small';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='draped_box';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='exchange';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='bottom_side';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='hand2';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='heart';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='icon';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='iron_cross';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='left_ptr';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='left_side';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='left_tee';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='leftbutton';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='ll_angle';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='lr_angle';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='man';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='middlebutton';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='mouse';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='pencil';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='pirate';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='plus';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='question_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='right_ptr';text x;background 'green';cursor x}.pack('side'=>'bottom', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='right_side';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='right_tee';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='rightbutton';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='rtl_logo';text x;background 'green';cursor x}.pack('side'=>'bottom', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sailboat';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_down_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_h_double_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_left_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_right_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_up_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sb_v_double_arrow';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='shuttle';text x;background 'green';cursor x}.pack('side'=>'top', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='sizing';text x;background 'green';cursor x}.pack('side'=>'right', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='spider';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='spraycan';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='star';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='target';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='tcross';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='top_left_arrow';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='top_left_corner';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='top_right_corner';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='top_side';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='top_tee';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='trek';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='ul_angle';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='umbrella';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='ur_angle';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='watch';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+TkMessage.new(root) { x='xterm';text x;background 'green';cursor x}.pack('side'=>'left', padx: 4, 'padx'=>2)
+Tk.mainloop
+# rb fun_with_cursors.rb

data/lib/tk_paradise/examples/004_hello_world_example.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk_paradise'
+require 'colours/autoinclude'
+
+root = TkRoot.new { title 'Hello, world!' }
+
+TkLabel.new(root) {
+  text 'Hello, World!'
+  pack { padx 25 ; pady 25; side 'left' }
+}
+# Add the hello world button next:
+button = TkButton.new(root) {
+  text 'Hello, World!'
+}
+button.command {
+  e 'HEY'
+}
+pp button.methods.sort
+button.pack
+Tk.mainloop

data/lib/tk_paradise/examples/005_key_press_event_example.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+alias e puts
+
+USE_THIS_FONT = TkFont.new(family: 'Helvetica', size: 20, weight: 'bold')
+
+root = TkRoot.new
+root.geometry('800x600+0+0')
+entry = TkEntry.new(root) {
+  font USE_THIS_FONT
+  pack
+}
+entry.bind('Key', proc {|this_key|
+  e "This key was pressed: `#{this_key}`"
+}, '%K')
+
+Tk.mainloop

data/lib/tk_paradise/examples/006_multiple_buttons.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+alias e puts
+
+# =========================================================================== #
+# === TITLE
+# =========================================================================== #
+TITLE = 'Several buttons'  
+root = TkRoot.new { title TITLE }
+root.geometry('550x450+10+10')
+buttons = %w( one and one ).map { |entry|
+  TkButton.new(root, text: entry)
+}
+TkGrid.grid(
+  buttons[0],
+  buttons[1],
+  buttons[2],
+  columnspan: 2
+)
+TkButton.new(root, text: 'is').grid(columnspan: 3, sticky: 'ew')
+button2 = TkButton.new(root, text: 'button2', width: 50).
+          grid('row' => 1, 'column' => 3, 'columnspan' => 3)
+button2.command {
+  e 'Hello from button2.'
+}
+Tk.mainloop

data/lib/tk_paradise/examples/007_packing_example_in_tk.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk_paradise'
+
+include Tk
+
+IMAGE = '/home/x/DATA/images/HUE2.gif'
+
+root = TkRoot.new() { title 'Packing Example' }
+
+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 = tk_label('to the right', root) { :on_right }
+
+our_image = tk_image(image, height: 50)
+img_label = TkLabel.new(root) { image(our_image) }.pack('anchor'=>'e')
+
+text = TkText.new(root) { width 20; height 5 }.pack('side'=>'left')
+text.insert('end', 'Left in canvas')
+
+tk_label('Message in the Bottom', root) { :on_bottom }
+Tk.run

data/lib/tk_paradise/examples/008_pig_latin_example.rb

@@ -0,0 +1,70 @@
+require 'tk'
+
+class PigBox
+
+  # ========================================================================= #
+  # === PADDING_TO_USE
+  # ========================================================================= #
+  PADDING_TO_USE = {
+    padx: 10,
+    pady: 10
+  }
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    use_this_callback = proc { show_pig }
+    root = TkRoot.new { title 'Pig' }
+    top = TkFrame.new(root)
+    TkLabel.new(top) {
+      text 'Enter Text:'
+      pack(PADDING_TO_USE)
+    }
+    @text = TkVariable.new
+    @entry = TkEntry.new(top, textvariable: @text)
+    @entry.pack(PADDING_TO_USE)
+    TkButton.new(top) {
+      text 'Pig It'
+      command use_this_callback
+      pack PADDING_TO_USE
+    }
+    TkButton.new(top) {
+      text 'Exit'
+      command {proc exit}
+      pack PADDING_TO_USE
+    }
+    top.pack(fill: 'both', side: 'top')
+  end
+
+  # ========================================================================= #
+  # === pig
+  # ========================================================================= #
+  def pig(word)
+    leadingCap = word =~ /^A-Z/
+    word.downcase!
+    res =
+    case word
+    when /^aeiouy/
+      "#{word}way"
+    when /^([^aeiouy]+)(.*)/
+      $2+$1+"ay"
+    else
+      word
+    end
+    leadingCap ? res.capitalize : res
+  end
+
+  # ========================================================================= #
+  # === show_pig
+  # ========================================================================= #
+  def show_pig
+    @text.value = @text.value.split.collect{|w| pig(w)}.join(' ')
+  end
+
+end
+
+if __FILE__ == $PROGRAM_NAME
+  PigBox.new
+  Tk.mainloop
+end

data/lib/tk_paradise/examples/009_scrollbar_example.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'tk'
+
+# =========================================================================== #
+# Demonstrates adding a vertical row of buttons to a scrolling canvas.
+# =========================================================================== #
+Tk.root.title('Test')
+Tk.root.geometry('800x600+0+0')
+
+canvas = TkCanvas.new(Tk.root) {
+  width 320
+  height 200
+  scrollregion '0 0 400 400'
+  pack(side: :left, fill: :both, expand: :true )
+}
+
+# =========================================================================== #
+# Create the scrollbar next:
+# =========================================================================== #
+vbar = TkScrollbar.new(Tk.root) {
+  orient 'vert'
+  pack(side: :right, fill: :y)
+}
+
+canvas.yscrollbar(vbar)
+
+frame = TkFrame.new(canvas) { |entry|
+  (1 .. 12).each { |i|
+    TkButton.new(entry) {
+      text i
+      command { Tk.bell }
+      grid
+    }
+  }
+}
+
+TkcLine.new(canvas, 0, 0, 400, 400)
+TkcLine.new(canvas, 0, 400, 400, 0)
+TkcWindow.new(canvas, 200, 200, width: 100, height: 280, window: frame)
+
+Tk.mainloop

data/lib/tk_paradise/examples/010_telnet_client.rb

@@ -0,0 +1,106 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require "tk"
+
+def packing(padx, pady, side = "left", anchor = "n")
+{ padx: padx, pady: pady, side: side, anchor: anchor }
+end
+
+root = TkRoot.new() { title "Telnet session" }
+top = TkFrame.new(root)
+fr1 = TkFrame.new(top)
+fr1a = TkFrame.new(fr1)
+fr1b = TkFrame.new(fr1)
+fr2 = TkFrame.new(top)
+fr3 = TkFrame.new(top)
+fr4 = TkFrame.new(top)
+
+LabelPack = packing(5, 5, "top", "w")
+EntryPack = packing(5, 2, "top")
+ButtonPack = packing(15, 5, "left", "center")
+FramePack = packing(2, 2, "top")
+Frame1Pack = packing(2, 2, "left")
+
+var_host = TkVariable.new
+var_port = TkVariable.new
+var_user = TkVariable.new
+var_pass = TkVariable.new
+
+lab_host = TkLabel.new(fr1a) do
+text "Host name"
+pack LabelPack
+end
+
+ent_host = TkEntry.new(fr1a) do
+textvariable var_host
+font "{Helvetica} 10"
+pack EntryPack
+end
+
+lab_port = TkLabel.new(fr1b) do
+text "Port"
+pack LabelPack
+end
+
+ent_port = TkEntry.new(fr1b) do
+width 4
+textvariable var_port
+font "{Helvetica} 10"
+pack EntryPack
+end
+
+lab_user = TkLabel.new(fr2) do
+text "User name"
+pack LabelPack
+end
+
+ent_user = TkEntry.new(fr2) do
+width 21
+font "{Helvetica} 12"
+textvariable var_user
+pack EntryPack
+end
+
+lab_pass = TkLabel.new(fr3) do
+text "Password"
+pack LabelPack
+end
+
+ent_pass = TkEntry.new(fr3) do
+width 21
+show "*"
+textvariable var_pass
+font "{Helvetica} 12"
+pack EntryPack
+end
+
+btn_signon = TkButton.new(fr4) do
+text "Sign on"
+command {} # Does nothing!
+pack ButtonPack
+end
+
+btn_cancel = TkButton.new(fr4) do
+text "Cancel"
+command { exit } # Just exits
+pack ButtonPack
+end
+
+top.pack FramePack
+fr1.pack FramePack
+fr2.pack FramePack
+fr3.pack FramePack
+fr4.pack FramePack
+fr1a.pack Frame1Pack
+fr1b.pack Frame1Pack
+
+var_host.value = "addison-wesley.com"
+var_user.value = "debra"
+var_port.value = 23
+
+ent_pass.focus
+foo = ent_user.font
+
+Tk.mainloop

data/lib/tk_paradise/examples/011_thermostat_example.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+
+
+require 'tk'
+
+# Common packing options...
+top = { side: 'top', padx: 5, pady: 5 }
+left = { side: 'left', padx: 5, pady: 5 }
+bottom = { side: 'bottom', padx: 5, pady: 5 }
+
+# Starting temperature...
+temp = 74
+
+root = TkRoot.new { title "Thermostat" }
+tframe = TkFrame.new(root) { background "#606060" }
+bframe = TkFrame.new(root)
+
+tlab = TkLabel.new(tframe) do
+  text temp.to_s
+  font "{Helvetica} 54 {bold}"
+  foreground "green"
+  background "#606060"
+  pack left
+end
+
+# the "degree" symbol
+TkLabel.new(tframe) do
+  text "o"
+  font "{Helvetica} 14 {bold}"
+  foreground "green"
+  background "#606060"
+  # Anchor-north above text like a degree symbol
+  pack left.update(anchor: 'n')
+end
+
+TkButton.new(bframe) do
+  text " Up "
+  pack left
+  command {
+    temp += 1
+    tlab.configure(text: temp.to_s)
+  }
+end
+
+TkButton.new(bframe) do
+  text "Down"
+  pack left
+  command {
+    temp -= 1
+    tlab.configure(text: temp.to_s)
+  }
+end
+
+tframe.pack top
+bframe.pack bottom
+
+Tk.mainloop

data/lib/tk_paradise/examples/012_tk_menu_example.rb

@@ -0,0 +1,23 @@
+require 'tk'
+
+
+
+root = TkRoot.new() { title "Ruby/Tk Menu Example" }
+
+bar = TkMenu.new()
+
+sys = TkMenu.new(bar)
+sys.add('command', 'label'=>"Quit", 'command'=>proc { root.destroy })
+bar.add('cascade', 'menu'=>sys, 'label'=>"System")
+
+file = TkMenu.new(bar)
+file.add('command', 'label'=>"Open", 'command'=>proc { puts "Open..." })
+file.add('command', 'label'=>"Close", 'command'=>proc { puts "Close..." })
+bar.add('cascade', 'menu'=>file, 'label'=>"File")
+
+root.menu(bar)
+
+
+Tk.mainloop() 
+
+

data/lib/tk_paradise/examples/013_tk_popup.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# tkpopup.rb : wrapper for tk_popup
+# by Masahiro SATO (m@sa.to)
+# Time-stamp: <99/08/14 10:49:28 msato>
+# =========================================================================== #
+require 'tk'
+
+class TkPopup < TkWindow
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(menu, x = 0, y = 0, entry = '')
+    super()
+    @menu = menu
+    @x = x
+    @y = y
+    @entry = entry
+    INTERP._eval('tk_popup '+
+     [@menu.path, @x.to_s, @y.to_s, @entry.to_s].join(' '))
+  end
+end
+
+######################################################################
+# example
+# You will see a popup menu by clicking Button-3
+######################################################################
+if __FILE__ == $0
+  color_ar = %w( blue yellow green pink grey )
+  color = color_ar[0]
+
+  TkRoot.new {|r|
+    title File.basename($0)
+    button = TkButton.new(r,
+      'text' => 'Quit',
+      'background' => color,
+      "activebackground" => "light " + color,
+      "command" => proc {r.destroy}
+    ).pack "fill"=>"both", 'expand' => 'yes'
+
+    menu = TkMenu.new(button, 'tearoff' => false)
+    color_ar.each {|col|
+      menu.add("command",
+         "label" => col,
+         "command" => proc {
+     color = col
+     button.background color
+     button.activebackground 'light '+color
+         }
+   )
+    }
+
+    button.bind("Button-3", proc {|x, y|
+      TkPopup.new(menu, x, y, color_ar.index(color))
+    }, "%X %Y") # x_root and y_root
+  }
+  Tk.mainloop
+end