mrcImageOpticalFlow & mrcImageLucasKanade & mrcImageHornSchunckの変更

[eos/base.git] / util / src / TclTk / blt2.5 / demos / scripts / demo.tcl

diff --git a/util/src/TclTk/blt2.5/demos/scripts/demo.tcl b/util/src/TclTk/blt2.5/demos/scripts/demo.tcl
new file mode 100644 (file)
index 0000000..39e3e01
--- /dev/null
+++ b/util/src/TclTk/blt2.5/demos/scripts/demo.tcl
@@ -0,0 +1,32 @@
+# ----------------------------------------------------------------------------
+#
+#      The following code is solely a convenience so that you can test the 
+#      BLT distribution without first installing it.
+#
+# ----------------------------------------------------------------------------
+
+# If we're in the ./demos directory, we can simply specify
+# "../library" as the library directory without having to install the
+# files.
+
+if {[info commands ::blttable] != {}} {
+interp alias {} table {} blttable
+}
+
+if { [file exists ../library/bltGraph.pro] } {
+    global blt_library
+    set blt_library ../library
+    set auto_path [linsert $auto_path 0 $blt_library]
+    auto_reset
+}
+
+# Add a binding for convenience to let you exit with pressing the
+# "quit" button.
+
+wm protocol . WM_DELETE_WINDOW { DoExit 0 }
+bind all <Control-KeyPress-c> { DoExit 0 } 
+
+proc DoExit { code } {
+    destroy .
+    #exit $code
+}