DEFINITION MODULE para3;

IMPORT liste3;

 TYPE   t_ptr_t_paragraphe      =       POINTER TO t_paragraphe;
        t_paragraphe            =       CLASS (liste3.t_element)

          longueur      :       CARDINAL;
          ptr_chaine    :       ADDRESS;

          PROCEDURE initialise_element ( VAR x : ARRAY OF CHAR);VIRTUAL;
          PROCEDURE affiche_element () ; VIRTUAL;
          PROCEDURE detruit_element () ; VIRTUAL;

                                        END; (* CLASS t_paragraphe *)
 END para3.