[lablgtk] hériter des objets lablgtk

Bonjour je suis débutant en Ocaml et lablgtk
Pour les besoin d'un de mes projets je dois hériter d'un widget lablgtk
je suis tombé sur un example sur ce site
Mais quand je le code entier ou que j'essaye de le reproduire dans mon projet j'ai toujours une erreur unbound widget .
voila un extrait du code qui marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

class toto = object (self) inherit widget vbox#as_widget   (* Methods will go here. *)   method private repaint () = (* Repaint the widget. See below. *)   method init = da#event#connect#expose ~callback:(fun _ -> self#repaint (); false); adjustment#connect#value_changed ~callback:(fun _ -> self#repaint ())   end

---

donc si l'un de vous pouvez m'expliquer d'ou vient l'erreur et comment ça marche en général l'heritage des widgets de cette lib je vous en serait tres reconnaissant merci.

Bonjour,

Ce n'est pas la chose la plus simple à faire... lis attentivement le paragraphe Structure of LablGTK dans le lien que tu donnes. Je pense que ça te permettra de mieux comprendre comment ça marche en interne. À noter aussi que tu dois peut-être parvenir à contourner ce problème d'héritage (pas toujours, cependant...). Je détaille plus dans un prochain message. Je n'ai pas le temps de le faire maintenant. Une piste (partie importante en vert) :

Code:

---

1 2 3 4

class toggle_button obj = object inherit GButton.button obj end

---

Cordialement,
Cacophrène

merci pour ton code j'attend la suite avec impatience
EDIT :

Code:

---

1 2 3 4 5 6 7

open GObj class clu = object(self) inherit GPack.box obj as super initializer print_string "ok" end;;

---

quand j'essaye de compiler j'ai toujour un unbound value obj pourquoi ça?
voila ce que j'utilise
ocamlc -c -I +lablgtk2 lablgtk.cma gtkInit.cmo main.ml

Bonjour,

Désolé pour cette réponse tardive. En fait il manque obj dans la définition de la classe (partie importante en vert dans le code ci-dessous).

Code:

---

1 2 3 4 5 6 7

class clu obj = object inherit GPack.box obj as super initializer print_endline "ok" end

---

Cordialement,
Cacophrène