paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 12:09:32 +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

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

@ -2339,7 +2339,13 @@ begin
dec(i);
end;
{$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}
if i<0 then exit;
// free old data
@ -2348,13 +2354,16 @@ begin
c^.Data:=SelectionData^;
// copy the raw data to an internal buffer (the gtk buffer will be destroyed
// right after this event)
{$IFDEF DEBUG_CLIPBOARD}
writeln('[ClipboardSelectionReceivedHandler] B DataLen=',c^.Data.Length);
{$ENDIF}
if (c^.Data.Data<>nil)
and (c^.Data.Length>0) then begin
GetMem(TempBuf,c^.Data.Length);
Move(c^.Data.Data^,TempBuf^,c^.Data.Length);
c^.Data.Data:=TempBuf;
{$IFDEF DEBUG_CLIPBOARD}
writeln('[ClipboardSelectionReceivedHandler] ',ord(PChar(c^.Data.Data)[0]));
writeln('[ClipboardSelectionReceivedHandler] C FirstCharacter=',ord(PChar(c^.Data.Data)[0]));
{$ENDIF}
end else
c^.Data.Data:=nil;
@ -2363,9 +2372,9 @@ end;
{------------------------------------------------------------------------------
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
application
application.
------------------------------------------------------------------------------}
procedure ClipboardSelectionRequestHandler(TargetWidget: PGtkWidget;
SelectionData: PGtkSelectionData; Info: cardinal; TimeID: cardinal;
@ -2530,6 +2539,9 @@ end;
{ =============================================================================
$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
freeing stopped external tools