ADC 400F Manual descarregar pdf (Página 68)

Chapter 5. Complete program listings.

// Function:

// void BindTCLVariables(CTCLInterpreter& rInterp)

// Operation Type:

// override

Purpose:

Add code to this function to bind any TCL variable to

the SpecTcl interpreter. Note that at this time,

variables have not yet been necessarily created so you

can do Set but not necessarily Get operations.

void

CMySpecTclApp::BindTCLVariables(CTCLInterpreter& rInterp)

{

CTclGrammerApp::BindTCLVariables(rInterp);

}

// Function:

// void SourceLimitScripts(CTCLInterpreter& rInterpreter)

// Operation Type:

// Override

Purpose:

Add code here to source additional variable setting

scripts. At this time the entire SpecTcl/Tk infrastructure

is not yet set up. Scripts run at this stage can only run

basic Tcl/Tk commands, and not SpecTcl extensions.

Typically, this might be used to set a bunch of initial values

for variables which were bound in BindTCLVariables.

void

CMySpecTclApp::SourceLimitScripts(CTCLInterpreter& rInterpreter)

{ CTclGrammerApp::SourceLimitScripts(rInterpreter);

}

// Function:

// void SetLimits()

// Operation Type:

// overide

Purpose:

Called after BindVariables and SourceLimitScripts.

This function can be used to fetch values of bound Tcl

variables which were modified/set by the limit scripts to

1 2 ... 63 64 65 66 67 68 69 70 71 72 73 74

Sem comentários

ADC 400F Manual Página 68