Class: TkValidateCommand

Inherits:
Object show all
Extended by:
TkComm
Includes:
TkComm
Defined in:
lib/tk/validation.rb

Defined Under Namespace

Classes: ValidateArgs

Constant Summary

Constants included from TkComm

TkComm::GET_CONFIGINFO_AS_ARRAY, TkComm::GET_CONFIGINFOwoRES_AS_ARRAY, TkComm::TkExtlibAutoloadModule, TkComm::Tk_CMDTBL, TkComm::Tk_IDs, TkComm::Tk_WINDOWS, TkComm::USE_TCLs_LIST_FUNCTIONS, TkComm::WidgetClassNames

Constants included from TkUtil

TkUtil::None, TkUtil::RELEASE_DATE

Class Method Summary collapse

Instance Method Summary collapse

Methods included from TkComm

_at, _callback_entry?, _callback_entry_class?, _curr_cmd_id, _fromUTF8, _genobj_for_tkwidget, _next_cmd_id, _toUTF8, array2tk_list, bind, bind_all, bind_append, bind_append_all, bind_remove, bind_remove_all, bindinfo, bindinfo_all, bool, image_obj, install_cmd, install_cmd, list, num_or_nil, num_or_str, number, procedure, simplelist, slice_ary, string, subst, tk_tcl2ruby, uninstall_cmd, uninstall_cmd, window

Methods included from TkEvent

#install_bind, #install_bind_for_event_class

Methods included from TkUtil

_conv_args, #_conv_args, #_fromUTF8, #_get_eval_enc_str, _get_eval_enc_str, #_get_eval_string, _get_eval_string, #_symbolkey2str, _symbolkey2str, #_toUTF8, #bool, bool, callback, eval_cmd, hash_kv, #hash_kv, install_cmd, num_or_nil, #num_or_nil, #num_or_str, num_or_str, #number, number, string, #string, uninstall_cmd, untrust

Constructor Details

#initialize(cmd = Proc.new, *args) ⇒ TkValidateCommand

Returns a new instance of TkValidateCommand.


334
335
336
# File 'lib/tk/validation.rb', line 334

def initialize(cmd = Proc.new, *args)
  _initialize_for_cb_class(self.class::ValidateArgs, cmd, *args)
end

Class Method Details

._config_keysObject


291
292
293
294
# File 'lib/tk/validation.rb', line 291

def self._config_keys
  # array of config-option key (string or symbol)
  ['vcmd', 'validatecommand', 'invcmd', 'invalidcommand']
end

Instance Method Details

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


296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
# 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

#to_evalObject


338
339
340
# File 'lib/tk/validation.rb', line 338

def to_eval
  @id
end