--- /dev/null
+(* $Id$ *)
+
+open GMain
+
+let window = GWindow.window ~show:true ()
+
+let w = window#misc#window
+let drawing = new GDraw.drawable w
+
+let redraw _ =
+ drawing#polygon ~filled:true
+ [ 10,100; 35,35; 100,10; 165,35; 190,100;
+ 165,165; 100,190; 35,165; 10,100 ];
+ false
+
+let _ =
+ window#connect#destroy ~callback:Main.quit;
+ window#event#connect#after#configure ~callback:redraw;
+ Main.main ()