From 118e692b3f4cc5193e075db31c2c515ccf79f7e7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 18 May 2001 19:10:50 +0000
Subject: [PATCH] no message

original commit: e17e9e764dc5804a0b48e2ab2aff934fd3928fdd
---
 collects/framework/private/frame.ss | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index ca018a31..4df28835 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -732,16 +732,20 @@
                                 "Error Reverting"
                                 (format "could not read ~a" filename)))))))
                  #t))]
+            [file-menu:create-revert? (lambda () #t)]
             [file-menu:save-callback (lambda (item control)
                               (send (get-editor) save-file)
                               #t)]
+            [file-menu:create-save? (lambda () #t)]
             [file-menu:save-as-callback (lambda (item control) (save-as) #t)]
+            [file-menu:create-save-as? (lambda () #t)]
             [file-menu:print-callback (lambda (item control)
                                         (send (get-editor) print
                                               #t
                                               #t
                                               (preferences:get 'framework:print-output-mode))
-                                        #t)])
+                                        #t)]
+            [file-menu:create-print? (lambda () #t)])
           
           (private
             [edit-menu:do (lambda (const)
@@ -807,7 +811,8 @@
              (lambda (menu evt) 
                (message-box (application:current-app-name)
                             (format "Welcome to ~a" (application:current-app-name))))]
-            [help-menu:about-string (lambda () (application:current-app-name))])
+            [help-menu:about-string (lambda () (application:current-app-name))]
+            [help-menu:create-about? (lambda () #t)])
           
           (sequence
             (apply super-init
@@ -1250,10 +1255,13 @@
             [super-root 'unitiaialized-super-root])
           (override
             [edit-menu:find-callback (lambda (menu evt) (move-to-search-or-search) #t)]
+            [edit-menu:create-find? (lambda () #t)]
             [edit-menu:find-again-callback (lambda (menu evt) (search-again) #t)]
+            [edit-menu:create-find-again? (lambda () #t)]
             [edit-menu:replace-and-find-again-callback (lambda (menu evt) (replace&search) #t)]
             [edit-menu:replace-and-find-again-on-demand
-             (lambda (item) (send item enable (can-replace?)))])
+             (lambda (item) (send item enable (can-replace?)))]
+            [edit-menu:create-replace-and-find-again? (lambda () #t)])
           (override
             [make-root-area-container
              (lambda (% parent)