Module Tk::Itcl

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 111
def self.body(klass, func, args, body)
  tk_call('::itcl::body', "#{klass}::#{func}", args, body)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 115
def self.code(cmd, *args)
  tk_call('::itcl::code', cmd, *args)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 119
def self.code_in_namespace(namespace, cmd, *args)
  tk_call('::itcl::code', '-namespace', namespace, cmd, *args)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 123
def self.configbody(klass, var, body)
  tk_call('::itcl::configbody', "#{klass}::#{var}", body)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 127
def self.create_itcl_class(name, body)
  TkCore::INTERP._invoke('::itcl::class', name, body)
  klass = Class.new(Tk::Itcl::ItclObject)
  klass.const_set('ITCL_CLASSNAME', name.dup.freeze)
  klass
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 166
def self.create_local_obj(klass, name, *args)
  tk_call('::itcl::local', klass, name, *args)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 134
def self.delete_itcl_class(*names)
  tk_call('::itcl::delete', 'class',  *names)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 138
def self.delete_itcl_object(*names)
  tk_call('::itcl::delete', 'object',  *names)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 142
def self.delete_namespace(*names)
  tk_call('::itcl::delete', 'namespace',  *names)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 146
def self.ensemble(name, *args)
  tk_call('::itcl::ensemble', name, *args)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 150
def self.find_classes(pat=None)
  simplelist(tk_call('::itcl::find', 'classes', pat))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 154
def self.find_objects(*args)
  simplelist(tk_call('::itcl::find', 'objects', *args))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 158
def self.is_itcl_class(target)
  bool(tk_call('::itcl::is', 'class', target))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 170
def self.is_itcl_instance(klass, target)
  bool(tk_call('::itcl::is', 'object', '-class', klass, target))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 162
def self.is_itcl_object(target)
  bool(tk_call('::itcl::is', 'object', target))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 26
def self.package_name
  PACKAGE_NAME
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 30
def self.package_version
  begin
    TkPackage.require('Itcl')
  rescue
    ''
  end
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 174
def self.scope(var)
  tk_call('::itcl::scope', var)
end