! Copyright (C) 2009 Your name. ! See http://factorcode.org/license.txt for BSD license. USING: arrays kernel namespaces ui ui.gadgets.buttons ui.gadgets.grids ui.tools.listener locals ; IN: sokoban :: button-2 ( canvas -- ) canvas 1 0 grid-remove drop ; :: ( canvas -- gadget ) "1" [ ] "2" [ drop [ canvas button-2 ] call ] 2array "3" [ ] "4" [ ] 2array 2array canvas new-grid ; ! run ui : start-sokoban ( -- ) [ grid "Sokoban" open-window ] with-ui ; MAIN: start-sokoban