util/src/TclTk/blt2.5/library/init.tcl

   1 namespace eval ::blt {
   2
   3     proc initializeLibrary {} {
   4         foreach w {Button Checkbutton Radiobutton Menubutton Label Scrollbar} {
   5            foreach i [bind $w] {
   6                bind B$w $i [bind $w $i]
   7            }
   8         }
   9     }
  10
  11    initializeLibrary
  12
  13 }
  14