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

test pre-on-char

Browse Source 
original commit: e2b758a66d9182712c31ea8357f57814e04f2490
This commit is contained in:
Matthew Flatt 1998-04-08 00:04:29 +00:00
parent e313adcb74
commit 749ae00204
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,6 +59,22 @@
(start 1000 #t)))])))
start 1000 #t))
(define (add-pre-note frame panel)
(define m (make-object mred:message% panel "pre: ??????????????????????????????"))
(define c (make-object mred:check-box% panel void "Drop Events"))
(lambda (win e)
(send m set-label
(format "pre: ~s ~s ~s"
(if (is-a? e wx:mouse-event%)
"mouse"
"key")
win
(if (eq? win (send e get-event-object))
""
"BAD")))
(and (not (eq? win c))
(send c get-value))))
(define OTHER-LABEL "XXXXXXXXXXXXXXXXXXXXXX")
(define-values (icons-path local-path)
@ -251,7 +267,13 @@
cp))
(define (big-frame h-radio? v-label? null-label? stretchy? special-font?)
(define f (make-object mred:frame% null "Tester"))
(define pre-on void)
(define f (make-object
(class-asi mred:frame%
(public [pre-on-event (lambda args (apply pre-on args))]
[pre-on-char pre-on-event]))
null "Tester"))
(define hp (make-object mred:horizontal-panel% f))
@ -288,6 +310,7 @@
(make-ctls tp cp lp add-testers ep h-radio? v-label? null-label? stretchy?)
(add-focus-note f ep)
(set! pre-on (add-pre-note f ep))
(send f show #t)
(set! prev-frame f)