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

.

Browse Source 
original commit: d72ba1012b960663a70a9cbd6de58ac07880b621
This commit is contained in:
Matthew Flatt 1999-07-12 13:51:55 +00:00
parent 758a31663b
commit d9e2270ba0
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -723,7 +723,13 @@
(st 3 l get-number)
(st "ONe" l get-string 0)
(st "TW&o" l get-string 1)
(st "THRee" l get-string 2))
(st "THRee" l get-string 2)
(stv l set-data 0 'my-example-data)
(stv l set-data 2 'my-other-data)
(st 'my-example-data l get-data 0)
(st #f l get-data 1)
(st 'my-other-data l get-data 2))
'done-list)])

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

@ -3715,7 +3715,7 @@
(if on?
(when (memq i disabled)
(set! disabled (remq i disabled))
(send keymap add-chained-keymap (send (mred->wx i) get-keymap) #t)
(send keymap chain-to-keymap (send (mred->wx i) get-keymap) #t)
(unless disabled?
(super-enable-top p #t)))
(unless (memq i disabled)