paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 21:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed {$IFDEF USE_SYNCHRONIZE}

Browse Source 
git-svn-id: trunk@8055 -
This commit is contained in:
vincents 2005-11-04 14:15:32 +00:00
parent 4433e3e854
commit 98b55d7333
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkproc.pp
View File

@ -970,8 +970,7 @@ end;
{$I gtkproc.inc}
{$I gtkcallback.inc}
{$ifdef USE_SYNCHRONIZE}
// TThread.Synchronize support
var
threadsync_pipein, threadsync_pipeout: cint;
threadsync_giochannel: pgiochannel;
@ -1000,14 +999,10 @@ begin
Result := true;
end;
{$endif}
procedure InitGTKProc;
var
lgs: TLazGtkStyle;
{$ifdef USE_SYNCHRONIZE}
needInstancePtr: TSynchronizeGlue;
{$endif}
begin
FillChar(MCharToVK, SizeOf(MCharToVK), $FF);
@ -1024,22 +1019,18 @@ begin
for lgs:=Low(TLazGtkStyle) to High(TLazGtkStyle) do
StandardStyles[lgs]:=nil;
{$ifdef USE_SYNCHRONIZE}
{ TThread.Synchronize ``glue'' }
WakeMainThread := @needInstancePtr.PrepareSynchronize;
assignpipe(threadsync_pipein, threadsync_pipeout);
threadsync_giochannel := g_io_channel_unix_new(threadsync_pipein);
g_io_add_watch(threadsync_giochannel, G_IO_IN, @threadsync_iocallback, nil);
{$endif}
end;
procedure DoneGTKProc;
begin
DoneKeyboardTables;
{$ifdef USE_SYNCHRONIZE}
WakeMainThread := nil;
{$endif}
end;
{$IFDEF GTK1}