--- /dev/null
+(* $Id$ *)
+
+open GMain
+
+let main () =
+ let w = GWindow.window ~title:"Socket example" () in
+ w#connect#destroy ~callback:Main.quit;
+ let vbox = GPack.vbox ~packing:w#add () in
+ let label = GMisc.label ~packing:vbox#pack () in
+ let socket = GBin.socket ~packing:vbox#add ~height:40 () in
+ label#set_text ("XID to plug into this socket: 0x" ^
+ Int32.format "%x" socket#xwindow);
+ w#show ();
+ Main.main ()
+
+let _ = main ()