--- /dev/null
+(* $Id$ *)
+
+open GMain
+
+let _ =
+ let window = GWindow.window () in
+ window#connect#destroy ~callback:Main.quit;
+
+ let text = GEdit.text ~editable:true ~packing:window#add () in
+ text#event#connect#button_press ~callback:
+ begin fun ev ->
+ GdkEvent.Button.button ev = 3 &&
+ GdkEvent.get_type ev = `BUTTON_PRESS &&
+ begin
+ let pos = text#position in
+ GdkEvent.Button.set_button ev 1;
+ text#event#send (GdkEvent.coerce ev);
+ Printf.printf "Position is %d.\n" text#position;
+ flush stdout;
+ text#set_position pos;
+ true
+ end
+ end;
+ window#show ();
+ Main.main ()