mrcImageOpticalFlow & mrcImageLucasKanade & mrcImageHornSchunckの変更

[eos/base.git] / util / src / TclTk / blt2.5 / library / init.tcl

diff --git a/util/src/TclTk/blt2.5/library/init.tcl b/util/src/TclTk/blt2.5/library/init.tcl
new file mode 100644 (file)
index 0000000..857fa45
--- /dev/null
+++ b/util/src/TclTk/blt2.5/library/init.tcl
@@ -0,0 +1,14 @@
+namespace eval ::blt {
+
+    proc initializeLibrary {} {
+        foreach w {Button Checkbutton Radiobutton Menubutton Label Scrollbar} {
+           foreach i [bind $w] {
+               bind B$w $i [bind $w $i]
+           }
+        }
+    }
+
+   initializeLibrary
+    
+}
+