version 1.27, 2011/08/09 11:31:29
|
version 1.65, 2017/08/24 07:07:38
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
RPL/2 (R) version 4.1.28 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 24
|
Line 24
|
|
|
#ifdef MOTIF_SUPPORT |
#ifdef MOTIF_SUPPORT |
# include <X11/Xlib.h> |
# include <X11/Xlib.h> |
# include <Xm/XmAll.h> |
# include "X11/xpm.h" |
# include <X11/xpm.h> |
# include "Xm/XmAll.h" |
|
# include <X11/extensions/Xinerama.h> |
#endif |
#endif |
|
|
|
static logical1 |
|
valeur_erreur(logical1 nouvelle_valeur) |
|
{ |
|
static logical1 erreur = d_faux; |
|
logical1 registre; |
|
|
|
registre = erreur; |
|
erreur = nouvelle_valeur; |
|
return(registre); |
|
} |
|
|
|
static int |
|
_XlibErrorHandler(Display *display, XErrorEvent *event) |
|
{ |
|
valeur_erreur(d_vrai); |
|
uprintf("An error occured detecting the mouse position\n"); |
|
return True; |
|
} |
|
|
|
static void |
|
_XtWarningHandler(String message) |
|
{ |
|
return; |
|
} |
|
|
void |
void |
encart(struct_processus *s_etat_processus, unsigned long duree) |
encart(struct_processus *s_etat_processus, integer8 duree) |
{ |
{ |
# ifdef MOTIF_SUPPORT |
# ifdef MOTIF_SUPPORT |
# include "rpl.xpm" |
# include "rpl.xpm" |
|
|
|
Bool mouse_found; |
|
|
Display *display; |
Display *display; |
|
|
int argc; |
int argc; |
int erreur; |
int erreur; |
int hauteur; |
int hauteur; |
int hauteur_xpm; |
int hauteur_xpm; |
|
int i; |
int largeur; |
int largeur; |
int largeur_xpm; |
int largeur_xpm; |
|
int ns; |
|
int nb_screens; |
|
int offset_x; |
|
int offset_y; |
|
int root_x; |
|
int root_y; |
|
int win_x; |
|
int win_y; |
|
int x_max; |
|
int x_min; |
|
int y_max; |
|
int y_min; |
|
|
Pixel couleur_arriere_plan; |
Pixel couleur_arriere_plan; |
Pixel couleur_avant_plan; |
Pixel couleur_avant_plan; |
Line 61 encart(struct_processus *s_etat_processu
|
Line 101 encart(struct_processus *s_etat_processu
|
struct timeval horodatage_initial; |
struct timeval horodatage_initial; |
struct timeval horodatage_final; |
struct timeval horodatage_final; |
|
|
unsigned long decor; |
long decor; |
unsigned long fonctions; |
long fonctions; |
|
|
|
unsigned int mask_return; |
|
|
|
Window *root_windows; |
|
Window window_returned; |
|
|
Widget cadre; |
Widget cadre; |
Widget form; |
Widget form; |
Line 71 encart(struct_processus *s_etat_processu
|
Line 116 encart(struct_processus *s_etat_processu
|
|
|
XEvent evenement; |
XEvent evenement; |
|
|
|
XineramaScreenInfo *ts; |
|
|
XtAppContext app; |
XtAppContext app; |
|
|
|
XtErrorHandler old_message_handler; |
|
|
if (strstr(XmVERSION_STRING, "LessTif") != NULL) |
if (strstr(XmVERSION_STRING, "LessTif") != NULL) |
{ |
{ |
printf("Lesstif is broken, please consider an upgrade to OpenMotif.\n"); |
printf("Lesstif is broken, please consider an upgrade to OpenMotif.\n"); |
Line 88 encart(struct_processus *s_etat_processu
|
Line 137 encart(struct_processus *s_etat_processu
|
|
|
if (display != NULL) |
if (display != NULL) |
{ |
{ |
XCloseDisplay(display); |
|
|
|
objet_principal = XtVaOpenApplication(&app, "rpl", |
objet_principal = XtVaOpenApplication(&app, "rpl", |
NULL, 0, &argc, argv, NULL, topLevelShellWidgetClass, NULL); |
NULL, 0, &argc, argv, NULL, overrideShellWidgetClass, NULL); |
XSynchronize(XtDisplay(objet_principal), False); |
XSynchronize(XtDisplay(objet_principal), False); |
|
|
|
old_message_handler = XtAppSetWarningHandler(app, _XtWarningHandler); |
|
|
form = XtVaCreateManagedWidget("rplSplashScreen", |
form = XtVaCreateManagedWidget("rplSplashScreen", |
xmFormWidgetClass, objet_principal, |
xmFormWidgetClass, objet_principal, |
NULL); |
NULL); |
Line 117 encart(struct_processus *s_etat_processu
|
Line 166 encart(struct_processus *s_etat_processu
|
XmNbackground, &couleur_arriere_plan, |
XmNbackground, &couleur_arriere_plan, |
NULL); |
NULL); |
|
|
if ((erreur = XCreatePixmapFromData(XtDisplay(form), |
uprintf("0\n"); |
|
if ((erreur = XpmCreatePixmapFromData(XtDisplay(form), |
DefaultRootWindow(XtDisplay(form)), rpl_xpm, |
DefaultRootWindow(XtDisplay(form)), rpl_xpm, |
&pixmap_rpl, &pixmap_rpl_masque, NULL)) != 0) |
&pixmap_rpl, &pixmap_rpl_masque, NULL)) != 0) |
{ |
{ |
Line 141 encart(struct_processus *s_etat_processu
|
Line 191 encart(struct_processus *s_etat_processu
|
fonctions &= ~(MWM_FUNC_ALL + MWM_FUNC_RESIZE + MWM_FUNC_CLOSE |
fonctions &= ~(MWM_FUNC_ALL + MWM_FUNC_RESIZE + MWM_FUNC_CLOSE |
+ MWM_FUNC_MINIMIZE + MWM_FUNC_MAXIMIZE); |
+ MWM_FUNC_MINIMIZE + MWM_FUNC_MAXIMIZE); |
|
|
largeur = WidthOfScreen(XtScreen(form)); |
|
hauteur = HeightOfScreen(XtScreen(form)); |
|
|
|
XtVaSetValues(objet_principal, |
XtVaSetValues(objet_principal, |
XmNmwmDecorations, decor, |
XmNmwmDecorations, decor, |
XmNmwmFunctions, fonctions, |
XmNmwmFunctions, fonctions, |
NULL); |
NULL); |
|
|
|
uprintf("1\n"); |
|
if (XineramaIsActive(display) == True) |
|
{ |
|
// Récupération de la localisation des différents écrans |
|
// physiques. |
|
|
|
ts = XineramaQueryScreens(display, &ns); |
|
|
|
//XSetErrorHandler(_XlibErrorHandler); |
|
nb_screens = XScreenCount(display); |
|
|
|
root_windows = sys_malloc(((unsigned) nb_screens) * sizeof(Window)); |
|
|
|
for(i = 0; i < nb_screens; i++) |
|
{ |
|
root_windows[i] = XRootWindow(display, i); |
|
} |
|
|
|
for(i = 0; i < nb_screens; i++) |
|
{ |
|
valeur_erreur(d_faux); |
|
|
|
do |
|
{ |
|
mouse_found = XQueryPointer(display, root_windows[i], |
|
&window_returned, &window_returned, |
|
&root_x, &root_y, &win_x, &win_y, &mask_return); |
|
} while(valeur_erreur(d_faux) == d_vrai); |
|
|
|
if (mouse_found == True) |
|
{ |
|
break; |
|
} |
|
} |
|
|
|
if (mouse_found == True) |
|
{ |
|
mouse_found = False; |
|
|
|
for(i = 0; i < ns; i++) |
|
{ |
|
x_min = ts[i].x_org; |
|
x_max = x_min + ts[i].width; |
|
y_min = ts[i].y_org; |
|
y_max = y_min + ts[i].height; |
|
|
|
if ((root_x >= x_min) && (root_x <= x_max) && |
|
(root_y >= y_min) && (root_y <= y_max)) |
|
{ |
|
largeur = ts[i].width; |
|
hauteur = ts[i].height; |
|
offset_x = ts[i].x_org; |
|
offset_y = ts[i].y_org; |
|
|
|
mouse_found = True; |
|
break; |
|
} |
|
} |
|
|
|
if (mouse_found == False) |
|
{ |
|
// Aucune souris sur un écran physique. |
|
|
|
largeur = ts[0].width; |
|
hauteur = ts[0].height; |
|
offset_x = 0; |
|
offset_y = 0; |
|
} |
|
} |
|
else |
|
{ |
|
// Aucune souris, on considère le premier écran physique |
|
// géré par Xinerama. |
|
|
|
largeur = ts[0].width; |
|
hauteur = ts[0].height; |
|
offset_x = 0; |
|
offset_y = 0; |
|
} |
|
|
|
sys_free(root_windows); |
|
XFree(ts); |
|
} |
|
else |
|
{ |
|
// Xinerama inactif, on considère qu'il n'y a qu'un seul |
|
// écran physique. |
|
|
|
largeur = WidthOfScreen(XtScreen(form)); |
|
hauteur = HeightOfScreen(XtScreen(form)); |
|
offset_x = 0; |
|
offset_y = 0; |
|
} |
|
uprintf("2\n"); |
|
|
#if 0 |
#if 0 |
XtRealizeWidget(objet_principal); |
XtRealizeWidget(objet_principal); |
|
|
Line 158 encart(struct_processus *s_etat_processu
|
Line 300 encart(struct_processus *s_etat_processu
|
NULL); |
NULL); |
|
|
XtVaSetValues(objet_principal, |
XtVaSetValues(objet_principal, |
XmNx, (largeur - largeur_popup) / 2, |
XmNx, offset_x + ((largeur - largeur_popup) / 2), |
XmNy, (hauteur - hauteur_popup) / 2, |
XmNy, offset_y + ((hauteur - hauteur_popup) / 2), |
NULL); |
NULL); |
#else |
#else |
sscanf(rpl_xpm[0], "%d %d", &largeur_xpm, &hauteur_xpm); |
sscanf(rpl_xpm[0], "%d %d", &largeur_xpm, &hauteur_xpm); |
|
|
largeur_popup = largeur_xpm + 28; |
largeur_popup = (Position) (largeur_xpm + 28); |
hauteur_popup = hauteur_xpm + 28; |
hauteur_popup = (Position) (hauteur_xpm + 28); |
|
|
XtVaSetValues(objet_principal, |
XtVaSetValues(objet_principal, |
XmNx, (largeur - largeur_popup) / 2, |
XmNx, offset_x + ((largeur - largeur_popup) / 2), |
XmNy, (hauteur - hauteur_popup) / 2, |
XmNy, offset_y + ((hauteur - hauteur_popup) / 2), |
NULL); |
NULL); |
|
|
XtRealizeWidget(objet_principal); |
XtRealizeWidget(objet_principal); |
#endif |
#endif |
|
uprintf("3\n"); |
|
|
XFlush(XtDisplay(form)); |
XFlush(XtDisplay(form)); |
|
uprintf("3a\n"); |
|
|
attente.tv_sec = 0; |
attente.tv_sec = 0; |
attente.tv_nsec = 1000; |
attente.tv_nsec = 1000; |
Line 184 encart(struct_processus *s_etat_processu
|
Line 328 encart(struct_processus *s_etat_processu
|
|
|
do |
do |
{ |
{ |
|
uprintf("3b\n"); |
if (XtAppPending(app) != 0) |
if (XtAppPending(app) != 0) |
{ |
{ |
|
uprintf("3c\n"); |
XtAppNextEvent(app, &evenement); |
XtAppNextEvent(app, &evenement); |
|
uprintf("3d\n"); |
XtDispatchEvent(&evenement); |
XtDispatchEvent(&evenement); |
|
uprintf("3e\n"); |
} |
} |
|
uprintf("3f\n"); |
|
|
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
gettimeofday(&horodatage_final, NULL); |
gettimeofday(&horodatage_final, NULL); |
Line 203 encart(struct_processus *s_etat_processu
|
Line 352 encart(struct_processus *s_etat_processu
|
temps_ecoule.tv_usec += 1000000; |
temps_ecoule.tv_usec += 1000000; |
temps_ecoule.tv_sec--; |
temps_ecoule.tv_sec--; |
} |
} |
} while (((temps_ecoule.tv_usec / ((double) 1000000)) |
} while (((((double) temps_ecoule.tv_usec) / ((double) 1000000)) |
+ temps_ecoule.tv_sec) < (duree / ((double) 1000000))); |
+ ((double) temps_ecoule.tv_sec)) |
|
< (((double) duree) / ((double) 1000000))); |
|
|
|
uprintf("4\n"); |
XtUnrealizeWidget(objet_principal); |
XtUnrealizeWidget(objet_principal); |
|
uprintf("5\n"); |
XmDestroyPixmap(XtScreen(form), pixmap_rpl); |
|
XmDestroyPixmap(XtScreen(form), pixmap_rpl_masque); |
|
|
|
XtDestroyWidget(pixmap); |
|
XtDestroyWidget(cadre); |
|
XtDestroyWidget(form); |
|
XtDestroyWidget(objet_principal); |
|
|
|
while(XtAppPending(app) == 0) |
while(XtAppPending(app) == 0) |
{ |
{ |
Line 228 encart(struct_processus *s_etat_processu
|
Line 372 encart(struct_processus *s_etat_processu
|
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
} |
} |
|
|
|
XtDestroyWidget(pixmap); |
|
XtDestroyWidget(cadre); |
|
XtDestroyWidget(form); |
|
XtDestroyWidget(objet_principal); |
|
|
|
uprintf("6\n"); |
|
XmDestroyPixmap(XtScreen(form), pixmap_rpl); |
|
XmDestroyPixmap(XtScreen(form), pixmap_rpl_masque); |
|
|
|
XCloseDisplay(display); |
|
XtAppSetWarningHandler(app, old_message_handler); |
XtDestroyApplicationContext(app); |
XtDestroyApplicationContext(app); |
|
uprintf("7\n"); |
} |
} |
# endif |
# endif |
|
|