# File 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 tk/lib/tkextlib/itcl/incr_tcl.rb, line 115
def self.code(cmd, *args)
tk_call('::itcl::code', cmd, *args)
end
# File 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 tk/lib/tkextlib/itcl/incr_tcl.rb, line 123
def self.configbody(klass, var, body)
tk_call('::itcl::configbody', "#{klass}::#{var}", body)
end
# File 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 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 tk/lib/tkextlib/itcl/incr_tcl.rb, line 134
def self.delete_itcl_class(*names)
tk_call('::itcl::delete', 'class', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 138
def self.delete_itcl_object(*names)
tk_call('::itcl::delete', 'object', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 142
def self.delete_namespace(*names)
tk_call('::itcl::delete', 'namespace', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 146
def self.ensemble(name, *args)
tk_call('::itcl::ensemble', name, *args)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 150
def self.find_classes(pat=None)
simplelist(tk_call('::itcl::find', 'classes', pat))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 154
def self.find_objects(*args)
simplelist(tk_call('::itcl::find', 'objects', *args))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 158
def self.is_itcl_class(target)
bool(tk_call('::itcl::is', 'class', target))
end
# File 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 tk/lib/tkextlib/itcl/incr_tcl.rb, line 162
def self.is_itcl_object(target)
bool(tk_call('::itcl::is', 'object', target))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 26
def self.package_name
PACKAGE_NAME
end