.

original commit: b92792f3e6d182ff8b5c058aee02d96f47e4019f

collects/mred/mred.ss

@@ -4837,7 +4837,8 @@
     min-client-width min-client-height
     on-char on-event on-paint on-scroll on-tab-in
     warp-pointer get-dc
-    set-canvas-background get-canvas-background))
+    set-canvas-background get-canvas-background
+    set-resize-corner))
 
 (define-keywords canvas%-keywords
   window%-keywords
@@ -4875,7 +4876,10 @@
       [get-canvas-background
        (entry-point
 	(lambda ()
-	  (send wx get-canvas-background)))])
+	  (send wx get-canvas-background)))]
+
+      [set-resize-corner (lambda (on?)
+			   (send wx set-resize-corner))])
     (private-field
       [wx #f])
     (sequence

collects/mred/private/kernel.ss

@@ -356,6 +356,7 @@
     scroll
     warp-pointer
     view-start
+    set-resize-corner
     show-scrollbars
     set-scrollbars
     get-virtual-size