From: Paul Mackerras <paulus@samba.org>
Date: Sat, 11 Oct 2008 01:40:09 GMT
Subject: Re: [Gitk PATCH 1/6] gitk: Add procedure to create accelerated menus
Message-ID: <18672.1017.68669.913415@cargo.ozlabs.ibm.com>
In-Reply-To: <1223532590-8706-2-git-send-email-robin.rosenberg@dewire.com>

Robin Rosenberg writes:

> +proc mcw {menubar args} {
> +    set ai [lsearch $args "-label"]
> +    if { $ai > 0 } {
> +	set label [lindex $args [expr {$ai + 1}]]
> +	foreach {l u} [::tk::UnderlineAmpersand $label] {

Where did you find out about ::tk::UnderlineAmpersand?  Is it part of
the exported interface of Tk that we can rely on in future?

> +# Wrapper for mc to remove ampersands used for accelerators.
> +proc mca {label} {
> +    set tl8 [mc $label]
> +    foreach {l u} [::tk::UnderlineAmpersand $tl8] break
> +    return $l

	return [string map {"&" ""} [mc $label]]

instead, perhaps?

Paul.