start | all-pages
tuiexample
. This implements a tiny block reader using `list#` as the
. display.
:reader:hints (-)
'Prev #1 ti:add-hint 'Next #2 ti:add-hint
'Quit #0 ti:add-hint ;
:reader:keys (-)
&prev $1 ti:set-action &next $2 ti:set-action
&ti:done $0 ti:set-action ;
:reader (-)
[ &reader:keys &reader:hints &list# ] ti:application ;