Delivered-To: lablgtk at yquem.inria.fr
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;
	h=domainkey-signature:received:received:subject:from:to:in-reply-to
	:references:content-type:date:message-id:mime-version:x-mailer
	:content-transfer-encoding;
	bh=OZCCIzWCmu+D+MlewiFcYvvCq6L+4GXATPfEo13A9Rs=;
	b=JTbEeEDTXk/19hiAZB08SIbPO6wmhsejwtfxy+vakpc/vFu/6TkXjgzGj7xvwYbV+Q
	LKiASZfeSfeaYj6upsQdc5ZvrPfA0pJXP0eWCTiQQTrlW8kAFsmKgWcT2I0lWNchweob
	L0aYs3q4O0EwaDhkqt0x/VhiuM3/IT+aUqUis=
DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
	h=subject:from:to:in-reply-to:references:content-type:date:message-id
	:mime-version:x-mailer:content-transfer-encoding;
	b=yEdN7F/aDalsRfXs1WvH7n/OLXDJw97oS+8teMWJYWBicPB0eIiOOobe7qRNL0bTpE
	153zAxOc5nUwAx0l7RCtklbhq5WIq99nkwYynnPSuZGT121edQDbxFceBox9bfhcIyQA
	2rRVH/NJffPmHhNct2mUofZIHJQp+jsZt8ljQ=
Subject: Re: [Lablgtk] Problem with GBin.frame
From: Edouard <edouardevangelisti at gmail.com>
To: lablgtk at yquem.inria.fr
In-Reply-To: <17665252.post at talk.nabble.com>
References: <17665252.post at talk.nabble.com>
Date: Mon, 09 Jun 2008 11:46:46 +0200
Message-Id: <1213004806.20521.11.camel at edouard-laptop>
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset=UTF-8
Content-Length: 1145

Hello,

I think there are two solutions to your problem. First, you can remove
the width and height parameters when using GWindow.window. For example :

let fenetre = GWindow.window ~title:"Fenêtre" ()

but I suppose this is not what you want to do because the window will be
very small... so let's go to the second solution :

let _ =

  (* First, our well-sized window. *)
  let window = GWindow.window 
    ~width:800 
    ~height:640 
    ~title:"Fenêtre" () in
  window#connect#destroy GMain.quit;

  (* Then add a box so we can pack multiple widgets into the window. *)
  let container = GPack.vbox ~packing:window#add () in

  (* Then add the frame using the #pack method. *)
  let frame = GBin.frame
    ~border_width:10
    ~width:200
    ~height:50
    ~packing:(container#pack ~expand:false) () in
  window#show ();

  GMain.main ();

The ~expand:false parameters means "Do not expand as much as possible".
Now your frame does not fill the whole window anymore.

Hope this helps,
Ed.

_______________________________________________
Lablgtk mailing list
Lablgtk@yquem.inria.fr
http://yquem.inria.fr/cgi-bin/mailman/listinfo/lablgtk