From f251d2fdedc6cf286b42c4d4732d4c9fd9c54955 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 29 Mar 2008 18:03:23 +0000
Subject: [PATCH] * Patch from colin western to fix infinite loop

git-svn-id: trunk@10586 -
---
 packages/x11/src/xlib.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/x11/src/xlib.pp b/packages/x11/src/xlib.pp
index 90b4d5b44f..e7d078660a 100644
--- a/packages/x11/src/xlib.pp
+++ b/packages/x11/src/xlib.pp
@@ -2097,7 +2097,7 @@ end;
 function XInternAtom(para1:PDisplay; para2:Pchar; para3:Boolean):TAtom;
 
 begin
-  Result:=XInternAtom(para1,para2,para3);
+  Result:=XInternAtom(para1,para2,Ord(para3));
 end;
 
 function XInternAtoms(para1:PDisplay; para2:PPchar; para3:cint; para4:Boolean; para5:PAtom):TStatus;