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 :
Sauf qu'en lançant cela j'ai, comme erreur, ceci :
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 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 ()
Mais ce que je ne comprend pas c'est à quel moment je ressors un int...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager