anchor.diff:    ((pathname 'pathname  :prompt "pathname"))
     (clim-sys:make-process (lambda () (ed pathname))))
   
  -;; Leave this translator disabled for now, the automagic translator will now produce
  -;; com-edit-file where there is not a more specific handler for a text mime type.
  -#+IGNORE
   (define-presentation-to-command-translator edit-file
     (clim:pathname com-edit-file filesystem-commands :gesture :select
   		 :pointer-documentation ((object stream)
  
positive.code: 		 :tester ((object)
  			  (and (not (wild-pathname-p object))
                                 (probe-file object)
                                 (pathname-name object))))
    (object)
    (list object))
  
  
negative.code: 			       :provide-output-destination-keyword t)
    ((object 'pathname :prompt "pathname"))
    (show-file object))
  
  (define-presentation-to-command-translator show-file
    (clim:pathname com-show-file filesystem-commands :gesture :select
  		 :pointer-documentation ((object stream)
  					 (format stream "Show ~A" object))
  		 :documentation ((stream) (format stream "Show File"))
  		 :tester ((object)
  			  (and (not (wild-pathname-p object))
                                 (probe-file object)
                                 (pathname-name object)
                                 (let ((mime-type (pathname-mime-type object)))
                                   (and mime-type (subtypep mime-type 'text))))))
    (object)
    (list object))
  
  (define-command (com-display-image :name t :command-table filesystem-commands
                                             :menu t)
  