OpenToken : accessing the lexeme from synthetize

[Lionel Draghi <lionel.draghi@gmail.com>]

Hi,
I suppose it’s obvious, but I couldn't find a way to get the lexeme image within a synthetize procedure.

   procedure Action
     (New_Token : out Nonterminal.Class;
      Source    : in  Token_List.Instance'Class;
      To_ID     : in  Token_ID_Type)
   is 
      Left  : constant Token_List.List_Iterator := Token_List.Initial_Iterator (Source);
      – the identifier I want to diplay is the first token in the list
      Tk : Master_Token.Class := Token_List.Token_Handle (Left).all;
   begin
      – and now?
      Ada.Text_IO.Put_Line (…); 	
   end Action;

Any help? TIA.