Mercurial > hg > Applications > Lite

view tk/bou.lite @ 14:0d896bcc1061

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sat, 20 Jan 2001 20:47:00 +0900
parents 1c57a78f1d98
children
line wrap: on
line source

%
% specification for simple graphics interaction
%

specification((
+(((stop,keep((red,not(start)));start,keep((green,not(stop)))))),
[]((red,not(green);not(red),green)),
[]((green->move)),
[]((red->not(move))),
halt(quit)
)).

st_variables([stop,start,quit],[red,green,move]).