Back to OASIS4 home
Display_page
# Donnees de
l'application
global Data
# Type de page d'ecran en cours :
global Type_page
# Numero de composant en cours de saisie
global Num_composant
# Numero de champ de couplage en cours de saisie
global Num_champ
The switch command matches its string
argument against each of
the pattern arguments in order.
As soon as it finds a pattern that matches string it
evaluates the following body argument by passing it recursively
to the Tcl interpreter and returns the result of that evaluation.
If the last pattern argument is default then it matches
anything.
If no pattern argument
matches string and no default is given, then the switch
command returns an empty string.
$Type was initialized in the main to 0, so it is its value at the first
page and set page_name $page_names($Type_page) => puts $page_name :
.initial
In function of value of the global variable $Type_page, select the page
(application, component, field, terminal :
switch $Type_page {
0 { init_application_page }
1 { init_component_page }
2 { init_field_page }
3 { init_terminal_page }
}