Discussion :

[Rigaux]

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 :

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 ()

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
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

[SpiceGuid]

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 :

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

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

[Rigaux]

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

Code :

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

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

J'ai cette erreur :

Code :

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

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 ?

[SpiceGuid]

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 ocaml :

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

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 ocaml :

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

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 ocaml :

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

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

[Rigaux]

Merci beaucoup !

Cela a marché