helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/socket.ml

   1 (* $Id$ *)
   2
   3 open GMain
   4
   5 let main () =
   6   let w = GWindow.window ~title:"Socket example" () in
   7   w#connect#destroy ~callback:Main.quit;
   8   let vbox = GPack.vbox ~packing:w#add () in
   9   let label = GMisc.label ~packing:vbox#pack () in
  10   let socket = GBin.socket ~packing:vbox#add ~height:40 () in
  11   label#set_text ("XID to plug into this socket: 0x" ^
  12                   Int32.format "%x" socket#xwindow);
  13   w#show ();
  14   Main.main ()
  15
  16 let _ = main ()