Date: Thu, 11 Aug 2005 09:45:12 -0300
From: romildo at uber.com.br
To: lablgtk at math.nagoya-u.ac.jp
Subject: [newbie] Setting a callback
Message-ID: <20050811124512.GA15090 at malaquias>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="sdtB3X0nJg68CQEu"
Content-Disposition: inline


--sdtB3X0nJg68CQEu
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Hello again.

How can I set a callback for focus_out_event in a text entry
widget?

My attempt is attached below. But compilation files with
error message:

  File "test2.ml", line 14, characters 4-17:
  This expression has type GEdit.entry_signals
  It has no method focus_out_event

Romildo

--sdtB3X0nJg68CQEu
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="test2.ml"

(* test2.ml *)

let check_entry entry () =
  let x = int_of_string entry#text in
    print_int x;
    print_newline ()

let main () =
  let window = GWindow.window ~title:"Test" ~border_width:10 () in
  let box = GPack.hbox ~spacing:10 ~packing:window#add () in
  let label = GMisc.label ~text:"Value" ~xalign:0.0 ~packing:box#pack () in
  let entry = GEdit.entry ~text:"21" ~packing:box#pack () in
  let button = GButton.button ~label:"Quit" ~packing:box#pack () in
    entry#connect#focus_out_event ~callback:(check_entry entry);
    button#connect#clicked ~callback:GMain.Main.quit;
    window#connect#destroy ~callback:GMain.Main.quit;
    window#show ();
    GMain.Main.main ()

let _ =
  Printexc.print main ()

--sdtB3X0nJg68CQEu--