Original bug ID: 302
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Hao-yang Wang
Version: 3.00
OS: MacOS
Submission from: 95x16.filemaker.com (17.184.16.95)

On Macintosh, the function Graphics.wait_next_event returns a wrong value for
status.button .

Here is the patch that fixes the problem:

diff -cr ocaml-3.00~/maccaml/graph.c ocaml-3.00/maccaml/graph.c
*** ocaml-3.00~/maccaml/graph.c Mon Apr 24 23:15:58 2000
--- ocaml-3.00/maccaml/graph.c Thu Feb 1 17:38:44 2001

*** 1066,1072 ****
|| askmouseup && what == mouseUp){
mouse_x = graphQ[i].where.h;
mouse_y = graphQ[i].where.v;
! button = graphQ[i].what = mouseDown;
keypressed = 0;
DequeueEvent (i);
goto gotevent;
--- 1066,1072 ----
|| askmouseup && what == mouseUp){
mouse_x = graphQ[i].where.h;
mouse_y = graphQ[i].where.v;
! button = graphQ[i].what == mouseDown;
keypressed = 0;
DequeueEvent (i);
goto gotevent;