Lines Matching defs:procedure
9 # graphical entry forms and checkers for the procedure arguments.
27 namespace export procedure argument_dialogbox
30 # procedure #
35 # Set the following variable to 0 (false) prior to the procedure definition, to
57 # PureProcName purifies the procedure name given by the ProcName variable of the calling
72 procedure <ProcedureName> <ProcedureAttributes> <ProcedureBody>
115 # Procedure allows declaring a new procedure in the TEPAM syntax:
117 # procedure my_proc {
123 # Procedure creates in fact a TCL procedure with a patched procedure body. This body calls at
125 # the arguments that have been provided to the procedure. The previous lines are for example
126 # creating the following TCL procedure:
139 # ProcedureArgumentEvaluation uses the TCL procedure's args argument to read all the provided
140 # arguments. It evaluates first if a sub procedure has to be called. This information and the
141 # argument validation result are provided to the calling procedure respectively via the
143 # was not successful, the calling procedure body will simply return. In case the procedure
144 # call refers to a sub-procedure, this one will be called. Otherwise, if a valid argument set
145 # has been provided to the procedure, and if no sub-procedure has to be called, the original
146 # procedure body is executed.
148 # declared without declaring the main procedure itself:
150 # procedure {my_func sub_func} {
156 # Procedure creates in this case for the main procedure a Tcl procedure as well as for the sub
157 # procedure. The main procedure creates an error when it directly called. The sub-procedure
158 # is executed within the main procedure's context using the uplevel command.
176 # Procedure parses itself the procedure name and attributes and creates the new TCL procedure
180 proc procedure {args} {
188 #### Check if help is requested and extract the (sub) procedure name ####
196 # Check that the procedure name, argument list and body has been provided:
198 return -code error "Missing procedure arguments, correct usage: procedure <ProcedureName>\
202 # Evaluate the complete procedure name including a leading name space identifier.
203 # Evaluate the current namespace in case the procedure is not defined explicitly with
212 # Extract the procedure attributes and the procedure body:
216 # Store the procedure name in the procedure list, if it is not already existing:
221 #### Initialize the procedure attributes ####
223 # Clean the information of an eventual previous procedure definition, and store
224 # the actual configured procedure modes:
230 # The procedure information will be stored in the array variable ProcDef.
231 # The following array members are always defined for each declared procedure:
260 #### Parse all procedure attributes ####
269 -help { # Help has been required in the procedure attribute definition list:
285 # Read the procedure arguments with ProcedureArgDef
301 # Complete the procedure attributes -
309 #### Create the TCL procedure(s) ####
311 # Create now the TCL procedures. In case a sub procedure is declared, the created TCL
312 # procedure has not to call the argument evaluator, since this one has already been called
313 # in the main procedure. An additional main procedure is created if a sub procedure is
314 # declared and if no main procedure is existing.
339 # ProcedureArgDef is executed by 'procedure'. The argument definition is provided via the
545 # ProcedureArgumentEvaluation is the argument evaluator that is embedded by the procedure
546 # declaration command 'procedure' into the procedure's body in the following way:
559 # ProcedureArgumentEvaluation has to define in the calling procedure two variables:
562 # arguments are OK and that the procedure body can be executed. A non-zero value indicates
563 # that the procedure body has not to be evaluated, typically because help was requested via
567 # variable is set to the sub procedure name in case a sub procedure is called. If the main
568 # procedure is called this variable is set to an empty string.
572 # of the calling procedure and will then emulate a return function.
585 #### Extract the procedure and sub procedure names, call the procedure help if requested ####
587 # Evaluate the complete main procedure name that contains the namespace identification:
588 # The procedure name is given by the first element of 'info level':
592 # Check if the procedure name contains already the name space identification:
594 # The namespace is not part of the used procedure name call. Evaluate it explicitly:
610 # Use the argument as sub procedure name:
616 # Check if help has been requested in the procedure call:
622 # Check if the procedure call is an interactive call
625 # Return an empty string if the main procedure has been called and if only sub-commands
626 # have been defined, but not the main procedure itself.
631 #### Call an argument_dialogbox if the procedure has been called with'-interactive' ####
638 # Create for each of the procedure arguments an entry for the argument_dialogbox:
641 # procedure (upvar). Attribute to these variables directly the default values that can be
771 # The argument dialogbox has been canceled, leave the calling procedure without
772 # executing the procedure body:
792 # procedure (upvar). Attribute to these variables directly the default values that can be
796 # Set the flags to the default values only when the procedure is called interactively:
834 # Stop parsing the unnamed arguments, if the procedure has also named arguments,
1087 # calling context (procedure). Tabulator characters are replaced through 3 spaces. Lines are
1166 # procedure arguments. Called with a particular procedure name as parameter, it produces for
1167 # this procedure a comprehensive help text. And finally, if it is called with the name of a main
1168 # procedure that has multiple sub procedures, it generates for all the sub procedures the
1176 # Print a list of available commands when no procedure name has been provided as argument:
1186 # A procedure name has been provided, generate a detailed help text for this procedure, or
1187 # for all sub procedures if only the main procedure names has been provided:
1189 # Evaluate the complete main procedure name that contains the namespace identification:
1190 # Check if the procedure name contains already the name space identification:
1192 # The namespace is not part of the used procedure name call. Evaluate it explicitly:
1199 # only the short description of a main procedure is used in case the procedure has also
1215 # Skip the (sub) procedure if it has not been explicitly declared. This may be the
1219 # Add to the help text first the procedure name, and then in the following lines its
1271 # Remember if descriptions and/or examples are provided for the procedure:
1279 # Add for the procedure and sub procedures the descriptions:
1293 # Add for the procedure and sub procedures the examples:
1324 # data, using as index the widget path provided to the procedure, e.g.
1407 # procedure from which it has been called a local variable, unless the variable has not been
1747 # Define the variable in the context of the calling procedure:
1775 # A dedicated procedure that handles the geometrical aspects of the argument dialog box is
1776 # required for each argument type. The prototype header of such a procedure is:
1811 # of the calling procedure using the upvar statement.
1812 # The provided frame into which each ad_form procedure can deploy the argument definition entry
1814 # procedure ad_form(make_expandable) has to be called providing it with the entry path:
2252 procedure ChooseFont {