12 lines
499 B
Scheme
12 lines
499 B
Scheme
(widget-new
|
|
'flowbox
|
|
#:style style-container
|
|
#: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) (stateman-switch-state "game")))
|
|
(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"))
|
|
|