diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-27 09:21:47 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-27 09:21:47 +0000 |
| commit | 6830f6782e4bb7f55104caedfd6d10b52398344c (patch) | |
| tree | ad65e63ce2554c23d5fac23577ca4373f71a8882 /src/corelib/x11/gfx_x11.pas | |
| parent | 9a7586791d8b3dad08c0ec46f272197263a4e170 (diff) | |
| download | fpGUI-6830f6782e4bb7f55104caedfd6d10b52398344c.tar.xz | |
Provisional changes for FPC 2.3.x support
Diffstat (limited to 'src/corelib/x11/gfx_x11.pas')
| -rw-r--r-- | src/corelib/x11/gfx_x11.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index 938a12cb..cb29ffaf 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -487,7 +487,7 @@ begin begin XGetWindowProperty(xapplication.Display, ev.xselection.requestor, ev.xselection._property, 0, 16000, - false, // delete + TBool(false), // delete 0, // type @actual, @format, @count, @remaining, @data); @@ -1323,7 +1323,7 @@ begin mask := 0; if FWindowType in [wtPopup] then begin - attr.Override_Redirect := longbool(1); + attr.Override_Redirect := TBool(True); mask := CWOverrideRedirect; end; @@ -1605,7 +1605,7 @@ end; procedure TfpgWindowImpl.CaptureMouse; begin XGrabPointer(xapplication.Display, FWinHandle, - False, + TBool(False), ButtonPressMask or ButtonReleaseMask or ButtonMotionMask or PointerMotionMask, GrabModeAsync, GrabModeAsync, |