/usr/share/xcrysden/Tcl/bxsfOpen.tcl is in xcrysden-data 1.5.53-1.
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 29 30 31 32 33 34 35 | #############################################################################
# Author: #
# ------ #
# Anton Kokalj Email: Tone.Kokalj@ijs.si #
# Department of Physical and Organic Chemistry Phone: x 386 1 477 3523 #
# Jozef Stefan Institute Fax: x 386 1 477 3811 #
# Jamova 39, SI-1000 Ljubljana #
# SLOVENIA #
# #
# Source: $XCRYSDEN_TOPDIR/Tcl/bxsfOpen.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
#############################################################################
proc bxsfOpenMenu {{can {}}} {
global system
set file [tk_getOpenFile -defaultextension .bxsf \
-filetypes {
{{All Files} {.*} }
{{BXSF XSF Files} {.bxsf} }
{{GZipped BXSF Files} {.bxsf.gz}}
{{XSF Files} {.xsf} }
{{GZipped XSF Files} {.xsf.gz} }
} \
-initialdir $system(PWD) \
-title "Open BXSF (i.e. Fermi Surface) File"]
if { $file == "" } {
return
}
genFSInit $file
}
|