diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-03-09 19:25:13 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-03-09 19:25:13 +0000 |
| commit | e2895e6527939b6770180e5f9644fa71fa878058 (patch) | |
| tree | 50754ad95b87acfeafb8e3e47b5e1a28411fa50d | |
| parent | fca9ec960fff4ce351a11a80f005372562004735 (diff) | |
| download | fpGUI-e2895e6527939b6770180e5f9644fa71fa878058.tar.xz | |
Replace deprecated functions with alternatives
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 381b81a3..ff6e7272 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -1071,19 +1071,19 @@ begin {$IFDEF DNDDEBUG} writeln(Format(' ver(%d) check-XdndTypeList(%s) data=%xh,%d,%d,%d,%d', [ FDNDVersion, - BoolToStr(fpgIsBitSet(ev.xclient.data.l[1], 0), True), + BoolToStr(fpgGetBit(ev.xclient.data.l[1], 0), True), ev.xclient.data.l[0], ev.xclient.data.l[1], ev.xclient.data.l[2], ev.xclient.data.l[3], ev.xclient.data.l[4] ])); writeln(Format(' * We will be using XDND v%d protocol *', [FDNDVersion])); - if fpgIsBitSet(ev.xclient.data.l[1], 0) then + if fpgGetBit(ev.xclient.data.l[1], 0) then writeln(' ** We need to fetch XdndTypeList (>3 types)'); {$ENDIF} // read typelist - if fpgIsBitSet(ev.xclient.data.l[1], 0) then + if fpgGetBit(ev.xclient.data.l[1], 0) then begin // now fetch the data XGetWindowProperty(Display, FSrcWinHandle, |