Artifact
322001ce813efa0321ad0b8f4e63d6f6ab20a077:
Attachment "mfpatch" to
ticket [444172ffff]
added by
venksi
2001-07-24 23:51:55.
*** BWidget-1.3.1/mainframe.tcl Tue Jul 24 09:45:29 2001
--- fixed/mainframe.tcl Tue Jul 24 09:49:59 2001
***************
*** 551,556 ****
--- 551,559 ----
if { [llength $desc] == 1 } {
set seq None
set key [string tolower [lindex $desc 0]]
+ if {[regexp {f[1]?[0-9]*} $key]} {
+ set key [string toupper $key]
+ }
} elseif { [llength $desc] == 2 } {
set seq [lindex $desc 0]
set key [string tolower [lindex $desc 1]]
