/usr/lib/gcl-2.6.7/gcl-tk/gcltksrv is in gcl 2.6.7-98.
This file is owned by root:root, with mode 0o755.
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 | #!/bin/sh
# where to find bitmaps,
# and the class bindings in /usr/local/lib/tk/tk.tcl
GCL_TK_DIR=/usr/lib/gcl-2.6.7/gcl-tk
TK_XLIB_DIR=
if [ -d "${TK_XLIB_DIR}" ] ; then
export LD_LIBRARY_PATH
LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:${TK_XLIB_DIR}
fi
#check to see if TK_LIBRARY set in users environment ok..
if [ -f ${TK_LIBRARY}/tk.tcl ] ;then true;
else
TK_LIBRARY=/usr/lib/tk8.4/../tk8.4
if [ -f ${TK_LIBRARY}/tk.tcl ] ;then export TK_LIBRARY ; fi
export TK_LIBRARY
fi
if [ -f ${TCL_LIBRARY}/init.tcl ] ;then true;
else
TCL_LIBRARY=/usr/lib/tk8.4/../tcl8.4
if [ -f ${TCL_LIBRARY}/init.tcl ] ; then export TCL_LIBRARY ; fi
fi
if [ $# -ge 4 ] ;then
DISPLAY=$4 ;
export DISPLAY;
fi
exec ${GCL_TK_DIR}/gcltkaux $1 $2 $3
|