voila un exemple de code simple pour vous faire comprendre mon problème

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
let register_multiple f = List.map (fun callback -> (f ~callback))
 
let affiche str ()= print_endline str
 
let affiche2 ()= print_endline entry#text
 
let button_ok=
  let button=GButton.button
  ~stock:`OK
  ~packing:hbox_scroll1#add () in register_multiple button#connect#clicked [affiche entry#text;affiche2];
  button
quand je clique sur mon bouton, la première fonction me renvoie une chaine vide alors que la deuxième m'affiche ce que j'ai entré rééllement dans la zone de texte.
Comment puis-je remedier à ce problème?