From 78d3d613fe27b0013f2d5df69f81fc0dda05ca60 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Fri, 24 Oct 2014 15:33:34 -0400 Subject: [PATCH] Fix init order of choice%'s type original commit: 6ad017a1e9bd042d41266fc81244682f87731ae2 --- .../typed-racket-more/typed/racket/private/gui-types.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]