1 files changed, 28 insertions, 0 deletions
diff --git a/blt/demos/scripts/demo.tcl b/blt/demos/scripts/demo.tcl
new file mode 100644
index 00000000000..ef2bcf90a52
--- /dev/null
+++ b/blt/demos/scripts/demo.tcl
@@ -0,0 +1,28 @@
+# ----------------------------------------------------------------------------
+#
+#	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 { [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 } 
+bind all <KeyPress-q> { DoExit 0 }
+
+proc DoExit { code } {
+    exit $code
+}