Correction de litecrit.c

/* affiche la frappe clavier a l'endroit de la souris sans chevauvement de
 gauche vers la droite et quitte si touche q */

#include <stdio.h>
#include <X11/Xlib.h>

#define LARG 6 /* largeur de caractere + 1 */

GC      gc; 
Display *display; 
int     screen; 
Window  win, root; 
unsigned long white_pixel, black_pixel; 
int nbre;
char chaine[20];
KeySym touche;
int pos_x = 0, pos_y = 0, i=0;
 
main() {  
  if ((display = XOpenDisplay ("")) == NULL) { 
    fprintf (stderr, "Can't open Display\n"); 
    exit (1); 
  } 
  gc = DefaultGC (display, screen); 
  screen = DefaultScreen (display); 
  root = RootWindow (display, screen); 
  white_pixel = WhitePixel (display, screen); 
  black_pixel = BlackPixel (display, screen); 
  win = XCreateSimpleWindow (display, root,  
			     0, 0, 100, 90, 2, black_pixel, white_pixel); 
  XSelectInput (display, win, ExposureMask | KeyPressMask | ButtonPressMask ); 
  XStoreName (display, win, "litecrit"); 
  XMapWindow (display, win); 
  
  for (;;) { 
    XEvent ev; 
    XNextEvent (display, &ev); 
    switch (ev.type) { 
    case Expose :
      XDrawString (display, win, gc, 10, 30, "Hello !", 7);      
      break; 
    case ButtonPress :
      i = 0 ; pos_x = ev.xbutton.x ; pos_y = ev.xbutton.y ;
      break;
    case KeyPress :
      nbre = XLookupString(&ev, chaine, 20, &touche, 0);
      chaine[nbre] = 0;
      if ((nbre == 1) && (chaine[0] == 'q'))
	exit(0);
      XDrawString(display, win, gc, pos_x + i*LARG, pos_y, chaine, nbre);
      i = i + nbre;
    default : 
      break;            
    } 
  } 
} 
 

chapitre de l'exercice index général fonctions de la XLib événements types dans XLib