# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 105
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 109
def self.code(cmd, *args)
tk_call('::itcl::code', cmd, *args)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 113
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 117
def self.configbody(klass, var, body)
tk_call('::itcl::configbody', "#{klass}::#{var}", body)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 121
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 160
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 128
def self.delete_itcl_class(*names)
tk_call('::itcl::delete', 'class', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 132
def self.delete_itcl_object(*names)
tk_call('::itcl::delete', 'object', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 136
def self.delete_namespace(*names)
tk_call('::itcl::delete', 'namespace', *names)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 140
def self.ensemble(name, *args)
tk_call('::itcl::ensemble', name, *args)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 144
def self.find_classes(pat=None)
simplelist(tk_call('::itcl::find', 'classes', pat))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 148
def self.find_objects(*args)
simplelist(tk_call('::itcl::find', 'objects', *args))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 152
def self.is_itcl_class(target)
bool(tk_call('::itcl::is', 'class', target))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 164
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 156
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