Method: TkValidateCommand#_initialize_for_cb_class

Defined in:

lib/tk/validation.rb

#_initialize_for_cb_class(klass, cmd = Proc.new, *args) ⇒ Object

# File 'lib/tk/validation.rb', line 296

def _initialize_for_cb_class(klass, cmd = Proc.new, *args)
  extra_args_tbl = klass._get_extra_args_tbl

  if args.compact.size > 0
    args.map!{|arg| klass._sym2subst(arg)}
    args = args.join(' ')
    keys = klass._get_subst_key(args)
    if cmd.kind_of?(String)
      id = cmd
    elsif cmd.kind_of?(TkCallbackEntry)
      @id = install_cmd(cmd)
    else
      @id = install_cmd(proc{|*arg|
           ex_args = []
           extra_args_tbl.reverse_each{|conv| ex_args << conv.call(arg.pop)}
           klass.ret_val(cmd.call(
             *(ex_args.concat(klass.scan_args(keys, arg)))
           ))
      }) + ' ' + args
    end
  else
    keys, args = klass._get_all_subst_keys
    if cmd.kind_of?(String)
      id = cmd
    elsif cmd.kind_of?(TkCallbackEntry)
      @id = install_cmd(cmd)
    else
      @id = install_cmd(proc{|*arg|
           ex_args = []
           extra_args_tbl.reverse_each{|conv| ex_args << conv.call(arg.pop)}
           klass.ret_val(cmd.call(
             *(ex_args << klass.new(*klass.scan_args(keys, arg)))
           ))
      }) + ' ' + args
    end
  end
end