File: example.tkbindrc

package info (click to toggle)
tkmail 4.0beta9-8.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,444 kB
  • ctags: 923
  • sloc: tcl: 13,262; ansic: 6,998; makefile: 351; sh: 88; sed: 57
file content (22 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
# Init file for tkBindEnhanced package
# See the top of the bindxtnd.tcl file for options

set tkBind(meta) Alt
bind all <Alt-KeyPress> {}

set tk_strictMotif 0

proc tkTextInitHook {} {
  global tkText

  tkBindRequire isearch
  tkBindRequire rectangle

  bind Text <Control-u> {
    tkTextDelete %W "insert linestart" insert 0 1
  }
  bind Text <Alt-F1> {
    tkTextInsert %W insert "ftp.slac.stanford.edu:software/TkMail"
  }
}