diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-07-26 08:37:51 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-07-26 08:37:51 +0000 |
| commit | d8f5ca33ba2a19b3b6eab5f55233d5d944793bc4 (patch) | |
| tree | ab79c48c705ffbd6016f8716095c9cdf36b775cc /otherlibs | |
| parent | 6d79596d136ed47de18da06b733d5485b990a39b (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.h | 5 | ||||
| -rw-r--r-- | otherlibs/win32graph/open.c | 1 |
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; |