hgk: enable mouse wheel under Windows.
For some reason, MouseWheel events are not routed under windows even in latest ActiveTcl 8.4.15 while they are under linux and macosx. These events are activated using code supplied with Tcl Tip 171: <http://www.tcl.tk/cgi-bin/tct/tip/171.html>. Strangely, the Tip code almost work but generates some unexpected infinite loop which is fixed using a simple boolean to check reentrancy.
#
# tcsh completion for Mercurial
#
# This file has been auto-generated by tcsh_completion_build.sh for
# Mercurial Distributed SCM (version 325c07fd2ebd)
#
# Copyright (C) 2005 TK Soh.
#
# This is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 of the License, or (at your
# option) any later version.
#
complete hg \
'n/--cwd/d/' 'n/-R/d/' 'n/--repository/d/' \
'C/-/( -R --repository \
--cwd \
-y --noninteractive \
-q --quiet \
-v --verbose \
--debug \
--debugger \
--traceback \
--time \
--profile \
--version \
-h --help)/' \
'p/1/(add addremove annotate bundle cat \
clone commit ci copy cp \
debugancestor debugcheckstate debugconfig debugdata debugindex \
debugindexdot debugrename debugstate debugwalk diff \
export forget grep heads help \
identify id import patch incoming \
in init locate log history \
manifest outgoing out parents paths \
pull push rawcommit recover remove \
rm rename mv revert root \
serve status tag tags tip \
unbundle undo update up checkout \
co verify version)/'