Syntax error in menu.tcl

OriginalBugID: 2425 Bug
Version: 8.2b1
SubmitDate: '1999-07-21'
LastModified: '1999-07-22'
Severity: MED
Status: Released
Submitter: techsupp
ChangedBy: redman
OS: Other
Machine: NA
FixedDate: '1999-07-22'

Name:
Jeffrey Hobbs

Comments:
This exists in 8.1.1 as well.

ReproducibleScript:
I am not able to reproduce this, but it is as reported by
Michael Capito (mikec at tgf.tc.faa.gov) on c.l.tcl, and
is an obvious syntax error.

Patch:
ib-service [~/src/tk8.2b1/library] 271 % diff -c menu.tcl~ menu.tcl
*** menu.tcl~ Fri May 7 22:05:40 1999
--- menu.tcl Wed Jul 21 09:44:34 1999
***************
*** 934,940 ****
[$child cget -underline]]
if {![string compare $char [string tolower $char2]]
|| ![string compare $char ""]} {
! if {[string compare [$child cget $i -state] "disabled"]} {
return $child
}
}
--- 934,940 ----
[$child cget -underline]]
if {![string compare $char [string tolower $char2]]
|| ![string compare $char ""]} {
! if {[string compare [$child cget -state] "disabled"]} {
return $child
}
}

PatchFiles:
library/menu.tcl

Applied patch, fixed in 8.2b2.
-- 07/22/1999 redman