/usr/share/blt2.4/demos/scripts/demo.tcl is in blt-demo 2.4z-4.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 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 }
proc DoExit { code } {
destroy .
#exit $code
}
|