Fix init order of choice%'s type
This commit is contained in:
parent
9de70551dc
commit
6ad017a1e9
|
@ -959,8 +959,8 @@
|
||||||
(define-type Choice%
|
(define-type Choice%
|
||||||
(Class #:implements List-Control<%>
|
(Class #:implements List-Control<%>
|
||||||
(init [label String]
|
(init [label String]
|
||||||
[parent (Instance Area-Container<%>)] ; FIXME
|
|
||||||
[choices (Listof String)]
|
[choices (Listof String)]
|
||||||
|
[parent (Instance Area-Container<%>)] ; FIXME
|
||||||
[callback ((Instance Choice%)
|
[callback ((Instance Choice%)
|
||||||
(Instance Control-Event%) -> Any)
|
(Instance Control-Event%) -> Any)
|
||||||
#:optional]
|
#:optional]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user