diff options
| -rw-r--r-- | Core/clim-core/panes/construction.lisp | 4 | ||||
| -rw-r--r-- | Core/windowing/input.lisp | 5 | ||||
| -rw-r--r-- | Core/windowing/protocol.lisp | 2 | ||||
| -rw-r--r-- | Core/windowing/repaint.lisp | 6 |
4 files changed, 2 insertions, 15 deletions
diff --git a/Core/clim-core/panes/construction.lisp b/Core/clim-core/panes/construction.lisp index 9183fd68..b5673c87 100644 --- a/Core/clim-core/panes/construction.lisp +++ b/Core/clim-core/panes/construction.lisp @@ -201,8 +201,8 @@ returned or error is signaled depending on the argument ERRORP.") always-repaint-background-mixin mouse-wheel-scroll-mixin permanent-medium-sheet-output-mixin - clim-repainting-mixin - clim-sheet-input-mixin + immediate-repainting-mixin + standard-sheet-input-mixin sheet-transformation-mixin layout-protocol-mixin pane diff --git a/Core/windowing/input.lisp b/Core/windowing/input.lisp index 651650f0..a80646c2 100644 --- a/Core/windowing/input.lisp +++ b/Core/windowing/input.lisp @@ -175,8 +175,3 @@ &key (timeout nil) (wait-function nil)) (event-listen-or-wait (delegate-sheet-delegate sheet) :timeout timeout :wait-function wait-function)) - -;;; Class actually used by panes. - -(defclass clim-sheet-input-mixin (standard-sheet-input-mixin) - ()) diff --git a/Core/windowing/protocol.lisp b/Core/windowing/protocol.lisp index f28775d7..69cbd264 100644 --- a/Core/windowing/protocol.lisp +++ b/Core/windowing/protocol.lisp @@ -169,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)) @@ -284,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 diff --git a/Core/windowing/repaint.lisp b/Core/windowing/repaint.lisp index 249ffc5c..182d1b05 100644 --- a/Core/windowing/repaint.lisp +++ b/Core/windowing/repaint.lisp @@ -146,12 +146,6 @@ (declare (ignore sheet region)) (values)) -(defclass clim-repainting-mixin (immediate-repainting-mixin) - ;; (#+clim-mp standard-repainting-mixin #-clim-mp immediate-repainting-mixin) - () - (:documentation "Internal class that implements the repainting protocol.")) - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; No Standard. |