suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix init arg order for Message% type.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-11-19 10:56:50 -05:00
parent 6c9172f50f
commit aad0fa5884
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/private/gui-types.rkt
View File

@ -1488,9 +1488,9 @@
(define-type Message% (define-type Message%
(Class #:implements Control<%> (Class #:implements Control<%>
(init [parent (Instance Area-Container<%>)] ; FIXME (init [label (U String (Instance Bitmap%)
[label (U String (Instance Bitmap%)
(U 'app 'caution 'stop))] (U 'app 'caution 'stop))]
[parent (Instance Area-Container<%>)] ; FIXME
[style (Listof 'deleted) #:optional] [style (Listof 'deleted) #:optional]
[font (Instance Font%) #:optional] [font (Instance Font%) #:optional]
[enabled Any #:optional] [enabled Any #:optional]