From: <ldu...@sp...> - 2000-08-11 05:17:01
|
Hi, As you may have noticed, I've been pretty quiet of late. A combination of vacations and extra work at the office is to blame. I've been monitoring clt enough to see that noone seems to ave tried to attack the -underline and the associated binding problem. I think I'll try Jan's proposition (use \_) to begin. It requires a small change to Tcl and another change to the way Tk displays text in the buttons and stuff. I can try to figure out where that piece of code is, but if one of you can point me to the proper location (I don't know the Tk code that well yet) it could save me some time. Maybe not, who knows. Using this approach, I could always extend msgcat to know what the binding for a string should be. Somthing like set key [::msgcat::bindkey $string] bind <Alt-$key> .... proc ::msgcat::bindkey {string} { set idx [string first "\_" $string] if {$idx > 0} { return [string index $string [expr {$idx-1}]] } } or something. One issue is what to do if -underline and \_ are used simultaneously. L -- The TclCore mailing list is sponsored by Ajuba Solutions To unsubscribe: email tcl...@aj... with the word UNSUBSCRIBE as the subject. |