[OCAML] Intialisation d'un notebook sous LABLGTK2+

Bonjour tout le monde,

Je suis entrain d'essayer de faire un notebook avec LablGTK2+ et je n'arrive pas à append_page, pour pouvoir lui ajouter des pages et donc l'initialiser.
Je veux alors, ajouter une vbox à la première "page", avec comme label du tab : Home. Mais j'ai une petite erreur et je ne vois pas d'où elle vient.

Je vous mets ici le code que j'essaye de compiler :

Code:

---

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

open GMain open GdkKeysyms   let _ = GMain.init ()   let window = GWindow.window ~width:900 ~height:700 ~position:`CENTER ~resizable:false ~title:"Test" ()   let hboxtwo = GPack.hbox ~spacing:10 ~packing: window#add ()   let notebook = GPack.notebook ~packing:hboxtwo#add ()   let fir = GMisc.label ~text:"Home" ()   let vboxtwo = GPack.vbox ~spacing:10 ~packing:(notebook#append_page ~tab_label:fir#coerce) ()   let _ = ignore (window#event#connect#delete confirm); window#show (); GMain.main ()

---

Sauf qu'en lançant cela j'ai, comme erreur, ceci :

Code:

---

1 2 3 4

File "t.ml", line 23, characters 10-54: Error: This expression has type GObj.widget -> int but an expression was expected of type GObj.widget -> unit Type int is not compatible with type unit

---

Mais ce que je ne comprend pas c'est à quel moment je ressors un int...

Je voulais donc savoir si quelqu'un s'y connait mieux que moi avec les notebooks et veux bien m'aider pour cette erreur

Merci d'avance
Cordialement Rigaux

La methode #append_page retourne un int, parce qu'en C elle retourne un int. C'est le même problème / solution qu'avec la méthode #event#connect#delete.

Code:

---

~packing:(ignore (notebook#append_page ~tab_label:fir#coerce))

---

J'avais déjà essayé avec la fonction Ignore mais cela ne marche toujours pas en effet en modifiant ma fonction vboxtwo ainsi :

Code:

---

1 2 3

let vboxtwo = GPack.vbox ~spacing:10 ~packing:(ignore (notebook#append_page ~tab_label:fir#coerce)) ()

---

J'ai cette erreur :

Code:

---

1 2 3 4 5 6

File "t.ml", line 23, characters 18-62: Warning 5: this function application is partial, maybe some arguments are missing. File "t.ml", line 23, characters 10-63: Error: This expression has type unit but an expression was expected of type GObj.widget -> unit

---

Aurais tu une idée ?

Techniquement il semblerait que tu puisses très bien t'en sortir à l'aide d'une petite fonction utilitaire (qui pourrait très bien avoir sa place dans le module Gaux) :

Code:

---

1 2 3 4 5 6

let ignore_apply f obj = ignore(f obj)   let vboxtwo = GPack.vbox ~spacing:10 ~packing:(ignore_apply (notebook#append_page ~tab_label:fir#coerce)) ()

---

Ou bien encore :

Code:

---

1 2 3 4 5 6

let notebook_append_page ~tab_label obj = ignore(notebook#append_page ~tab_label obj)   let vboxtwo = GPack.vbox ~spacing:10 ~packing:(notebook_append_page ~tab_label:fir#coerce) ()

---

EDIT: Après, au niveau du style, ça me paraît alambiqué, il y a un moyen plus conventionnel qui consiste à se passer de ~packing.

Code:

---

1 2 3 4 5 6 7

let notebook = GPack.notebook ~packing:hboxtwo#add ()   let fir = GMisc.label ~text:"Home" ()   let vboxtwo = GPack.vbox ~spacing:10 () (* pas de ~packing *)   let _ = notebook#append_page ~tab_label:fir#coerce vboxtwo#coerce

---

Merci beaucoup !

Cela a marché