model_server/gala/src/view.cxx
// interp - Returns the TCL interpreter for this view.
Returns the TCL interpreter for this view.
Returns the TCL interpreter for this view .
Tcl_Interp* View::interp()
{
    Tcl_Interp* interp = myInterp;
    if ((Unsplitable_) && (ParentView)) {
        interp = ParentView->interp();
    } else if (myOwnerPane && myOwnerPane->GetOwner()) {
        interp = myOwnerPane->GetOwner()->interp();
    } else {
        Layer*  lp = GetLayer();
        if (lp) {
            Tcl_Interp* layerInterp = lp->getInterp();
            if (layerInterp)
                interp = layerInterp;
        }
    }
    return interp;
}
Tcl_Interp * View :: interp ( ) { Tcl_Interp * interp = myInterp ; if ( ( Unsplitable_ ) && ( ParentView ) ) { interp = ParentView -> interp ( ) ; } else if ( myOwnerPane && myOwnerPane -> GetOwner ( ) ) { interp = myOwnerPane -> GetOwner ( ) -> interp ( ) ; } else { Layer * lp = GetLayer ( ) ; if ( lp ) { Tcl_Interp * layerInterp = lp -> getInterp ( ) ; if ( layerInterp ) interp = layerInterp ; } } return interp ; }
interp - Returns the TCL interpreter for this view.
interp - Returns the TCL interpreter for this view .
// Will default to this view's interpreter. // Check if parent's interpreter is needed. // Check if owner's interpreter is needed.