From 0a1811126af117b4a5bfa3732b864b34f4bfb8ba Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Jan 2013 12:31:24 -0700
Subject: [PATCH] fix `expt' on small negative number and large positive odd

The pow() function apparently gets it wrong on some platforms.

Closes PR 13391

original commit: 07d5a9e3857f9f4f243b3f4891b1ff1b0d087698
---
 collects/mred/private/wx/gtk/frame.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt
index f39ce652..d5191f5e 100644
--- a/collects/mred/private/wx/gtk/frame.rkt
+++ b/collects/mred/private/wx/gtk/frame.rkt
@@ -406,6 +406,7 @@
 
     (define focus-here? #f)
     (define/override (on-focus? on?)
+      (unless on? (on-menu-click))
       (on-focus-child on?)
       (cond
        [on?