/usr/share/xcrysden/Tcl/scroll.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 | ############################################################################
# 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/scroll.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
# ------ #
#############################################################################
proc mouseWheelScroll {w scrollCmd_B4 scrollCmd_B5 scrollCmd_Wheel} {
global scrollWin tcl_platform
#if { [info exist scrollWin($w)] } {
# # binding already set for $w
# return 1
#}
#
#set scrollWin($w) 1
set scrWin [getAllDescendantWid $w]
foreach wid $scrWin {
if { [winfo exists $wid] } {
if { $tcl_platform(platform) == "unix" } {
bind $wid <Button-4> $scrollCmd_B4
bind $wid <Button-5> $scrollCmd_B5
} else {
# TODO: please tune the %D on windows
bind $wid <MouseWheel> $scrollCmd_Wheel
}
}
}
}
|