From 5b0c88e262642f787e96588599db19b618c58250 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 29 Oct 2010 12:11:37 +0200 Subject: Updated X11 code due to property changes in TfpgMimeDataItem class. --- src/corelib/x11/fpg_x11.pas | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/corelib/x11') diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 4f9c4ce8..e5f545e1 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -3217,11 +3217,11 @@ begin { free old array } SetLength(FMimeTypesArray, 0); { set size of new array. Extra element for the terminating x.None value } - SetLength(FMimeTypesArray, FMimedata.FormatCount+1); + SetLength(FMimeTypesArray, FMimedata.Count+1); sl := FMimeData.Formats as TStringList; try - for i := 0 to FMimeData.FormatCount-1 do + for i := 0 to FMimeData.Count-1 do begin s := PChar(sl[i]); a := XInternAtom(xapplication.Display, s, TBool(False)); @@ -3337,7 +3337,7 @@ begin xev.xclient.data.l[0] := FSource.WinHandle; - n := FMimeData.FormatCount; + n := FMimeData.Count; if n > 3 then i := 1 @@ -3489,8 +3489,7 @@ begin inherited Destroy; end; -function TfpgX11Drag.Execute(const ADropActions: TfpgDropActions; - const ADefaultAction: TfpgDropAction): TfpgDropAction; +function TfpgX11Drag.Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction): TfpgDropAction; var win: TWindow; begin @@ -3509,7 +3508,7 @@ begin raise Exception.Create('fpGUI/X11: Application failed to aquire selection owner status'); InitializeMimeTypesToAtoms; - if FMimeData.FormatCount > 3 then + if FMimeData.Count > 3 then SetTypeListProperty; end; end; -- cgit v1.2.3-70-g09d2