diff options
Diffstat (limited to 'gfx/x11')
| -rw-r--r-- | gfx/x11/gfx_x11.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gfx/x11/gfx_x11.pas b/gfx/x11/gfx_x11.pas index a6f46d40..282fbdb1 100644 --- a/gfx/x11/gfx_x11.pas +++ b/gfx/x11/gfx_x11.pas @@ -224,6 +224,7 @@ type TX11Window = class(TFCustomWindow) private + FHandle: PtrUInt; FComposeStatus: TXComposeStatus; FComposeBuffer: String[32]; FCurCursorHandle: X.TCursor; @@ -240,6 +241,7 @@ type function KeySymToKeycode(KeySym: TKeySym): Word; procedure SetTitle(const ATitle: String); override; procedure DoSetCursor; override; + function GetHandle: PtrUInt; override; procedure UpdateMotifWMHints; public constructor Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); override; @@ -1734,6 +1736,11 @@ begin XDefineCursor(GFApplication.Handle, Handle, FCurCursorHandle); end; +function TX11Window.GetHandle: PtrUInt; +begin + Result := FHandle; +end; + function TX11Window.ConvertShiftState(AState: Cardinal): TShiftState; begin Result := []; |