game-over ( gadget -- gadget )

Vocabulary

gamelib.demos.tic-tac-toe

Inputs

gadget

an object

Outputs

gadget

an object

Definition

USING: accessors colors fonts gamelib.ui opengl ui.text ;

IN: gamelib.demos.tic-tac-toe

: game-over ( gadget -- gadget )
    [
        { 75 75 } [
            monospace-font t >>bold? 50 >>size
            COLOR: red >>foreground "GAME OVER" draw-text
        ] with-translation
    ] draw-quote ;