14 lines
463 B
Racket
14 lines
463 B
Racket
#lang racket/base
|
|
(require racket/gui/base)
|
|
(provide frame:lookup-focus-table
|
|
frame:set-focus-table)
|
|
|
|
;; focus-table : hash[eventspace -o> (listof frame)]
|
|
(define focus-table (make-hash))
|
|
(define (frame:lookup-focus-table [eventspace (current-eventspace)])
|
|
(hash-ref focus-table eventspace '()))
|
|
(define (frame:set-focus-table eventspace new)
|
|
(if (null? new)
|
|
(hash-remove! focus-table eventspace)
|
|
(hash-set! focus-table eventspace new)))
|