diff options
Diffstat (limited to 'Core/windowing/protocol.lisp')
-rw-r--r-- | Core/windowing/protocol.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Core/windowing/protocol.lisp b/Core/windowing/protocol.lisp index 0946bbd6..69cbd264 100644 --- a/Core/windowing/protocol.lisp +++ b/Core/windowing/protocol.lisp @@ -119,6 +119,9 @@ call depends on a port.")) (defgeneric queue-read (queue) (:documentation "Reads one item from the queue (blocking).")) +(defgeneric queue-drain (queue) + (:documentation "Reads all elements from the queue and empties it.")) + (defgeneric queue-read-no-hang (queue) (:documentation "Reads one item from the queue. If queue is empty returns NIL.")) @@ -166,7 +169,6 @@ is not empty or none of the above happened before a timeout. (pledge :mixin sheet-mute-input-mixin) (pledge :mixin delegate-sheet-input-mixin) (define-accessor delegate-sheet-delegate (new-value instance)) -(pledge :mixin clim-sheet-input-mixin) ;;; 8.2 Standard Device Events (define-protocol-class event nil nil (:default-initargs :timestamp nil)) @@ -281,7 +283,6 @@ and button states of the pointer.")) (pledge :mixin sheet-mute-repainting-mixin) (pledge :mixin always-repaint-background-mixin) (pledge :mixin never-repaint-background-mixin) -(pledge :mixin clim-repainting-mixin) ;;; 8.5 Sheet Notification Protocol |