Discussion :

[elendril]

Bonjour, j'utilise la bibliothèque lablgtk et j'aimerais faire une zone de saisie avec GEdit.entry. Le soucis c'est que je n'arrive pas à récupérer le contenu du widget, que j'aimerais afficher simplement dans la console à l'appui d'un bouton. J'ai essayé avec my_entry#text mais ça renvoi toujours une chaine vide, comme si le widget n'était pas updaté ! Une idée ?

[prgasp77]

Bonjour,
c'est pour le moins étonnant. Pourrais-tu nous donner quelques extraits pertinents de ton code ? (notamment la création du GEdit.entry, la lecture du #text et l'évaluation du string résultant).

Cdlt,

[elendril]

Je vais mettre tout mon code vu qu'il est très court :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
let _ = GMain.init ()
 
let window = GWindow.window
        ~title:"The cake is a lie"
        ~border_width: 5
        ~height:400
        ~width:400 ()
 
let box = GPack.vbox
        ~homogeneous: true
        ~packing:window#add ()
 
let entry = GEdit.entry
        ~text: ""
        ~packing: (box#pack ~fill:false) ()
 
let ok = GButton.button
        ~label:"Ok"
        ~packing: (box#pack ~fill:false) ()
 
let print msg () =
        Printf.printf "%s\n" (msg);
        flush stdout
 
let _ = window#connect#destroy ~callback:GMain.quit;
        ok#connect#clicked ~callback:(print entry#text);
        window#show ();
        GMain.main ()

Voila merci de m'aider ^^

[prgasp77]

L'erreur est assez subtile.

La fonction (print entry#text) est de type unit -> unit, c'est donc effectivement un callback que le bouton peut invoquer dès qu'il est pressé.

Mais, le soucis est que entry#text n'est pas réévaluée à chaque fois que le callback est appelé : elle est évaluée lors de la définition du callback (c'est-à-dire au lancement de l'application, lorsqu'entry est vide).

Une solution pourrait être de décharger le travail de l'évaluation de entry par print :

Code :

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

1
2
3
4
let print () =
   let msg = entry#text in
   Printf.printf "%s\n" (msg) ;
   flush stdout

Ainsi, la méthode #text serait appelée non pas au lancement de l'application, mais lorsque le bouton est appuyé.

Cordialement,

[elendril]

Ah ouai d'accord ! Merci beaucoup ça marche maintenant ^^ !

[Cacophrene]

Bonsoir,

À noter que c'est une erreur très fréquente avec LablGTK. Une solution classique est de rajouter un unit suplémentaire, comme ceci :
~callback: (fun () -> foo bar#text)

Cordialement,
Cacophrène