Back to OASIS4 home


OASIS-GUI.TCL : variables


exec wish "$0" "$@" (windowing shell = launches Tk to create widgets)

In main window
init $argc $argv
many global variables defined :
    global dico_applis
    array set dico_applis {}
    global liste_points_i liste_points_o
    set liste_points_i {}
    set liste_points_o {}
    global dico_units
    array set dico_units {}
    global liste_fichiers dico_caract_fichiers
    set liste_fichiers {}
    array set dico_caract_fichiers {}
   
    global liste_cnx_in
    set liste_cnx_in {}
    global dico_cnx_out
    array set dico_cnx_out {}

Window show .
Window show .ballon_object
Window show .gui
main argc argv
argc is the number of arguments on the line and argv the parameters
there are used when re-reading the scc and the smioc written by oasis-gui.tcl

main
=> drawall (launches the graphical canvas that follow leaving even when leaving the main procedure)

proc {lit_fichier_component} {nom_fichier nom_dico nom_appli nom_comp PMIOD_ou_SMIOC} {
=> proc {lit_point_echange} {element_XML nom_dico nom_appli nom_comp nom_champ PMIOD_ou_SMIOC} {
=> proc {lit_element_intent} {element_XML nom_dico nom_appli nom_comp nom_champ PMIOD_ou_SMIOC} {