[ns] otcl_mappings

[Ahmad R Shahid <arshahid@yahoo.com>]

Hi all,

In Tcl.cc in ~/tclcl/otcl, we have:

void TclClass::bind()
{
	Tcl& tcl = Tcl::instance();
	tcl.evalf("SplitObject register %s", classname_);
	class_ = OTclGetClass(tcl.interp(),
(char*)classname_);
	OTclAddIMethod(class_, "create-shadow",
		       create_shadow, (ClientData)this, 0);
	OTclAddIMethod(class_, "delete-shadow",
		       delete_shadow, (ClientData)this, 0);
	otcl_mappings();
}

Could anyone tell me, whats this

otcl_mappings();

all about?

Ahmad

__________________________________________________
Do You Yahoo!?
Make a great connection at Yahoo! Personals.
http://personals.yahoo.com