anchor.diff:        (lambda (evt) (declare (ignore evt)) (unless (plaintextp txt) (on-left-click edit-ctrl))))
       (ltk:bind edit-ctrl "<Map>" (lambda (evt) (declare (ignore evt)) (ltk:focus edit-ctrl)))
       (ltk:bind edit-ctrl "<<Modified>>" (lambda (evt) (on-file-modified evt)))
  -    (add-key-binding edit-ctrl *key-cut* (lambda (evt) (declare (ignore evt)) (on-cut edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-copy* (lambda (evt) (declare (ignore evt)) (on-copy edit-ctrl)))    
  -    (add-key-binding edit-ctrl *key-paste* (lambda (evt) (declare (ignore evt)) (on-paste edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-select-all* (lambda (evt) (declare (ignore evt)) (on-select-all edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-reformat* (lambda (evt) (declare (ignore evt)) (on-re-indent edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-macro-expand* (lambda (evt) (declare (ignore evt)) (on-macro-expand edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-copy-to-repl* (lambda (evt) (declare (ignore evt)) (on-copy-sexp-to-repl edit-ctrl)))
  -    (add-key-binding edit-ctrl *key-code-complete* (lambda (evt) (on-code-complete edit-ctrl evt)))
  -    (add-key-binding edit-ctrl *key-lookup*
  -      (lambda (evt) (declare (ignore evt)) (unless (plaintextp txt) (on-lookup-definition edit-ctrl))))
  +    (dolist (binding *text-keys*)
  +      ;;(format t "~%binding ~A to ~A" (first binding) (second binding))
  +      (add-key-binding edit-ctrl (first binding)
  +                       (lambda (evt)
  +                         (declare (ignore evt))
  +                         ;;(format t "~%calling ~A" (second binding))
  +                         (funcall (second binding) edit-ctrl))))
       (ltk:bind edit-ctrl "<Return>"
         (lambda (evt) (unless (plaintextp txt) (on-return-key edit-ctrl evt))))
       (ltk:bind edit-ctrl "<space>"
  
positive.code:                   (pathname-completions-to-string pathname-matches)))))))
        (error (ex) (ltk:do-msg ex)))))
  
  (defmethod on-code-complete ((listener listener) event)
    (case (complete-mode listener)
      (symbol
        (code-complete (inferior-win listener))
  
negative.code: (defmethod on-select-all ((txt ltk:text))
    (ltk::select-all txt))
  
  (defmethod on-code-complete ((text ltk:text))
    (code-complete text)
    (highlight text 'complete)
    (show-calltip text))
  