From 5467f89a23e3a186cc180703db68b9be720440a2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Jan 2011 05:54:03 -0700 Subject: [PATCH] remove non-working `get-font' method of `control<%>' Closes PR 9938 --- collects/mred/private/mritem.rkt | 9 +++------ collects/scribblings/gui/control-intf.scrbl | 8 -------- 2 files changed, 3 insertions(+), 14 deletions(-) diff --git a/collects/mred/private/mritem.rkt b/collects/mred/private/mritem.rkt index 36065028a2..e8b152f1e8 100644 --- a/collects/mred/private/mritem.rkt +++ b/collects/mred/private/mritem.rkt @@ -39,8 +39,7 @@ (define control<%> (interface (subwindow<%>) - command - get-font)) + command)) (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 - [get-font (lambda (e) (send wx get-font))]) ; no entry/exit needed + [command (lambda (e) (void (callback this e)))]) ; 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-font get-font])) + [super-get-label get-label])) (private-field [do-auto-resize? auto-resize] [orig-font (or (no-val->#f font) diff --git a/collects/scribblings/gui/control-intf.scrbl b/collects/scribblings/gui/control-intf.scrbl index 51c55a1bb5..ccd2b8073f 100644 --- a/collects/scribblings/gui/control-intf.scrbl +++ b/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. - }}