You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
444 B
Scheme
16 lines
444 B
Scheme
27 years ago
|
(let ([c%
|
||
|
|
(class-asi mred:canvas%
|
||
|
|
(public
|
||
|
|
[on-char
|
||
|
|
(lambda (ev)
|
||
|
|
(printf "code: ~a meta: ~a alt: ~a shift: ~a~n"
|
||
|
|
(send ev get-key-code)
|
||
|
|
(send ev get-control-down)
|
||
|
|
(send ev get-alt-down)
|
||
|
|
(send ev get-shift-down)))]))])
|
||
|
|
(define f (make-object mred:frame% null "tests" 0 0 100 100))
|
||
|
|
(define p (make-object mred:vertical-panel% f))
|
||
|
|
(define c (make-object c% p))
|
||
|
|
(send f show #t))
|
||
|
|
|