[fpc-pascal]fpc pascal still alive?

[adeli@adeli.fr]

when i use this

gtk_signal_connect_object(GTK_OBJECT(button_ok),'clicked',GTK_SIGNA
L_FUNC (@bouton_ok), at texte[1])


At runtime i have a problem when my procedure button_ok is called...

procedure bouton_ok(widget : pGtkWidget ; data: gpointer); cdecl; 

gtk_widget_hide (widget); say (gtk_widget_hide): assertion 
`GTK_IS_WIDGET (widget)' failed.

like the data:gpointer is invalid ! not the original @texte[1]

Does somebody have an idea?
i use fpc 1.04 on linux

Lionel Drevon			ldrevon at adeli.fr
Adeli				http://www.adeli.fr
618 Av. Gal de Gaulle		Tel 04 78 66 11 85
69760 Limonest			Fax 04 78 66 04 33