tk 0.1.0 → 0.4.0

data/lib/tkextlib/itcl/incr_tcl.rb

@@ -41,12 +41,12 @@ module Tk
     class ItclObject < TkObject
       ITCL_CLASSNAME = ''.freeze
 
-      (ITCL_OBJ_ID = ['itclobj'.freeze, TkUtil.untrust('00000')]).instance_eval{
+      (ITCL_OBJ_ID = ['itclobj'.freeze, '00000']).instance_eval{
         @mutex = Mutex.new
         def mutex; @mutex; end
         freeze
       }
-      ITCL_OBJ_TBL = TkUtil.untrust({})
+      ITCL_OBJ_TBL = {}
 
       def initialize(*args)
         if (@klass = self.class::ITCL_CLASSNAME).empty?

data/lib/tkextlib/itk/incr_tk.rb

@@ -147,7 +147,7 @@ module Tk
 
       ComponentID_TBL = TkCore::INTERP.create_table
 
-      (Itk_Component_ID = ['itk:component'.freeze, TkUtil.untrust('00000')]).instance_eval{
+      (Itk_Component_ID = ['itk:component'.freeze, '00000']).instance_eval{
         @mutex = Mutex.new
         def mutex; @mutex; end
         freeze
@@ -360,18 +360,7 @@ module Tk
         end
       end
 
-      #def bind(*args)
-      #  unless @widget
-      #    begin
-      #      @widget = window(tk_call(@master, 'component', @component))
-      #      @path = @widget.path
-      #    rescue
-      #      fail RuntimeError, 'component is not assigned to a widget'
-      #    end
-      #  end
-      #  @widget.bind(*args)
-      #end
-      def bind(context, *args)
+      def bind(context, *args, &block)
         unless @widget
           begin
             @widget = window(tk_call(@master, 'component', @component))
@@ -381,26 +370,15 @@ module Tk
           end
         end
         # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
-        if TkComm._callback_entry?(args[0]) || !block_given?
+        if TkComm._callback_entry?(args[0]) || !block
           cmd = args.shift
         else
-          cmd = Proc.new
+          cmd = block
         end
         @widget.bind(context, cmd, *args)
       end
 
-      #def bind_append(*args)
-      #  unless @widget
-      #    begin
-      #      @widget = window(tk_call(@master, 'component', @component))
-      #      @path = @widget.path
-      #    rescue
-      #      fail RuntimeError, 'component is not assigned to a widget'
-      #    end
-      #  end
-      #  @widget.bind_append(*args)
-      #end
-      def bind_append(context, *args)
+      def bind_append(context, *args, &block)
         unless @widget
           begin
             @widget = window(tk_call(@master, 'component', @component))
@@ -410,10 +388,10 @@ module Tk
           end
         end
         # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
-        if TkComm._callback_entry?(args[0]) || !block_given?
+        if TkComm._callback_entry?(args[0]) || !block
           cmd = args.shift
         else
-          cmd = Proc.new
+          cmd = block
         end
         @widget.bind_append(context, cmd, *args)
       end

data/lib/tkextlib/iwidgets/calendar.rb

@@ -76,10 +76,6 @@ class Tk::Iwidgets::Calendar
       # array of config-option key (string or symbol)
       ['command']
     end
-
-    #def initialize(cmd = Proc.new, *args)
-    #  _initialize_for_cb_class(CalCmdArgs, cmd, *args)
-    #end
   end
 
   def __validation_class_list
@@ -87,17 +83,6 @@ class Tk::Iwidgets::Calendar
   end
 
   Tk::ValidateConfigure.__def_validcmd(binding, CalendarCommand)
-=begin
-  def command(cmd = Proc.new, args = nil)
-    if cmd.kind_of?(CalendarCommand)
-      configure('command', cmd)
-    elsif args
-      configure('command', [cmd, args])
-    else
-      configure('command', cmd)
-    end
-  end
-=end
 
   ####################################
 

data/lib/tkextlib/iwidgets/entryfield.rb

@@ -75,27 +75,6 @@ class Tk::Iwidgets::Entryfield
   end
 
   Tk::ValidateConfigure.__def_validcmd(binding, EntryfieldValidate)
-=begin
-  def validate(cmd = Proc.new, args = nil)
-    if cmd.kind_of?(ValidateCmd)
-      configure('validate', cmd)
-    elsif args
-      configure('validate', [cmd, args])
-    else
-      configure('validate', cmd)
-    end
-  end
-
-  def invalid(cmd = Proc.new, args = nil)
-    if cmd.kind_of?(ValidateCmd)
-      configure('invalid', cmd)
-    elsif args
-      configure('invalid', [cmd, args])
-    else
-      configure('invalid', cmd)
-    end
-  end
-=end
 
   ####################################
 
@@ -112,7 +91,7 @@ class Tk::Iwidgets::Entryfield
   def value
     _fromUTF8(tk_send_without_enc('get'))
   end
-  def value= (val)
+  def value=(val)
     tk_send_without_enc('delete', 0, 'end')
     tk_send_without_enc('insert', 0, _get_eval_enc_str(val))
     val

data/lib/tkextlib/iwidgets/notebook.rb

@@ -118,8 +118,8 @@ class Tk::Iwidgets::Notebook
     self
   end
 
-  def scrollcommand(cmd=Proc.new)
-    configure_cmd 'scrollcommand', cmd
+  def scrollcommand(cmd=nil, &block)
+    configure_cmd('scrollcommand', cmd || block)
     self
   end
   alias xscrollcommand scrollcommand

data/lib/tkextlib/iwidgets/promptdialog.rb

@@ -59,7 +59,7 @@ class Tk::Iwidgets::Promptdialog
   def value
     _fromUTF8(tk_send_without_enc('get'))
   end
-  def value= (val)
+  def value=(val)
     tk_send_without_enc('delete', 0, 'end')
     tk_send_without_enc('insert', 0, _get_eval_enc_str(val))
     val

data/lib/tkextlib/iwidgets/scrolledcanvas.rb

@@ -108,31 +108,23 @@ class Tk::Iwidgets::Scrolledcanvas
                              *tags.collect{|t| tagid(t)}))
   end
 
-  #def itembind(tag, context, cmd=Proc.new, *args)
-  #  _bind([path, "bind", tagid(tag)], context, cmd, *args)
-  #  self
-  #end
-  def itembind(tag, context, *args)
+  def itembind(tag, context, *args, &block)
     # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     _bind([path, "bind", tagid(tag)], context, cmd, *args)
     self
   end
 
-  #def itembind_append(tag, context, cmd=Proc.new, *args)
-  #  _bind_append([path, "bind", tagid(tag)], context, cmd, *args)
-  #  self
-  #end
-  def itembind_append(tag, context, *args)
+  def itembind_append(tag, context, *args, &block)
     # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     _bind_append([path, "bind", tagid(tag)], context, cmd, *args)
     self

data/lib/tkextlib/iwidgets/spinner.rb

@@ -96,7 +96,7 @@ class Tk::Iwidgets::Spinner
   def value
     _fromUTF8(tk_send_without_enc('get'))
   end
-  def value= (val)
+  def value=(val)
     tk_send_without_enc('delete', 0, 'end')
     tk_send_without_enc('insert', 0, _get_eval_enc_str(val))
     val

data/lib/tkextlib/iwidgets/tabnotebook.rb

@@ -124,8 +124,8 @@ class Tk::Iwidgets::Tabnotebook
     self
   end
 
-  def scrollcommand(cmd=Proc.new)
-    configure_cmd 'scrollcommand', cmd
+  def scrollcommand(cmd=nil, &block)
+    configure_cmd('scrollcommand', cmd || block)
     self
   end
   alias xscrollcommand scrollcommand

data/lib/tkextlib/iwidgets/tabset.rb

@@ -106,7 +106,7 @@ class Tk::Iwidgets::Tabset
       return
     end
 
-    reutrn unless @canvas ||= self.winfo_children[0]
+    return unless @canvas ||= self.winfo_children[0]
 
     delta = 1 if (delta = cget(:gap)) == 'overlap' ||
                    (delta = self.winfo_pixels(delta) + 1) <= 0

data/lib/tkextlib/pkg_checker.rb

@@ -132,7 +132,7 @@ def check_pkg(file, verbose=false)
     unless ver.kind_of?(String)
       begin
         ver = TkPackage.require(name)
-        sccess_list[name] = ver
+        success_list[name] = ver
       rescue
       end
     end

data/lib/tkextlib/tcllib/crosshair.rb

@@ -76,10 +76,10 @@ class << Tk::Tcllib::Crosshair
   private :itemcget_tkstring, :itemcget, :itemcget_strict
   private :itemconfigure, :itemconfiginfo, :current_itemconfiginfo
 
-  def confugure(w, slot, value=None)
+  def configure(w, slot, value=None)
     itemconfigure(w, slot, value)
   end
-  def confuginfo(w, slot = nil)
+  def configinfo(w, slot = nil)
     itemconfiginfo(w, slot)
   end
   def current_configinfo(w, slot = nil)

data/lib/tkextlib/tcllib/ctext.rb

@@ -150,8 +150,8 @@ class Tk::Tcllib::CText
     tk_call('ctext::findPreviousSpace', @path, idx)
   end
 
-  def set_update_proc(cmd=Proc.new)
-    tk_call('proc', 'ctext::update', '', cmd)
+  def set_update_proc(cmd=nil, &block)
+    tk_call('proc', 'ctext::update', '', cmd || block)
     self
   end
 

data/lib/tkextlib/tcllib/plotchart.rb

@@ -709,15 +709,15 @@ module Tk::Tcllib::Plotchart
     end
     private :_create_chart
 
-    def plot_function(cmd=Proc.new)
-      Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd)} $x $y}")
+    def plot_function(cmd=nil, &block)
+      Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd || block)} $x $y}")
       tk_call_without_enc(@chart, 'plotfunc', "#{@path}_#{@chart}")
       self
     end
 
-    def plot_funcont(conts, cmd=Proc.new)
+    def plot_funcont(conts, cmd=nil, &block)
       conts = array2tk_list(conts) if conts.kind_of?(Array)
-      Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd)} $x $y}")
+      Tk.ip_eval("proc #{@path}_#{@chart} {x y} {#{install_cmd(cmd || block)} $x $y}")
       tk_call_without_enc(@chart, 'plotfuncont', "#{@path}_#{@chart}", conts)
       self
     end
@@ -1360,7 +1360,7 @@ module Tk::Tcllib::Plotchart
   class PlotSeries < TkObject
     SeriesID_TBL = TkCore::INTERP.create_table
 
-    (Series_ID = ['series'.freeze, TkUtil.untrust('00000')]).instance_eval{
+    (Series_ID = ['series'.freeze, '00000']).instance_eval{
       @mutex = Mutex.new
       def mutex; @mutex; end
       freeze

data/lib/tkextlib/tcllib/tablelist_core.rb

@@ -212,7 +212,7 @@ class Tk::Tcllib::Tablelist
                        nil
                      else # cmd
                        tk_tcl2ruby(cmd)
-                       end
+                     end
                    })
   end
   private :__val2ruby_optkeys
@@ -888,12 +888,12 @@ class Tk::Tcllib::Tablelist
   end
 
   def sortcolumn
-    idx = num_or_str(tk_send('sortcolum'))
+    idx = num_or_str(tk_send('sortcolumn'))
     (idx.kind_of?(Fixnum) && idx < 0)?  nil: idx
   end
 
   def sortcolumnlist
-    simplelist(tk_send('sortcolumlist')).map{|col| num_or_str(col)}
+    simplelist(tk_send('sortcolumnlist')).map{|col| num_or_str(col)}
   end
 
   def sortorder

data/lib/tkextlib/tcllib/validator.rb

@@ -33,8 +33,8 @@ end
 module Tk::Tcllib::Validator
   extend TkCore
 
-  def self.attach(widget, color, cmd=Proc.new)
-    tk_call_without_enc('::widget::validator', 'attach', widget, color, cmd)
+  def self.attach(widget, color, cmd=nil, &block)
+    tk_call_without_enc('::widget::validator', 'attach', widget, color, cmd || block)
     nil
   end
 
@@ -48,17 +48,17 @@ module Tk::Tcllib::Validator
     nil
   end
 
-  def attach_validator(color, cmd=Proc.new)
-    tk_call_without_enc('::widget::validator', 'attach', @path, color, cmd)
+  def attach_validator(color, cmd=nil, &block)
+    tk_call_without_enc('::widget::validator', 'attach', @path, color, cmd || block)
     self
   end
 
-  def detach_validator(color, cmd=Proc.new)
+  def detach_validator(color, cmd=nil)
     tk_call_without_enc('::widget::validator', 'detach', @path)
     self
   end
 
-  def invoke_validator(color, cmd=Proc.new)
+  def invoke_validator(color, cmd=nil)
     tk_call_without_enc('::widget::validator', 'validate', @path)
     self
   end

data/lib/tkextlib/tile.rb

@@ -144,7 +144,6 @@ module Tk
       # Tcl/Tk interpreter working under Ruby/Tk.
       # Please give attention to use this method. It may conflict with
       # some definitions on Tcl/Tk scripts.
-      klass_name = self.name
       proc_name = 'LoadImages'
       if Tk::Tile::USE_TTK_NAMESPACE
         ns_list = ['::tile']
@@ -338,7 +337,7 @@ module Tk
         if script
           tk_send('instate', state, script)
         elsif b
-          tk_send('instate', state, Proc.new(&b))
+          tk_send('instate', state, b)
         else
           bool(tk_send('instate', state))
         end

data/lib/tkextlib/tile/style.rb

@@ -320,7 +320,7 @@ class << Tk::Tile::Style
 
   def theme_settings(name, cmd=nil, &b)
     name = name.to_s
-    cmd = Proc.new(&b) if !cmd && b
+    cmd = b if !cmd && b
     tk_call(TkCommandNames[0], 'theme', 'settings', name, cmd)
     name
   end

data/lib/tkextlib/tile/treeview.rb

@@ -32,7 +32,7 @@ module Tk::Tile::TreeviewConfig
         if slot
           slot = slot.to_s
 
-          alias_name, real_name = __item_optkey_aliases(tagid(tagOrId)).find{|k, v| k.to_s == slot}
+          _, real_name = __item_optkey_aliases(tagid(tagOrId)).find{|k, v| k.to_s == slot}
           if real_name
             slot = real_name.to_s
           end
@@ -203,7 +203,7 @@ module Tk::Tile::TreeviewConfig
         if slot
           slot = slot.to_s
 
-          alias_name, real_name = __item_optkey_aliases(tagid(tagOrId)).find{|k, v| k.to_s == slot}
+          _, real_name = __item_optkey_aliases(tagid(tagOrId)).find{|k, v| k.to_s == slot}
           if real_name
             slot = real_name.to_s
           end
@@ -939,7 +939,7 @@ class Tk::Tile::Treeview::Tag < TkObject
 
   TagID_TBL = TkCore::INTERP.create_table
 
-  (Tag_ID = ['tile_treeview_tag'.freeze, TkUtil.untrust('00000')]).instance_eval{
+  (Tag_ID = ['tile_treeview_tag'.freeze, '00000']).instance_eval{
     @mutex = Mutex.new
     def mutex; @mutex; end
     freeze
@@ -999,21 +999,21 @@ class Tk::Tile::Treeview::Tag < TkObject
     @t.tag_remove(@id, *items)
   end
 
-  def bind(seq, *args)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+  def bind(seq, *args, &block)
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     @t.tag_bind(@id, seq, cmd, *args)
     self
   end
 
-  def bind_append(seq, *args)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+  def bind_append(seq, *args, &block)
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     @t.tag_bind_append(@id, seq, cmd, *args)
     self
@@ -1191,13 +1191,6 @@ class Tk::Tile::Treeview < TkWindow
     Tk::Tile::Treeview::Item.new(self, parent, idx, keys)
   end
 
-  # def instate(spec, cmd=Proc.new)
-  #   tk_send('instate', spec, cmd)
-  # end
-  # def state(spec=None)
-  #   tk_send('state', spec)
-  # end
-
   def move(item, parent, idx)
     tk_send('move', item, parent, idx)
     self
@@ -1280,22 +1273,22 @@ class Tk::Tile::Treeview < TkWindow
     }
   end
 
-  def tag_bind(tag, seq, *args)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+  def tag_bind(tag, seq, *args, &block)
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     _bind([@path, 'tag', 'bind', tag], seq, cmd, *args)
     self
   end
   alias tagbind tag_bind
 
-  def tag_bind_append(tag, seq, *args)
-    if TkComm._callback_entry?(args[0]) || !block_given?
+  def tag_bind_append(tag, seq, *args, &block)
+    if TkComm._callback_entry?(args[0]) || !block
       cmd = args.shift
     else
-      cmd = Proc.new
+      cmd = block
     end
     _bind_append([@path, 'tag', 'bind', tag], seq, cmd, *args)
     self