Posted to tcl by manveru at Sat Jan 23 21:20:32 GMT 2010view raw

  1. #!/usr/bin/env wish
  2.  
  3. bind . q { exit }
  4. bind . i { puts "start insert mode" }
  5. bind . git { puts "something else" }