extra/snake-game/snake-game.factor

   1 ! Copyright (C) 2015 Sankaranarayanan Viswanathan
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors sets snake-game.ui ui ui.gadgets.status-bar
   4 ui.gadgets.worlds ;
   5 IN: snake-game
   6
   7 : <snake-world-attributes> ( -- world-attributes )
   8     <world-attributes> "Snake Game" >>title
   9     [
  10         { maximize-button resize-handles } without
  11     ] change-window-controls ;
  12
  13 : play-snake-game ( -- )
  14     [
  15         <snake-gadget>
  16         <snake-world-attributes>
  17         open-status-window
  18     ] with-ui ;
  19
  20 MAIN: play-snake-game