TCL 怎么获取Ctr Shift这样的按键

thoughtfulworm

在写一个获取坐标点位的tcl脚本，希望有两种模式，第一种为直接鼠标左肩框选，获得当前框选box下图形的坐标点位，并取代原有点位。第二种为按下shift键，同时鼠标左肩框选，获得当前框选box下图形的坐标点位，但这种模式下，不刷新之前坐标，而是与之前坐标合并，重复坐标只保留一个。
[gets stdin]似乎只能获得可显示的按键值，Ctr Shift这类按键似乎没法获得，也就没法判断是否有按下Shift，请问该如何写这个脚本？

thoughtfulworm

呃，还没答案吗？看来我还得查查资料了。