Date: Thu, 10 Jun 2004 15:33:51 +0200 (CEST)
Message-Id: <20040610.153351.115871416.andrieu at ijm.jussieu.fr>
To: rich at annexia.org
Cc: lablgtk at kaba.or.jp
Subject: Re: Setting the background color on a label
From: Olivier Andrieu <andrieu at ijm.jussieu.fr>
In-Reply-To: <20040610130259.GA10340 at redhat.com>
References: <20040610130259.GA10340 at redhat.com>
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

 Richard Jones [Thu, 10 Jun 2004]:
 > I read the FAQ:
 > http://ometer.com/gtk-colors.html
 > 
 > All well and good.  So I did:
 > 
 >   let qlabel = GMisc.label ~text:"Question" ~height:150
 > 		 ~packing:vbox#pack () in
 >   qlabel#misc#modify_bg [`NORMAL, `WHITE];
 >   qlabel#misc#modify_font (Pango.Font.from_string "times 36");
 > 
 > The font size changes fine, but nothing at all happens to the
 > background color, no matter what I try.  Help!

How about this instead:

let qlabel = 
  GMisc.label 
    ~markup:"<span background='white' \
              font_desc='Times 36'>Question</span>" () 
    ~height:150
    ~packing:(vbox#pack ~expand:true) () in
  ...

-- 
   Oliver