TkEntry::ValidateCmd ^(Class)

# File tk/lib/tkentry.rb, line 91
    def initialize(cmd = Proc.new, args=nil)
      if args
        @id = 
          install_cmd(proc{|*arg|
                        TkUtil.eval_cmd(proc{|*v| (cmd.call(*v))? '1': '0'}, 
                                        *ValidateArgs.scan_args(args, arg))
                      }) + " " + args
      else
        args = ' %d %i %s %v %P %S %V %W'
        @id = 
          install_cmd(proc{|*arg|
                        TkUtil.eval_cmd(proc{|*v| (cmd.call(*v))? '1': '0'}, 
                                        ValidateArgs.new(*ValidateArgs \
                                                         .scan_args(args,arg)))
          }) + args
      end
    end

# File tk/lib/tkentry.rb, line 109
    def to_eval
      @id
    end