Posted to tcl by kbk at Sun Jan 06 02:01:36 GMT 2008view pretty

    conClassObj = Tcl_NewStringObj("::tdbc::odbc::connection", -1);
    Tcl_IncrRefCount(conClassObj);
    if ((conClassObject = Tcl_GetObjectFromObj(interp, conClassObj)) == NULL) {
	Tcl_DecrRefCount(conClassObj);
	return TCL_ERROR;
    }
    Tcl_DecrRefCount(conClassObj);