Ajout de gc_check_open oublies

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1345 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Mar 8, 1997 · 537ecc5 · 537ecc5
1 parent 9db6847
commit 537ecc5
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 0 deletions.
diff --git a/otherlibs/graph/draw.c b/otherlibs/graph/draw.c
@@ -19,6 +19,7 @@ value gr_plot(vx, vy)
 {
   int x = Int_val(vx);
   int y = Int_val(vy);
+  gr_check_open();
   XDrawPoint(grdisplay, grwindow.win, grwindow.gc, x, Wcvt(y));
   XDrawPoint(grdisplay, grbstore.win, grbstore.gc, x, Bcvt(y));
   XFlush(grdisplay);
@@ -47,6 +48,7 @@ value gr_lineto(vx, vy)
 {
   int x = Int_val(vx);
   int y = Int_val(vy);
+  gr_check_open();
   XDrawLine(grdisplay, grwindow.win, grwindow.gc,
             grx, Wcvt(gry), x, Wcvt(y));
   XDrawLine(grdisplay, grbstore.win, grbstore.gc,
@@ -67,6 +69,7 @@ value gr_draw_arc_nat(vx, vy, vrx, vry, va1, va2)
   int a1 = Int_val(va1);
   int a2 = Int_val(va2);
 
+  gr_check_open();
   XDrawArc(grdisplay, grwindow.win, grwindow.gc,
            x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64);
   XDrawArc(grdisplay, grbstore.win, grbstore.gc,
@@ -86,6 +89,7 @@ value gr_set_line_width(vwidth)
      value vwidth;
 {
   int width = Int_val(vwidth);
+  gr_check_open();
   XSetLineAttributes(grdisplay, grwindow.gc,
                      width, LineSolid, CapRound, JoinRound);
   XSetLineAttributes(grdisplay, grbstore.gc,

diff --git a/otherlibs/graph/fill.c b/otherlibs/graph/fill.c
@@ -22,6 +22,7 @@ value gr_fill_rect(vx, vy, vw, vh)
   int w = Int_val(vw);
   int h = Int_val(vh);
 
+  gr_check_open();
   XFillRectangle(grdisplay, grwindow.win, grwindow.gc,
                  x, Wcvt(y) - h + 1, w, h);
   XFillRectangle(grdisplay, grbstore.win, grbstore.gc,
@@ -36,6 +37,7 @@ value gr_fill_poly(array)
   XPoint * points;
   int npoints, i;
 
+  gr_check_open();
   npoints = Wosize_val(array);
   points = (XPoint *) stat_alloc(npoints * sizeof(XPoint));
   for (i = 0; i < npoints; i++) {
@@ -64,6 +66,7 @@ value gr_fill_arc_nat(vx, vy, vrx, vry, va1, va2)
   int a1 = Int_val(va1);
   int a2 = Int_val(va2);
 
+  gr_check_open();
   XFillArc(grdisplay, grwindow.win, grwindow.gc,
            x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64);
   XFillArc(grdisplay, grbstore.win, grbstore.gc,

diff --git a/otherlibs/graph/point_col.c b/otherlibs/graph/point_col.c
@@ -21,6 +21,7 @@ value gr_point_color(vx, vy)
   XImage * im;
   int rgb;
 
+  gr_check_open();
   im = XGetImage(grdisplay, grbstore.win, x, Bcvt(y), 1, 1, (-1), ZPixmap);
   rgb = gr_rgb_pixel(XGetPixel(im, 0, 0));
   XDestroyImage(im);