(************************************************************
   gsignal_connect.ml	Created      : Tue Jun 21 00:00:13 2005
  			Last modified: Wed Jun 22 22:27:32 2005
  Compile: ocamlc -dtypes -I +lablgtk2 -w -s lablgtk.cma gtkInit.cmo gsignal_connect.ml -o gsignal_connect #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

  print "hello" when window is closed
*)

open GtkSignal
open GtkWindow
open Gobject
open Gobject.Data

let _ =
  let window = Window.create ~kind:`TOPLEVEL [] in
  let id = GtkSignal.connect_by_name window "destroy" (Closure.create (fun _ -> print_endline "closed"; GtkMain.Main.quit ())) false in
  GtkBase.Widget.show_all window;
  GtkMain.Main.main ()

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