Date: Fri, 28 May 2004 12:46:16 +0200 (CEST)
Message-Id: <20040528.124616.71805080.oandrieu at nerim.net>
To: frido at q-software-solutions.de
Cc: lablgtk at kaba.or.jp
Subject: Re: further tries with Ocaml and glade
From: Olivier Andrieu <andrieu at ijm.jussieu.fr>
In-Reply-To: <87isegdfta.fsf at fbigm.here>
References: <87isegdfta.fsf at fbigm.here>
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

 Friedrich Dominicus [Fri, 28 May 2004]:
 > 
 > Ok I tried to get futher with it and used my one filler for the
 > list_view
 > 
 > let make_model data = 
 >   let cols = new GTree.column_list in
 >   let str_col  = cols#add Gobject.Data.string in
 >   let l = GTree.list_store cols in
 >   List.iter
 >     (fun (entry) ->
 >       let row = l#append () in
 >       l#set ~row ~column:str_col entry)
 >   data ;
 >   (l, str_col)

Right, that's almost exactly GTree.store_of_list.

 > I tried to wrap the generated class for the View like this:
 > class exchange_rate () =
 >     object (self) 
 >       inherit window1 ()
 >       initializer
 >         let (store, column) = make_model currencies  in 
 >         let make_view_col () = 
 >           let renderer = GTree.cell_renderer_text [] in
 >           let view_col = GTree.view_column ~title:"Currencies" in
 >           view_col#pack renderer ;
 >           view_col#add_attribute renderer "text" column ;
 >           view_col in
 >         to_cur#set_model (Some(store :> GTree.model));
 >         to_cur#append_column column;
 >         from_cur#set_model (Some(store :> GTree.model));
 >         from_cur#append_column column
 >         
 > end
 > 
 > Does not look to bad IMHO but:
 >  lablgtk2 exchange_rate.ml
 > File "exchange_rate.ml", line 231, characters 10-18:
 > This expression has type
 >   ?renderer:#GTree.cell_renderer * (string * 'a GTree.column) list ->
 >   unit -> GTree.view_column
 > It has no method pack

That's because I forgot a unit argument. It should be:
  let view_col = GTree.view_column ~title:"Currencies" () in

-- 
   Olivier