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

.

Browse Source 
original commit: c1856294f50b40050afd14fbae1b7af3f12f2662
This commit is contained in:
Matthew Flatt 2000-03-02 21:32:25 +00:00
parent eec992cba0
commit 42f63a402b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mred/item.ss
View File

@ -173,7 +173,15 @@
[y (send e get-y)]
[m (if (or (null? last-m)
(send e button-down? 'left))
(let ([m (make-object popup-menu% "T&itle")]
(let ([m (make-object popup-menu% "T&itle"
(lambda (m e)
(unless (is-a? m popup-menu%)
(error "bad menu object"))
(unless (and (is-a? e control-event%)
(memq (send e get-event-type)
'(menu-popdown menu-popdown-none)))
(error "bad event object"))
(printf "popdown ok~n")))]
[make-callback
(let ([id 0])
(lambda ()