md5gui.lisp

(in-package :cl-user)

(defun md5-sum (file &rest args)
  (capi:display-message "~S"
   (ironclad:byte-array-to-hex-string (ironclad:digest-file :md5 file))))

(capi:contain (make-instance 'capi:text-input-pane
                             :callback 'md5-sum
                             :buttons
                             (list :cancel t
                                   :ok t
                                   :browse-file (list :operation :open :filter "*.*"))))