15 lines
533 B
Scheme
15 lines
533 B
Scheme
(widget-new
|
|
'plain
|
|
(widget-new
|
|
'flowbox
|
|
#:style style-container
|
|
#:w 300
|
|
#:layout-padding 8
|
|
#:layout-spacing 8
|
|
#:horizontal #t
|
|
(widget-new 'label #:style style-button #:layout-weight 1 #:h 20 #:text-alignment 'center #:text "New game"
|
|
#:on-click (lambda (w e) (switch-stage "ingame")))
|
|
(widget-new 'label #:style style-button #:layout-weight 1 #:h 20 #:text-alignment 'center #:text "Options")
|
|
(widget-new 'label #:style style-button #:layout-weight 1 #:h 20 #:text-alignment 'center #:text "Quit game")))
|
|
|