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

.

Browse Source 
original commit: 5a7f1d770c173d1eb0545cd710fcca4246dab836
This commit is contained in:
Matthew Flatt 1998-08-15 22:34:46 +00:00
parent d6b37e8162
commit 4012de47d0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -217,8 +217,8 @@
[window->focus-object
(lambda (w)
(and w
(if (is-a? focus wx:editor-canvas%)
(let loop ([m (send focus get-edit)]
(if (is-a? w wx:editor-canvas%)
(let loop ([m (send w get-edit)]
[prev w])
(if m
(let ([snip (send m get-focus-snip)])
@ -2851,7 +2851,7 @@
(let ([m (make-object menu% "File" mb)])
(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-edit-operation-items m)))
(append-edit-operation-menu-items m)))
;; Just a few extra key bindings:
(let* ([k (send repl-buffer get-keymap)]