Date: Thu, 10 Feb 2005 15:21:40 +0100 (CET)
Message-Id: <20050210.152140.48531209.andrieu at ijm.jussieu.fr>
To: ermine at ermine.pp.ru
Cc: lablgtk at math.nagoya-u.ac.jp
Subject: Re: GTreeView
From: Olivier Andrieu <andrieu at ijm.jussieu.fr>
In-Reply-To: <20050207111723.GA37538 at ermine.home>
References: <20050207111723.GA37538 at ermine.home>
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

 Anastasia Gornostaeva [Mon, 7 Feb 2005]:
 > Hello.
 > 
 > I'm newbie and attemting to build a TreeView that displays rows with 
 > variable rows: Sorry for big text here.
 > In programm below I'm attemting to keep first column to ve width=0 for
 > toplevel rows but it fails and after its expanding the first column becomes
 > large.

That's because you're using two GtkTreeViewColumns. Here you want to
put the two renderers in the same GtkTreeViewColumn (with suitable
~expand flag so that it does not look ugly).

Try this :
,----
| let create_view ~packing () =
|    let model = create_model () in
|    let view = GTree.view ~model ~headers_visible:false ~packing () in
| 
|    let col = GTree.view_column () in
|    ignore (view#append_column col) ;
|    begin
|      let renderer = GTree.cell_renderer_pixbuf [`XPAD 0; `YPAD 1 ] in
|      col#pack ~expand:false renderer ;
|      col#set_cell_data_func renderer (status_cell_data_func renderer)
|    end ;
|    begin
|      let renderer = GTree.cell_renderer_text [`FOREGROUND "green"; `XPAD 4; `YPAD 1 ] in
|      col#pack ~expand:true renderer ;
|      col#set_cell_data_func renderer (element_cell_data_func renderer)
|    end ;
|    view
`----

-- 
   Olivier