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

.

Browse Source 
original commit: 78a04011efa5d6642c01762b35ce185321c9f9b1
This commit is contained in:
Matthew Flatt 2001-10-10 22:27:13 +00:00
parent de682e623f
commit 8407848bf1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -211,7 +211,8 @@
(let ([x (send e get-x)]
[y (send e get-y)]
[m (if (or (null? last-m)
(send e button-down? 'left))
(send e button-down? 'left)
(send e button-down? 'middle))
(let ([m (make-object popup-menu% "T&itle"
(lambda (m e)
(unless (is-a? m popup-menu%)
@ -245,7 +246,10 @@
m
void)
(let mloop ([m m][sub-at-50? #t])
(let ([sm (make-object menu% "Too Tall" m)])
(let ([sm (if (and sub-at-50?
(send e button-down? 'middle))
m
(make-object menu% "Too Tall" m))])
(let loop ([n 1])
(unless (= n 101)
(if (and sub-at-50? (= n 50))