当文本字段被聚焦时,我想要轮廓边框,但是我不希望提示被触摸边框,
但是我能看到的是
这是我在做什么
(: f (All (k v l w)
(-> (Listof k)
(HashTable k v)
(-> k v (Values l w))
(HashTable l w))))
(define (f keys m g)
(foldl (λ ([k : k] [acc : (HashTable l w)]) ; can refer to l and w
(let-values ([(l w) (g k (hash-ref m k))])
(hash-set acc l w)))
(ann #hash() (HashTable l w)) ; can refer to l and w
keys))