--- /dev/null
+(* $Id$ *)
+
+open GMain
+
+let main () =
+ let window = GWindow.window () in
+ window#connect#destroy ~callback:Main.quit;
+
+ let calendar = GMisc.calendar ~packing:window#add () in
+ calendar#connect#day_selected ~callback:
+ begin fun () ->
+ let (year,month,day) = calendar#date in
+ Printf.printf "You selected %d/%d/%02d.\n"
+ day (month+1) (year mod 100);
+ flush stdout
+ end;
+
+ window#show ();
+ Main.main ()
+
+let _ = main ()