On 30.07.2007, at 07:40, Julien Moutinho wrote:

> Check the META.lablgtk2 file:
> $ ocamlfind query lablgtk2 -format "%A" -predicates native,mt
> lablgtk.cmxa gtkThread.cmx
>
> If you get this, lablgtk2 is not likely to be guilty.
Ok, I rechecked this: I think the lablgtk2 META file is the culprit:
I'm using OpenGL. So if I add the lablGL predicate, I effectively get  
this:

$ ocamlfind query lablgtk2 -format "%A" -predicates native,mt,lablGL
lablgtk.cmxa lablgtkgl.cmxa lablglade.cmxa lablgnomecanvas.cmxa  
lablgnomeui.cmxa lablpanel.cmxa gtkInit.cmx gtkThread.cmx gtkThread.cmx

Which explains the error. But how would I fix this?

$ more META
description = "Bindings for gtk2"
requires=""
requires(lablGL)="lablGL"
version="20051028"
archive(byte)="lablgtk.cma  lablglade.cma lablgnomecanvas.cma  
lablgnomeui.cma lablpanel.cma gtkInit.
cmo"
archive(native)="lablgtk.cmxa  lablglade.cmxa lablgnomecanvas.cmxa  
lablgnomeui.cmxa lablpanel.cmxa g
tkInit.cmx"
archive(byte,lablGL)="lablgtk.cma lablgtkgl.cma  lablglade.cma  
lablgnomecanvas.cma lablgnomeui.cma l
ablpanel.cma gtkInit.cmo"
archive(native,lablGL)="lablgtk.cmxa lablgtkgl.cmxa  lablglade.cmxa  
lablgnomecanvas.cmxa lablgnomeui
.cmxa lablpanel.cmxa gtkInit.cmx"
archive(byte,mt) += "gtkThread.cmo"
archive(native,mt) += "gtkThread.cmx"
archive(byte,lablGL,mt) += "gtkThread.cmo"
archive(native,lablGL,mt) += "gtkThread.cmx"
archive(toploop,mt) += "gtkThInit.cmo"