Andrew Haines wrote:
This link might be helpful as well ;)
http://cvs.sourceforge.net/viewcvs.py/lazarus-ccr/gtktrayicon/
I added gtktrayicon.pas to my project and tryed to compile it.
I get an error message (actually I get many errors, but this I could not
fix):
procedure TGtkTrayIcon.SetEmbedded;
var
old_error: TXErrorHandler;
buf: array [0..32] of char;
selection_atom : TAtom;
begin
old_error := XSetErrorHandler(TempX11ErrorHandler); // error here
Error message: "gtktrayicon.pas(302,33) Error: Wrong number of
parameters specified"
but I don't know what the error is. Here is how XSetErrorHandler is
declared:
type
TXErrorHandler = function (para1:PDisplay;
para2:PXErrorEvent):cint;cdecl;
function
XSetErrorHandler(para1:TXErrorHandler):TXErrorHandler;cdecl;external libX11;
And how TempX11ErrorHandler:
// Temp ErrorHandler
function TempX11ErrorHandler(Display:PDisplay; ErrorEv:PXErrorEvent):
longint;cdecl;
begin
//WriteLn('Error: ' + IntToStr(ErrorEv^.error_code));
end;
For me it seams like everything is fine ... no idea where the error is ...
I'm compiling with the subversion Lazarus and fpc 2.0.2
Felipe
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
