[EKB] I needed to have a properly editable table cell in TkTable. But I still wanted the arrow keys to work for table navigation under normal circumstances. I added some bindings so that either a double mouse click or pressing ctrl-enter will pop up an edit widget in the active cell.

Here's the basic code:

 event add <<tableEditCell>> <Double-Button-1>
 event add <<tableEditCell>> <Control-Return>
 bind $table.t <<tableEditCell>> {
  # Make sure the cell is up-to-date, first
  forceupdate %W
  # Create an edit widget
  if [winfo exists %W.entry] {
    saveEntry %W
    destroy %W.entry
  }
  set row [%W index active row]
  set col [%W index active col]
  entry %W.entry -validate key -vcmd "validate %W %%P"
  bind %W.entry <KeyPress-Escape> {killEntry %W}
  bind %W.entry <KeyPress-Return> {saveEntry %W; killEntry %W; forceupdate %W}
  bind %W.entry <FocusOut> {saveEntry %W; killEntry %W; forceupdate %W}
  %W window configure "$row,$col" -window %W.entry -sticky news
  %W.entry insert end [%W get $row,$col]
  %W.entry selection range 0 end
  focus %W.entry
  break
 }

To work, it needs some application-specific procs (w is the table widget):

 proc forceupdate {w} {
   # ... Update any data structure with the cell contents
 }

 proc killEntry {w} {
   # ... Get rid of the entry widget
 }

 proc validate {w s} {
   # ... Pass the validate command to the entry widget
 }

 proc saveEntry{w} {
   # ... Take the contents of the entry widget and store in the table cell
 }

(Why did I make some of the proc names camel case and some not? Sigh... I try to be consistent, but often miss.)