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 }
    }