Discussion :

[amiroushka]

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?

[Cacophrene]

Bonjour !

Pour le coup ce n'est pas un problème lié à LablGTK. Dans ton application partielle de la fonction affiche, l'argument entry#text est évalué au moment de la création de button_ok, c'est-à-dire bien avant que son contenu soit modifié par l'utilisateur. Si tu veux quand même faire une application partielle, tu peux passer le widget lui-même en argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

let affiche entry () = print_endline entry#text

Cordialement,
Cacophrène