File: notebook.tcl

package info (click to toggle)

setools 3.3.8-3.1

links: PTS, VCS
area: main
in suites: jessie, jessie-kfreebsd
size: 8,932 kB
ctags: 7,866
sloc: ansic: 83,088; tcl: 13,141; cpp: 4,885; makefile: 1,614; yacc: 788; lex: 297; python: 57; sh: 50

file content (9 lines) | stat: -rw-r--r-- 301 bytes

parent folder | download | duplicates (4)

# this fragment taken from BWidget 1.8 release
proc NoteBook::bindtabs { path event script } {
    if { $script != "" } {
        append script " \[NoteBook::_get_page_name [list $path] current 1\]"
        $path.c bind "page" $event $script
    } else {
        $path.c bind "page" $event {}
    }
}