From 9ea389a522e66176c9e8bc63ec7d80febcf640dd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Nov 1998 16:51:29 +0000 Subject: [PATCH] . original commit: 2bc65b55c76d1f163068515f005b78d80f0c3964 --- src/mred/wrap/mred.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index ee46436b..13f3f92c 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -3881,6 +3881,7 @@ (let ([mb (make-object menu-bar% frame)]) (let ([m (make-object menu% "File" mb)]) + (make-object menu-item% "Load File..." m (lambda (i e) (let ([f (get-file)]) (and f (evaluate (format "(load ~s)" f)))))) (make-object menu-item% "Quit" m (lambda (i e) (send frame on-close) (send frame show #f)) #\q)) (let ([m (make-object menu% "Edit" mb)]) (append-editor-operation-menu-items m)))