19 lines
938 B
Scheme
19 lines
938 B
Scheme
(widget-new
|
|
'centerer
|
|
(widget-new
|
|
'flowbox
|
|
#:style style-container
|
|
#:w 379
|
|
#:layout-padding 8
|
|
#:layout-spacing 8
|
|
#:horizontal #t
|
|
(widget-new 'plain #:style style-default #:image (pak-texture "base" "logo") #:layout-weight 1 #:h 200)
|
|
(widget-new 'label #:style style-button #:layout-weight 1 #:h 20 #:text-alignment 'center #:text "Play!"
|
|
#:on-click (lambda (w e) (switch-stage "ingame")))
|
|
(widget-new 'label #:style style-button #:layout-weight 1 #:h 20 #:text-alignment 'center #:text "Map editor")
|
|
(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")
|
|
(widget-new 'label #:style style-default #:layout-weight 1 #:h 20 #:text-alignment 'right
|
|
#:text (string-append (gvar-get "misc:game_name") " " (gvar-get "misc:game_version")))))
|
|
|