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

.

Browse Source 
original commit: 0c1c37ec58d31b6e4dd60b1152435d7baf0e9a27
This commit is contained in:
Matthew Flatt 2004-09-15 15:28:04 +00:00
parent cb4d3444cd
commit 8c2fae7754
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/mred.ss
View File

@ -408,7 +408,6 @@
;; ------------- Mixins for common functionality --------------
(define wx-make-window%
(lambda (% top?)
(class100 % args
@ -5688,7 +5687,7 @@
(values new-label keymap)))])
(private
[do-set-label (entry-point
(lambda (l)
(lambda (l)
(check-label-string '(method labelled-menu-item<%> set-label) l)
(let-values ([(new-label keymap) (calc-labels l)])
(set! label (string->immutable-string l))
@ -5703,7 +5702,9 @@
(public
[set-shortcut (lambda (c)
(check-char/false '(method selectable-menu-item<%> set-shortcut) c)
(set! shortcut c) (do-set-label (super-get-label)))]
(unless (equal? shortcut c)
(set! shortcut c)
(do-set-label (super-get-label))))]
[get-shortcut (lambda () shortcut)]
[get-x-shortcut-prefix (lambda () x-prefix)]
[set-x-shortcut-prefix (lambda (p)