--- rpl/src/encart.c	2012/10/01 11:05:00	1.37
+++ rpl/src/encart.c	2014/01/26 18:21:29	1.47
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.17
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -30,7 +30,7 @@
 
 
 void
-encart(struct_processus *s_etat_processus, unsigned long duree)
+encart(struct_processus *s_etat_processus, integer8 duree)
 {
 #	ifdef MOTIF_SUPPORT
 #	include "rpl.xpm"
@@ -61,8 +61,8 @@ encart(struct_processus *s_etat_processu
 	struct timeval		horodatage_initial;
 	struct timeval		horodatage_final;
 
-	unsigned long		decor;
-	unsigned long		fonctions;
+	long				decor;
+	long				fonctions;
 
 	Widget				cadre;
 	Widget				form;
@@ -164,8 +164,8 @@ encart(struct_processus *s_etat_processu
 #else
 		sscanf(rpl_xpm[0], "%d %d", &largeur_xpm, &hauteur_xpm);
 
-		largeur_popup = largeur_xpm + 28;
-		hauteur_popup = hauteur_xpm + 28;
+		largeur_popup = (Position) (largeur_xpm + 28);
+		hauteur_popup = (Position) (hauteur_xpm + 28);
 
 		XtVaSetValues(objet_principal,
 				XmNx, (largeur - largeur_popup) / 2,
@@ -203,8 +203,9 @@ encart(struct_processus *s_etat_processu
 				temps_ecoule.tv_usec += 1000000;
 				temps_ecoule.tv_sec--;
 			}
-		} while (((temps_ecoule.tv_usec / ((double) 1000000))
-				+ temps_ecoule.tv_sec) < (duree / ((double) 1000000)));
+		} while (((((double) temps_ecoule.tv_usec) / ((double) 1000000))
+				+ ((double) temps_ecoule.tv_sec))
+				< (((double) duree) / ((double) 1000000)));
 
 		XtUnrealizeWidget(objet_principal);