Class: TkValidateCommand

Inherits:

Object

• Object
• TkValidateCommand

Extended by:

TkComm

Includes:

TkComm

Defined in:

ext/lib/tk/validation.rb

Direct Known Subclasses

Tk::BLT::DragDrop::PackageCommand, Tk::BLT::DragDrop::SiteCommand, Tk::BLT::Treeview::FindExecFlagValue, Tk::BLT::Treeview::OpenCloseCommand, Tk::Iwidgets::Calendar::CalendarCommand, Tk::Iwidgets::Entryfield::EntryfieldValidate, Tk::Iwidgets::Hierarchy::IconCommand, Tk::Iwidgets::Hierarchy::IndicatorCommand, Tk::Iwidgets::Hierarchy::QueryCommand, Tk::Iwidgets::Spinner::EntryfieldValidate, Tk::Spinbox::SpinCommand, Tk::TkTable::BrowseCommand, Tk::TkTable::CellCommand, Tk::TkTable::SelectionCommand, Tk::TkTable::ValidateCommand, Tk::Winico::Winico_callback, TkValidation::ValidateCmd

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

• ._config_keys ⇒ Object

Instance Method Summary

• #_initialize_for_cb_class(klass, cmd = Proc.new, *args) ⇒ Object
• #initialize(cmd = Proc.new, *args) ⇒ TkValidateCommand constructor

  A new instance of TkValidateCommand.

• #to_eval ⇒ Object

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_str, number, procedure, simplelist, string, subst, tk_tcl2ruby, uninstall_cmd, uninstall_cmd, window

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_str, #num_or_str, number, #number, string, #string, uninstall_cmd

Methods included from TkEvent

#install_bind, #install_bind_for_event_class

Constructor Details

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

Returns a new instance of TkValidateCommand.

# File 'ext/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_keys ⇒ Object

# File 'ext/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

# File 'ext/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_eval ⇒ Object

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

def to_eval
  @id
end