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

.

Browse Source 
original commit: b4ddabcd5403090c1505a7ae7637d528dfcc982d
This commit is contained in:
Matthew Flatt 1999-07-21 23:57:32 +00:00
parent 4214a99403
commit 5efb890e32
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3653,7 +3653,7 @@
(define wx-menu-bar% (define wx-menu-bar%
(class* wx:menu-bar% (wx<%>) (mred) (class* wx:menu-bar% (wx<%>) (mred)
(inherit delete) (inherit delete select-system)
(rename [super-append append] (rename [super-append append]
[super-enable-top enable-top]) [super-enable-top enable-top])
(private (private
@ -3671,6 +3671,10 @@
(send event get-meta-down) (send event get-meta-down)
(char? (send event get-key-code)) (char? (send event get-key-code))
(let ([c (send event get-key-code)]) (let ([c (send event get-key-code)])
(or (and (char=? #\space c)
(eq? 'windows (system-type))
(select-system)
#t)
(and (or (char-alphabetic? c) (and (or (char-alphabetic? c)
(char-numeric? c)) (char-numeric? c))
(let ([re (key-regexp c)]) (let ([re (key-regexp c)])
@ -3684,7 +3688,7 @@
(send menu select) (send menu select)
#t) #t)
#f))) #f)))
items)))))))))] items))))))))))]
[get-mred (lambda () mred)] [get-mred (lambda () mred)]
[get-items (lambda () items)] [get-items (lambda () items)]
[append-item (lambda (item menu title) [append-item (lambda (item menu title)