8.5.2 Defining a Presentation-to-Command Translator

The following example defines the delete-file presentation-to-command translator:

(clim:define-presentation-to-command-translator 

 delete-file

 (pathname com-delete-file my-command-table 

           :documentation "Delete this file" 

           :gesture :delete) 

 (object)

 (list object))