From fab0116dbd3b446ae3f09456a784a764b2a47594 Mon Sep 17 00:00:00 2001 From: dmitry Date: Tue, 4 Dec 2018 04:23:53 +0000 Subject: [PATCH] cocoa: update OpenGL component to use LCLObjCBoolean type (rel #34609) git-svn-id: trunk@59726 - --- components/opengl/glcocoanscontext.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/components/opengl/glcocoanscontext.pas b/components/opengl/glcocoanscontext.pas index 2dcb53c4b3..778943e309 100644 --- a/components/opengl/glcocoanscontext.pas +++ b/components/opengl/glcocoanscontext.pas @@ -71,9 +71,9 @@ type //nsGL: NSOpenGLContext; callback: TLCLCommonCallback; backingScaleFactor: Single; - function acceptsFirstResponder: Boolean; override; - function becomeFirstResponder: Boolean; override; - function resignFirstResponder: Boolean; override; + function acceptsFirstResponder: LCLObjCBoolean; override; + function becomeFirstResponder: LCLObjCBoolean; override; + function resignFirstResponder: LCLObjCBoolean; override; procedure drawRect(dirtyRect: NSRect); override; procedure dealloc; override; function lclGetCallback: ICommonCallback; override; @@ -391,18 +391,18 @@ end; *) { TCocoaOpenGLView } -function TCocoaOpenGLView.acceptsFirstResponder: Boolean; +function TCocoaOpenGLView.acceptsFirstResponder: LCLObjCBoolean; begin Result := True; end; -function TCocoaOpenGLView.becomeFirstResponder: Boolean; +function TCocoaOpenGLView.becomeFirstResponder: LCLObjCBoolean; begin Result:=inherited becomeFirstResponder; callback.BecomeFirstResponder; end; -function TCocoaOpenGLView.resignFirstResponder: Boolean; +function TCocoaOpenGLView.resignFirstResponder: LCLObjCBoolean; begin Result:=inherited resignFirstResponder; callback.ResignFirstResponder;