smiley-image-path ( won? lost? clicking? -- image-path )


Vocabulary
minesweeper

Inputs
won?an object
lost?an object
clicking?an object


Outputs
image-pathan object


Definition


:: smiley-image-path ( won? lost? clicking? -- image-path )
{
{
[ lost? ]
[ "vocab:minesweeper/_resources/smileylost.gif" ]
}
{
[ won? ]
[ "vocab:minesweeper/_resources/smileywon.gif" ]
}
{
[ clicking? ]
[ "vocab:minesweeper/_resources/smileyuhoh.gif" ]
}
[ "vocab:minesweeper/_resources/smiley.gif" ]
} cond ;