This file is indexed.

/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
}