Define cursor class for (future) user customization
This commit is contained in:
parent
67f0e902d5
commit
0ea7d00ba0
|
@ -59,6 +59,25 @@
|
||||||
(document *application-frame*))
|
(document *application-frame*))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
|
** cursor
|
||||||
|
#+BEGIN_SRC lisp
|
||||||
|
(defclass cursor ()
|
||||||
|
((blink-interval :initarg :blink-interval
|
||||||
|
:initform 0.5
|
||||||
|
:accessor blink-interval
|
||||||
|
:documentation "Frequency of cursor blink, in seconds. If nil, disable cursor blinking.")
|
||||||
|
(color :initarg :color
|
||||||
|
:accessor color
|
||||||
|
:documentation "Color of cursor.")
|
||||||
|
(filled-p :initarg :filled-p
|
||||||
|
:initform t
|
||||||
|
:accessor filled-p
|
||||||
|
:documentation "Whether cursor rectangle should be filled.")
|
||||||
|
(width :initarg :width
|
||||||
|
:accessor width
|
||||||
|
:documentation "Width of cursor.")))
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
** display methods
|
** display methods
|
||||||
#+BEGIN_SRC lisp
|
#+BEGIN_SRC lisp
|
||||||
(defmethod display ((section section) pane)
|
(defmethod display ((section section) pane)
|
||||||
|
|
Loading…
Reference in New Issue