From c3460e4919922f2740baa0d8d3039cfe68b65925 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 11 Sep 2000 03:36:18 +0000
Subject: [PATCH] ...

original commit: 96a70cd1626c9a90386940dd46327d56fec9f8c6
---
 collects/framework/gen-standard-menus.ss | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/collects/framework/gen-standard-menus.ss b/collects/framework/gen-standard-menus.ss
index d5a8ea2a..166e00b9 100755
--- a/collects/framework/gen-standard-menus.ss
+++ b/collects/framework/gen-standard-menus.ss
@@ -163,6 +163,27 @@ string=? ; exec mred -qr $0
 		   (super-on-subwindow-char receiver event)
                    (on-traverse-char event)))])
           
+;         need to save old keybindings...
+;	  (rename [super-on-close on-close])
+;	  (private
+;	    [remove-prefs-callback
+;	     (preferences:add-callback
+;	      'framework:menu-bindings
+;	      (lambda (p v)
+;		(let ([mb (get-menu-bar)])
+;		  (let loop ([menu (get-menu-bar)])
+;		    (cond
+;		     [(is-a? menu menu-item-container<%>)
+;		      (for-each loop (send menu get-items))]
+;		     [(is-a? menu selectable-menu-item<%>)
+;		      (void)])))))])
+
+;	  (override
+;	   [on-close
+;	    (lambda ()
+;	      (remove-prefs-callback)
+;	      (super-on-close))])
+
 	  (inherit get-menu-bar can-close? on-close show get-edit-target-object)
 	  (sequence (apply super-init args))
 	  ,@(append