anchor.diff:  			       :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)
  
positive.code:              (mv-or
                (when mime-type (mime-type-to-command mime-type pathname))
                (when command
                  (values command doc pointer-doc))
                (when (and mime-type (subtypep mime-type 'text))
                  (values `(com-edit-file ,pathname)
                          "Edit File"
                          (format nil "Edit ~A" pathname))) ))))))
  
  (define-presentation-translator automagic-pathname-translator
    (clim:pathname clim:command filesystem-commands
  
negative.code: 		 :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))
  
  