Discussion :

[dillinger91]

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 :

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

[Cacophrene]

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 :

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

1
2
3
4
class toggle_button obj = object
  inherit GButton.button obj
end

Cordialement,
Cacophrène

[dillinger91]

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

Code :

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

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

[Cacophrene]

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 :

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

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