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

MacOS and return for default button

Browse Source 
original commit: c00a245b81a6330c1510c284a6b5a35aa822096b
This commit is contained in:
Matthew Flatt 1998-12-16 14:56:21 +00:00
parent 5f1e823c23
commit 9ec58c79f1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -310,15 +310,15 @@
[(w h) (double-boxed 0 0 (lambda (x y) (send o get-client-size x y)))])
(list o x y w h)))
(define (container->children f except)
(define (container->children f except must-focus?)
(apply
append
(map
(lambda (i)
(cond
[(is-a? i wx-basic-panel<%>) (container->children i except)]
[(is-a? i wx-basic-panel<%>) (container->children i except must-focus?)]
[(or (eq? i except)
(not (send i gets-focus?))
(and must-focus? (not (send i gets-focus?)))
(not (send i is-enabled?))
(not (send i is-shown?)))
null]
@ -684,7 +684,7 @@
[normal-move
(lambda ()
(let* ([o (if (or (is-a? o wx:canvas%) (is-a? o wx:item%)) o #f)]
[dests (map object->position (container->children panel o))]
[dests (map object->position (container->children panel o #t))]
[pos (if o (object->position o) (list 'x 0 0 1 1))]
[o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4)
(case code
@ -730,7 +730,7 @@
(if (and o (send o handles-key-code code #t meta?))
#f
;; Move selection/hit control based on & shortcuts
(let* ([objs (container->children panel #f)]
(let* ([objs (container->children panel #f #t)]
[re (key-regexp code)])
(ormap
(lambda (o)