tk_paradise 0.0.11

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

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/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/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,164 @@
+#!/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
+
+  class TkLabel
+
+    # ======================================================================= #
+    # === set_text
+    # ======================================================================= #
+    def set_text(i)
+      configure(text: 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/root.rb'