.
original commit: 2bc65b55c76d1f163068515f005b78d80f0c3964
This commit is contained in:
parent
5b2b120486
commit
9ea389a522
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user