remove non-working get-font' method of control<%>'

Closes PR 9938

collects/mred/private/mritem.rkt

@@ -39,8 +39,7 @@
 
   (define control<%>
     (interface (subwindow<%>)
-      command
+      command))
-      get-font))
 
   (define-local-member-name hidden-child? label-checker)
 
@@ -89,8 +88,7 @@
       (public
 	[hidden-child? (lambda () #f)] ; module-local method
 	[label-checker  (lambda () check-label-string/false)] ; module-local method
-	[command (lambda (e) (void (callback this e)))] ; no entry/exit needed
+	[command (lambda (e) (void (callback this e)))]) ; no entry/exit needed
-	[get-font (lambda (e) (send wx get-font))]) ; no entry/exit needed
       (private-field
        [wx #f])
       (sequence
@@ -121,8 +119,7 @@
       (sequence ; abuse of `sequence'!
         (inherit/super [super-min-width min-width] 
                        [super-min-height min-height]
-                       [super-get-label get-label]
+                       [super-get-label get-label]))
-                       [super-get-font get-font]))
       (private-field
        [do-auto-resize? auto-resize]
        [orig-font (or (no-val->#f font)

collects/scribblings/gui/control-intf.scrbl

@@ -25,13 +25,5 @@ The @scheme[control<%>] interface is implemented by the built-in
 Calls the control's callback function, passing on the given
  @scheme[control-event%] object.
 
-}
-
-@defmethod[(get-font)
-           (is-a?/c font%)]{
-
-Returns the font used for the control, which is optionally supplied
- when a control is created.
-
 }}