Xconq tcltk interface for the Mac

[mniw]

tcltk/tkconq.tcl rev 1.89:

             bind $map <Key> \
        -           { if {"%A" != "{}" } { handle_key_binding "%A" %W %X %Y } }
        +           { if {"%K" != "{}" } { handle_key_binding "%K" %W %X %Y } }
 
             set mapview $map.leftside.botside.mapf.mapf2.map

It does not seem to work in Unix.
If you type "Shift kye", then %K is set to "Shift_(L|R)", and it is regarded as "S"(hift).
It is a shotcut for <Save as>.

---
MA dunzi <mniw@sol.dti.ne.jp> http://tadalunch.s5.xrea.com/xconq/index.html