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

MG: deactivated clipboard setting target list for win32

Browse Source 
git-svn-id: trunk@621 -
This commit is contained in:
lazarus 2002-01-24 15:40:59 +00:00
parent 9c03030dd4
commit 096970d6f2
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3675,6 +3675,7 @@ writeln(' WriteTargetLists WWW END');
end;
{$ENDIF}
{$IFNDEF WIN32}
procedure ClearTargetLists(Widget: PGtkWidget);
// MG: Reading in gtk internas is dirty, but there seems to be no other way
// to clear the old target lists
@ -3700,6 +3701,7 @@ writeln(' WriteTargetLists WWW END');
writeln(' ClearTargetLists WWW END');
{$ENDIF}
end;
{$ENDIF}
var c: TClipboardType;
begin
@ -3711,7 +3713,9 @@ writeln('[TgtkObject.SetClipboardWidget] ',ClipboardWidget<>nil,' -> ',TargetWid
{$IFDEF DEBUG_CLIPBOARD}
WriteTargetLists(ClipboardWidget);
{$ENDIF}
{$IFNDEF WIN32}
ClearTargetLists(ClipboardWidget);
{$ENDIF}
{$IFDEF DEBUG_CLIPBOARD}
WriteTargetLists(ClipboardWidget);
{$ENDIF}
@ -3729,8 +3733,10 @@ writeln('[TgtkObject.SetClipboardWidget] ',ClipboardWidget<>nil,' -> ',TargetWid
// add all supported targets for all clipboard types
for c:=Low(TClipboardType) to High(TClipboardType) do begin
if (ClipboardTargetEntries[c]<>nil) then begin
{$IFNDEF WIN32}
gtk_selection_add_targets(ClipboardWidget,ClipboardTypeAtoms[c],
ClipboardTargetEntries[c],ClipboardTargetEntryCnt[c]);
{$ENDIF}
end;
end;
end;
@ -3744,6 +3750,9 @@ end;
{ =============================================================================
$Log$
Revision 1.102 2002/01/24 15:40:59 lazarus
MG: deactivated clipboard setting target list for win32
Revision 1.101 2002/01/08 16:02:45 lazarus
Minor changes to TListView.
Added TImageList to the IDE

3
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4337,6 +4337,9 @@ end;
{ =============================================================================
$Log$
Revision 1.59 2002/01/24 15:40:59 lazarus
MG: deactivated clipboard setting target list for win32
Revision 1.58 2002/01/21 14:17:47 lazarus
MG: added find-block-start and renamed find-block-other-end