File: init.tcl

package info (click to toggle)
blt 2.5.3%2Bdfsg-3
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 24,864 kB
  • sloc: ansic: 133,724; tcl: 17,680; sh: 2,722; makefile: 799; cpp: 370
file content (16 lines) | stat: -rw-r--r-- 310 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
namespace eval ::blt {

    proc initializeLibrary {} {
        foreach w {Button Checkbutton Radiobutton Menubutton Label Scrollbar} {
           foreach i [bind $w] {
               bind B$w $i [bind $w $i]
           }
        }
    }

    if {[info commands tk] == "tk"} {
	initializeLibrary
    }
    
}