(************************************************************
   gtk2_keypressed.ml	Created      : Thu Jun 23 01:45:46 2005
  			Last modified: Thu Jun 23 02:09:39 2005
  Compile: ocamlc -dtypes -I +lablgtk2 lablgtk.cma gtkInit.cmo gtk2_keypressed.ml -o gtk2_keypressed #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

  Mmm... complicated

*)


open GtkSignal
open GtkWindow
open Gobject
open Gobject.Data

let _ =
  let window = Window.create ~kind:`TOPLEVEL [] in
  let id = GtkSignal.connect ~sgn:GtkBase.Object.S.destroy ~callback:(fun _ -> print_endline "closed"; GtkMain.Main.quit ()) ~after:false window in
  let id = GtkSignal.connect ~sgn:GtkBase.Widget.Signals.Event.key_press ~callback:(fun _ -> print_endline "key pressed"; false) ~after:false window in
  GtkBase.Widget.show_all window;
  GtkMain.Main.main ()

(*
 * Local Variables:
 *  namazu-default-dir "/home/tak/.indexes/ocaml"
 * End:
 *)