How to make a choice without press enter

[paskali]

Hi all, i have a simple question, please read the following code:

#A simple script that print my name or my surname
proc main {} {
    set choice;
    puts "What do you want to see printed on the screen?";
    puts "";
    puts "a: Pasquale";
    puts "b: Frega";
    puts "";
    ?
    if {$choice=="a"} {
        puts "Pasquale";
    } elif {$choice=="b"} {
        puts "Frega";
    }
}
main;

My question is simple, i want simply to press 'a' or 'b' without press return and then i want to see my name or my surname printed on the screen. What might i write on the place of question mark?
Thanks!

 

[thacoda]

Hi,
maybe this is usefull in your quest:

http://wiki.tcl.tk/2623

 

[paskali]

I use cygwin on windows xp, i have solved by:
[CODDE]#A simple script that print my name or my surname
proc main {} {
puts "What do you want to see printed on the screen?";
puts "";
puts "a: Pasquale";
puts "b: Frega";
puts "";
exec /bin/stty raw <@stdin;
set choice [read stdin 1];
exec /bin/stty -raw <@stdin;
if {$choice=="a"} {
puts "Pasquale";
} elseif {$choice=="b"} {
puts "Frega";
}
}
main;[/CODE]

However it seems a bit hard in windows native system without cygwin. Moreover some keys (e.g. arrow keys) do not work properly on the control of the behaviour of the script.
I will make some other tests.