Declaration extern des variables globales
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1968 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
6368084fa2
commit
befb77e05a
|
@ -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))
|
||||
|
|
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in New Issue