Add Keyboard Shortcuts

...

% pack $b.ok $b.cancel -side left

% bind .prompt <Control-o> "focus $b.ok ; break"

% bind .prompt <Control-a> "focus $b.cancel ; break"

% bind .prompt <Return> "set result 1"

% bind .prompt <Control-c> "set result 0"

% focus $f.entry

...