/usr/share/common-lisp/source/metatilities-base/dev/api.lisp is in cl-metatilities-base 20120909-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | (in-package #:metatilities)
(defgeneric choose-directory-question* (interface &rest args)
(:documentation ""))
(defgeneric choose-file-question* (interface &rest args)
(:documentation ""))
(defgeneric choose-item-from-pup* (interface the-list &rest args &key &allow-other-keys)
(:documentation ""))
(defgeneric choose-item-question* (interface list &rest args &key title &allow-other-keys)
(:documentation ""))
(defgeneric choose-new-file-question* (interface &rest args)
(:documentation ""))
(defgeneric y-or-n-question* (interface message &rest args)
(:documentation "Asks a yes or no question spiffily."))
(defgeneric gui-error* (interface condition &optional prefix standard-message)
(:documentation ""))
(defgeneric gui-warn* (interface string &rest args &key ok-text title size &allow-other-keys)
(:documentation ""))
;;?? probably should hsave an interface argument
(defgeneric report-condition (condition stream)
)
(defgeneric help-spec (view)
(:documentation ""))
(defgeneric interface-beep* (interface &rest args)
(:documentation ""))
(defgeneric make-color** (interface red green blue)
(:documentation ""))
(defgeneric make-gray* (interface level)
(:documentation ""))
(defgeneric make-scaled-color* (interface red green blue scale)
(:documentation ""))
(defgeneric name (x)
(:documentation ""))
(defgeneric process-parameters* (interface &rest args)
(:documentation ""))
(defgeneric prompt-for* (interface type prompt &rest args &key &allow-other-keys)
(:documentation ""))
(defgeneric put-item-on-clipboard* (interface thing)
(:documentation ""))
(defgeneric select-instrument* (interface instrument &rest args)
(:documentation ""))
(defgeneric inspect-thing* (interface thing &rest args))
(defgeneric sound-note* (interface pitch velocity &rest args)
(:documentation ""))
(defgeneric stop-notes* (interface)
(:documentation ""))
(defgeneric make-progress-bar (interface min max title &key)
)
(defgeneric progress-bar-value (interface bar)
)
(defgeneric (setf progress-bar-value) (value interface bar)
)
(defgeneric close-progress-bar (interface bar)
)
(defgeneric make-ui-point* (interface x y))
|