summaryrefslogtreecommitdiffstats
path: root/otherlibs
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>2002-07-26 08:37:51 +0000
committerXavier Leroy <xavier.leroy@inria.fr>2002-07-26 08:37:51 +0000
commitd8f5ca33ba2a19b3b6eab5f55233d5d944793bc4 (patch)
treeab79c48c705ffbd6016f8716095c9cdf36b775cc /otherlibs
parent6d79596d136ed47de18da06b733d5485b990a39b (diff)
La couleur de remplissage n'etait pas initialisee correctement
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5048 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs')
-rw-r--r--otherlibs/win32graph/libgraph.h5
-rw-r--r--otherlibs/win32graph/open.c1
2 files changed, 2 insertions, 4 deletions
diff --git a/otherlibs/win32graph/libgraph.h b/otherlibs/win32graph/libgraph.h
index 877298429..01f7f7de7 100644
--- a/otherlibs/win32graph/libgraph.h
+++ b/otherlibs/win32graph/libgraph.h
@@ -74,10 +74,7 @@ extern int bits_per_pixel;
void gr_fail(char *fmt, char *arg);
void gr_check_open(void);
-unsigned long gr_pixel_rgb(int rgb);
-int gr_rgb_pixel(long unsigned int pixel);
-void gr_enqueue_char(unsigned char c);
-void gr_init_color_cache(void);
+CAMLprim value gr_set_color(value vcolor);
// Windows specific definitions
extern RECT WindowRect;
diff --git a/otherlibs/win32graph/open.c b/otherlibs/win32graph/open.c
index 047e84c5b..f83c84d7f 100644
--- a/otherlibs/win32graph/open.c
+++ b/otherlibs/win32graph/open.c
@@ -187,6 +187,7 @@ static value gr_reset(void)
grwindow.CurrentBrush = SelectObject(grwindow.gc,GetStockObject(WHITE_BRUSH));
SelectObject(grwindow.gc,grwindow.CurrentBrush);
SelectObject(grwindow.gcBitmap,grwindow.CurrentBrush);
+ gr_set_color(Val_long(0));
SelectObject(grwindow.gc,grwindow.CurrentFont);
SelectObject(grwindow.gcBitmap,grwindow.CurrentFont);
grdisplay_mode = grremember_mode = 1;