*** 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]]
