suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 2bc65b55c76d1f163068515f005b78d80f0c3964
This commit is contained in:
Matthew Flatt 1998-11-09 16:51:29 +00:00
parent 5b2b120486
commit 9ea389a522
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mred/wrap/mred.ss
View File

@ -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)))