diff --git a/lcl/interfaces/cocoa/cocoaprivate.pp b/lcl/interfaces/cocoa/cocoaprivate.pp index 9cd1f4c5fe..598c3509e7 100644 --- a/lcl/interfaces/cocoa/cocoaprivate.pp +++ b/lcl/interfaces/cocoa/cocoaprivate.pp @@ -472,7 +472,6 @@ type procedure lclClearCallback; override; procedure resetCursorRects; override; function lclIsHandle: Boolean; override; - procedure addSubview(aView: NSView); override; end; TStatusItemData = record @@ -1592,20 +1591,6 @@ begin inherited resetCursorRects; end; -procedure TCocoaScrollView.addSubview(aView: NSView); -var - r: NSRect; -begin - if assigned(documentView) then - begin - r := NSUnionRect(aView.frame, NSRect(documentView.frame)); - documentView.setFrame(r); - documentView.addSubview(aView); - end - else - inherited addSubview(aView); -end; - { TCocoaScrollBar } procedure TCocoaScrollBar.actionScrolling(sender: NSObject);