add: modification_fichier ( TRUE );
context: void choix_fonte ( GtkWidget *bouton,		   gchar *fonte,		   gpointer null ){  GdkFont *font;  gchar * fontname;  GtkWidget * dialog;  gint i, size;  dialog = gtk_font_selection_dialog_new (COLON(_("Transaction list font")));  if (fonte_liste)    gtk_font_selection_dialog_set_font_name (GTK_FONT_SELECTION_DIALOG(dialog), 					     fonte_liste);  gtk_window_set_modal ( GTK_WINDOW ( dialog ), 			 TRUE );  switch ( gtk_dialog_run ( GTK_DIALOG ( dialog ) ) )    {      case GTK_RESPONSE_OK:	fontname = gtk_font_selection_dialog_get_font_name (GTK_FONT_SELECTION_DIALOG(dialog));	gtk_widget_destroy (dialog);  	update_font_button (list_font_name_label, list_font_size_label, 			    fontname);	break;      default:	gtk_widget_destroy (dialog);	return;    }  fonte_liste = fontname;    if ( nb_comptes )    {      font = gdk_font_load ( fonte_liste );      /* Use font */      /* FIXME FONTS ... this does not work !!! */      gtk_style_set_font (style_couleur [0], font);      gtk_style_set_font (style_couleur [1], font);      gtk_style_set_font (style_rouge_couleur [0], font);      gtk_style_set_font (style_rouge_couleur [1], font);      /* Find font size */      p_tab_nom_de_compte_variable = p_tab_nom_de_compte;      for ( i = 0 ; i < nb_comptes ; i++ )	{	  gint size = pango_font_description_get_size	    (pango_font_description_from_string(fontname));	  gtk_clist_set_row_height ( GTK_CLIST ( CLIST_OPERATIONS ),				     (size/PANGO_SCALE) + 2 );	  gtk_clist_set_row_height ( GTK_CLIST ( liste_echeances ),				     (size/PANGO_SCALE) + 2 );	  p_tab_nom_de_compte_variable++;	}    }}