/usr/share/xcrysden/Tcl/popupMenu.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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #############################################################################
# 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/popupMenu.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
#############################################################################
proc popupMenu {W x y} {
if { [winfo exists $W.menu] } {
destroy $W.menu
}
set m [menu $W.menu -tearoff 0]
tk_popup $m $x $y
popupMenu:popup $m $W
}
proc popupMenu:popup {m w} {
$m add cascade -image colors -menu $m.vmcolor
$m add cascade -label "File" -menu $m.vmfile
$m add cascade -label "Display" -menu $m.vmdis
$m add cascade -label "Modify" -menu $m.vmmod
$m add cascade -label "AdvGeom" -menu $m.vmadvg
$m add cascade -label "Properties" -menu $m.vmpro
$m add cascade -label "Tools" -menu $m.vmdat
$m add cascade -label "Help" -menu $m.vmhelp
$m add separator
$m add command -label "Exit" -command exit_pr
########################################################################
set mcolor [menu $m.vmcolor -tearoff 0]
set mfile [menu $m.vmfile -tearoff 0]
set mmod [menu $m.vmmod -tearoff 0]
set mdis [menu $m.vmdis -tearoff 0]
set madvg [menu $m.vmadvg -tearoff 0]
set mpro [menu $m.vmpro -tearoff 0]
set mdat [menu $m.vmdat -tearoff 0]
set mhelp [menu $m.vmhelp -tearoff 0]
mainMenu $w $mcolor $mfile $mmod $mdis $madvg $mpro $mdat $mhelp
update
xcUpdateState $m {}
}
|