diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-22 23:55:01 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-23 16:24:42 +0200 |
| commit | 7e1fc68c8697935f4401cd4b0ac5484ba5245657 (patch) | |
| tree | f0c4127822754b12636b4cddeabe2d619774c44b | |
| parent | 92c712533d0f1270503f5db729c48e270bdb4b45 (diff) | |
| download | fpGUI-7e1fc68c8697935f4401cd4b0ac5484ba5245657.tar.xz | |
simple code formatting improvement
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 39e139d8..e7a74db5 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -362,19 +362,20 @@ type FMimeTypesArray: array of TAtom; xia_plain_text: TAtom; procedure InitializeMimeTypesToAtoms; - procedure Dragging(ev: TXEvent); - function IsDNDAware(win: TWindow): boolean; - procedure SendDNDLeave(ATarget: TWindow); - procedure SendDNDEnter(ATarget: TWindow); - procedure SendDNDPosition(ATarget: TWindow; x_root: cint; y_root: cint; AAction: TAtom; ATime: X.TTime); - procedure SendDNDDrop; - procedure HandleDNDStatus(ATarget: TWindow; AAccept: integer; ARect: TfpgRect; AAction: TAtom); - procedure HandleSelectionRequest(ev: TXEvent); + procedure Dragging(ev: TXEvent); + function IsDNDAware(win: TWindow): boolean; + procedure SendDNDLeave(ATarget: TWindow); + procedure SendDNDEnter(ATarget: TWindow); + procedure SendDNDPosition(ATarget: TWindow; x_root: cint; y_root: cint; AAction: TAtom; ATime: X.TTime); + procedure SendDNDDrop; + procedure HandleDNDStatus(ATarget: TWindow; AAccept: integer; ARect: TfpgRect; AAction: TAtom); + procedure HandleSelectionRequest(ev: TXEvent); protected FSource: TfpgX11Window; - function GetSource: TfpgX11Window; virtual; + function GetSource: TfpgX11Window; virtual; public - function Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction = daCopy): TfpgDropAction; override; + destructor Destroy; override; + function Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction = daCopy): TfpgDropAction; override; end; |