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

fix shortcut prefix test

Browse Source 
svn: r3737

original commit: fb2b7fbf0537699cb46711ff27662d98b90807a0
This commit is contained in:
Matthew Flatt 2006-07-17 02:45:29 +00:00
parent 3528b37c42
commit 1ea9d0b129
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/tests/mred/windowing.ss
View File

@ -396,15 +396,15 @@
(st #f i get-shortcut)
(stv i set-shortcut c))
(st 'meta i get-x-shortcut-prefix)
(let ([p (send i get-x-shortcut-prefix)])
(stv i set-x-shortcut-prefix 'alt)
(st 'alt i get-x-shortcut-prefix)
(stv i set-x-shortcut-prefix 'ctl)
(st 'ctl i get-x-shortcut-prefix)
(stv i set-x-shortcut-prefix 'ctl-m)
(st 'ctl-m i get-x-shortcut-prefix)
(stv i set-x-shortcut-prefix 'alt)))])
(st (get-default-shortcut-prefix) i get-shortcut-prefix)
(let ([p (send i get-shortcut-prefix)])
(stv i set-shortcut-prefix '(shift))
(st '(shift) i get-shortcut-prefix)
(stv i set-shortcut-prefix '(ctl))
(st '(ctl) i get-shortcut-prefix)
(stv i set-shortcut-prefix '(shift ctl))
(st '(shift ctl) i get-shortcut-prefix)
(stv i set-shortcut-prefix p)))])
(st (list i1 i2 i3) m get-items)
(st "&Plain" i1 get-label)