hgk is a wish script
--- mercurial-0.7.orig/contrib/hgk 2005-09-23 11:02:21.000000000 +0200
+++ mercurial-0.7/contrib/hgk 2005-09-23 11:07:57.000000000 +0200
@@ -1,6 +1,4 @@
-#!/bin/sh
-# Tcl ignores the next line -*- tcl -*- \
-exec wish "$0" -- "${1+$@}"
+#!/usr/bin/wish
# Copyright (C) 2005 Paul Mackerras. All rights reserved.
# This program is free software; it may be used, copied, modified
#
# 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)/'