diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-28 00:40:03 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-28 00:40:03 +0200 |
| commit | 5dd93dc1cbc3551e631fcb8510a43f5429cecb31 (patch) | |
| tree | a84d12c0bc2b329b316daff2e6c08113f9db7b51 /src/corelib/x11 | |
| parent | 1313284b26d8f651cb0e7bde11983ceefd1f1879 (diff) | |
| download | fpGUI-5dd93dc1cbc3551e631fcb8510a43f5429cecb31.tar.xz | |
More code comments and DNDDebug entries.
Diffstat (limited to 'src/corelib/x11')
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 55530285..9be3276f 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -3415,7 +3415,7 @@ begin else begin FDropAccepted := False; - FAcceptedAction := X.None; + FAcceptedAction := X.None; { AAction should equal None, but lets just make sure } FSource.MouseCursor := mcNoDrop; end; end; @@ -3467,6 +3467,9 @@ end; destructor TfpgX11Drag.Destroy; begin + {$IFDEF DNDDEBUG} + writeln('TfpgX11Drag.Destroy '); + {$ENDIF} FSource.MouseCursor := mcDefault; XDeleteProperty(xapplication.Display, FSource.WinHandle, xapplication.XdndAware); XDeleteProperty(xapplication.Display, FSource.WinHandle, xapplication.XdndTypeList); |