Declaration extern des variables globales

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1968 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-05-25 09:17:22 +00:00
parent 6368084fa2
commit befb77e05a
2 changed files with 15 additions and 7 deletions

View File

@ -23,13 +23,13 @@ struct canvas {
};
extern Display * grdisplay; /* The display connection */
int grscreen; /* The screen number */
Colormap grcolormap; /* The color map */
struct canvas grwindow; /* The graphics window */
struct canvas grbstore; /* The pixmap used for backing store */
int grwhite, grblack; /* Black and white pixels */
int grx, gry; /* Coordinates of the current point */
unsigned long grcolor; /* Current drawing color */
extern int grscreen; /* The screen number */
extern Colormap grcolormap; /* The color map */
extern struct canvas grwindow; /* The graphics window */
extern struct canvas grbstore; /* The pixmap used for backing store */
extern int grwhite, grblack; /* Black and white pixels */
extern int grx, gry; /* Coordinates of the current point */
extern unsigned long grcolor; /* Current drawing color */
extern XFontStruct * grfont; /* Current font */
#define Wcvt(y) (grwindow.h - 1 - (y))

View File

@ -23,6 +23,14 @@
#endif
Display * grdisplay = NULL;
int grscreen;
Colormap grcolormap;
int grwhite, grblack;
struct canvas grwindow;
struct canvas grbstore;
int grx, gry;
unsigned long grcolor;
extern XFontStruct * grfont;
static Bool gr_initialized = False;