Back to OASIS4 home
WIZARD.TCL :
variables
In
main window :
Initialization of global variables :
# Numero de la page d'ecran en
cours de saisie
set Num_page 1
# Type de page d'ecran en cours :
# 0: page initiale (attributs de l'appli)
# 1: page d'un composant
# 2: page d'un champ
# 3: page terminale (de confirmation)
set Type_page 0
# Numero de composant en cours de saisie
set Num_composant 0
# Numero de champ de couplage en cours de saisie
set Num_champ 0
# Liste des noms des composants de l'appli
set Data(l_composants) {}
# Nombre de processus de l'appli
set Data(nb_procs_min) 1
set Data(nb_procs_max) 1
set Data(nb_procs_incr) 1
# autres attributs
set Data(start_mode) ""
set Data(coupling_mode) ""
# Liste des noms standard de champs
set CF_standard_name_list {}
Creation of the
canvas
create_application_page
create_component_page
create_field_page
create_terminal_page
display_page
! display the
first page
command Tk :
to validate the page (next) : button created in the main window program
:
button .buttons.next -text Next -command "on_next_page"
To come back (previous) :
button created in the main window program :
button .buttons.previous -text Previous -command
"on_previous_page"
these routines creates the graphical canvas of the different pages for
the software.
display_page
=> init_application_page (initializes
the data of the page of an application) ($Type = 0)
=> init_component_page (initializes
the data of the page of a component) ($Type =1)
=> init_field_page (initializes the
data of a coupling field) ($Type
=2)
=> init_terminal_page (finalizes)
($Type =3)
on_previous_page
=> validate_page
=> validate_application_page ($Type = 0)
=> validate_component_page ($Type
= 1)
=> validate_field_page ($Type =2)