To: lablgtk at kaba.or.jp
Subject: Ocaml and Glade the third ;-(
References: <87isegdfta.fsf at fbigm.here>
	<20040528.124616.71805080.oandrieu@nerim.net> <87isefzrdg.fsf@fbigm.here>
From: Friedrich Dominicus <frido at q-software-solutions.de>
Organization: Q Software Solutions GmbH
Date: Wed, 16 Jun 2004 16:30:17 +0200
In-Reply-To: <87isefzrdg.fsf at fbigm.here> (Friedrich Dominicus's message of
 "Sat, 29 May 2004 08:20:27 +0200")
Message-ID: <87pt7zd18m.fsf_-_ at fbigm.here>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii

Ok part of my cod now looks like this:
class exchange_rate () =
    object (self) 
      inherit window1 ()
      initializer
        let (store, column) = make_model currencies  in 
        let make_view_col column = 
          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 (make_view_col column);
          from_cur#set_model (Some(store :> GTree.model));
          (* from_cur#append_column (make_view_col column); *)
end


Now while running this with lablgtk2 I got a window with tow listvies
the right hand side is empty the left side contains the data I
expect. 

If I comment out the line with from_cur ... 
I got a type error telling me:

File "exchange_rate.ml", line 241, characters 10-56:
This expression has type int but is here used with type unit

How could that be? It's exaclty the same line as before ...

Regards
Friedrich