Problem with GBin.frame

Hello,

I try to build a menu with lablgtk, especially with the frame widget.
Hereby the code of an example : 

open GMain
let main () =
  let fenetre = GWindow.window ~width:800 ~height:640 ~title:"Fenêtre"  ()
in
  fenetre#connect#destroy ~callback:fenetre#destroy;

  let cadre = GBin.frame
    ~border_width:10
    ~width:200
    ~height:50
    ~packing:fenetre#add() in

  fenetre#show ();
  Main.main ()
;;
main ()

It runs but the ~width and ~height are not used. The frame fills the whole
window. I have no error message.

Is there anyone to understand the problem and help me ? 
Thanks

Environnment : Linux(Fedora and ubuntu) - Ocaml's beginner
-- 
View this message in context: http://www.nabble.com/Problem-with-GBin.frame-tp17665252p17665252.html
Sent from the Lablgtk - France mailing list archive at Nabble.com.