diff --git a/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/private/gui-types.rkt b/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/private/gui-types.rkt index 602e69bf..afc0cf1d 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/private/gui-types.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/private/gui-types.rkt @@ -959,8 +959,8 @@ (define-type Choice% (Class #:implements List-Control<%> (init [label String] - [parent (Instance Area-Container<%>)] ; FIXME [choices (Listof String)] + [parent (Instance Area-Container<%>)] ; FIXME [callback ((Instance Choice%) (Instance Control-Event%) -> Any) #:optional]