Fix init order of choice%'s type

original commit: 6ad017a1e9bd042d41266fc81244682f87731ae2
2014-10-24 15:33:34 -04:00 · 2014-10-24 15:33:34 -04:00 · 78d3d613fe
commit 78d3d613fe
parent a8719e9823
1 changed files with 1 additions and 1 deletions
--- 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]