diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2001-03-06 16:54:57 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2001-03-06 16:54:57 +0000 |
| commit | 5576d302b1b452bf0b06813ea61ac13c149d00af (patch) | |
| tree | 6aeaf2aef894323ffb91f14256c0d142b20309d7 | |
| parent | e8f102b6dc9d0e43634e963176b5c2a575b77255 (diff) | |
PR#302
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3460 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | maccaml/graph.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/maccaml/graph.c b/maccaml/graph.c index 59cf46cf7..47678f18d 100644 --- a/maccaml/graph.c +++ b/maccaml/graph.c @@ -439,6 +439,7 @@ value gr_synchronize (value unit) #pragma unused (unit) GrafPtr saveport; + gr_check_open (); PushWindowPort (winGraphics); GraphUpdate (); PopPort; @@ -1066,7 +1067,7 @@ value gr_wait_event (value veventlist) || askmouseup && what == mouseUp){ mouse_x = graphQ[i].where.h; mouse_y = graphQ[i].where.v; - button = graphQ[i].what = mouseDown; + button = graphQ[i].what == mouseDown; keypressed = 0; DequeueEvent (i); goto gotevent; |