paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 11:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed clipboard waiting and kwrite targets

Browse Source 
git-svn-id: trunk@2321 -
This commit is contained in:
mattias 2002-08-17 23:41:15 +00:00
parent 3b454a34f1
commit 468d8abc3c
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -2339,7 +2339,13 @@ begin
dec(i); dec(i);
end; end;
{$IFDEF DEBUG_CLIPBOARD} {$IFDEF DEBUG_CLIPBOARD}
writeln('[ClipboardSelectionReceivedHandler] TimeID=',TimeID,' ',i>=0); writeln('[ClipboardSelectionReceivedHandler] A TimeID=',TimeID,' RequestIndex=',i,
' selection=',SelectionData^.selection,
' target=',SelectionData^.Target,
' theType=',SelectionData^.theType,
' format=',SelectionData^.format,
' len=',SelectionData^.length
);
{$ENDIF} {$ENDIF}
if i<0 then exit; if i<0 then exit;
// free old data // free old data
@ -2348,13 +2354,16 @@ begin
c^.Data:=SelectionData^; c^.Data:=SelectionData^;
// copy the raw data to an internal buffer (the gtk buffer will be destroyed // copy the raw data to an internal buffer (the gtk buffer will be destroyed
// right after this event) // right after this event)
if (c^.Data.Data<>nil) {$IFDEF DEBUG_CLIPBOARD}
writeln('[ClipboardSelectionReceivedHandler] B DataLen=',c^.Data.Length);
{$ENDIF}
if (c^.Data.Data<>nil)
and (c^.Data.Length>0) then begin and (c^.Data.Length>0) then begin
GetMem(TempBuf,c^.Data.Length); GetMem(TempBuf,c^.Data.Length);
Move(c^.Data.Data^,TempBuf^,c^.Data.Length); Move(c^.Data.Data^,TempBuf^,c^.Data.Length);
c^.Data.Data:=TempBuf; c^.Data.Data:=TempBuf;
{$IFDEF DEBUG_CLIPBOARD} {$IFDEF DEBUG_CLIPBOARD}
writeln('[ClipboardSelectionReceivedHandler] ',ord(PChar(c^.Data.Data)[0])); writeln('[ClipboardSelectionReceivedHandler] C FirstCharacter=',ord(PChar(c^.Data.Data)[0]));
{$ENDIF} {$ENDIF}
end else end else
c^.Data.Data:=nil; c^.Data.Data:=nil;
@ -2363,9 +2372,9 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
ClipboardSelectionRequestHandler ClipboardSelectionRequestHandler
This signal is emitted if someone requests the clipboard data This signal is emitted if someone requests the clipboard data.
Since the lcl clipboard caches all requests this will typically be another Since the lcl clipboard caches all requests this will typically be another
application application.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure ClipboardSelectionRequestHandler(TargetWidget: PGtkWidget; procedure ClipboardSelectionRequestHandler(TargetWidget: PGtkWidget;
SelectionData: PGtkSelectionData; Info: cardinal; TimeID: cardinal; SelectionData: PGtkSelectionData; Info: cardinal; TimeID: cardinal;
@ -2530,6 +2539,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.163 2003/01/24 11:58:00 mattias
fixed clipboard waiting and kwrite targets
Revision 1.162 2003/01/06 10:51:41 mattias Revision 1.162 2003/01/06 10:51:41 mattias
freeing stopped external tools freeing stopped external tools