Mac OS: scrolling panels need to clip to content in macOS 14 and later

Author: mflatt

gui-lib/mred/private/wx/cocoa/canvas.rkt

@@ -473,6 +473,10 @@
 
      (send dc start-backing-retained)
 
+     (when (and (version-14.0-or-later?)
+                (is-panel?))
+       (tellv content-cocoa setClipsToBounds: #:type _BOOL #true))
+
      (queue-paint)
 
      (define/public (is-panel?) #f)

gui-lib/mred/private/wx/cocoa/utils.rkt

@@ -36,6 +36,7 @@
               version-11.0-or-later?
               version-12.0-or-later?
               version-13.0-or-later?
+              version-14.0-or-later?
               version-26.0-or-later?)
  with-autorelease
  call-with-autorelease
@@ -117,5 +118,7 @@
   (NSAppKitVersionNumber . >= . 2100))
 (define (version-13.0-or-later?) ; Ventura
   (NSAppKitVersionNumber . >= . 2200))
+(define (version-14.0-or-later?) ; Sonoma
+  (NSAppKitVersionNumber . >= . 2400))
 (define (version-26.0-or-later?) ; Tahoe
   (NSAppKitVersionNumber . >= . 2600))