File: which.tcl

package info (click to toggle)
tkworld 1.4.0-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 948 kB
  • ctags: 336
  • sloc: tcl: 10,189; makefile: 36
file content (21 lines) | stat: -rw-r--r-- 267 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
 
namespace eval which {
    # No private variables
}

# which::create  --
#
#   Method to insert the which command into the CC.
#
# Args
#
#   None.
#
# Returns
#
#   None.

proc which::create { } {
    global tkWorld

    $tkWorld(cmd_center) insert insert "which "
}