Commit 3591ab8c authored by David O'Toole's avatar David O'Toole

import class diagram png

parent c75a13a0
This diff is collapsed.
......@@ -46,6 +46,14 @@ source sections need documentation. These are marked with red TODO
tags.
#+END_QUOTE
* Class diagram
The following diagram shows the inheritance hierarchy for most of the
classes in Xelf. It may be useful to refer back to this diagram when
reading about the classes' implementations.
file:class-diagram.png
* Lisp package
Here we declare the rest of this file to be in the Xelf package. The
......@@ -5225,18 +5233,6 @@ subclasses.)
(image :initform nil :accessor image :initarg :image :documentation "Name of texture to be displayed, if any.")))
#+end_src
** Z-order
#+begin_src lisp
(defmethod bring-to-front ((self node))
(with-slots (z) self
(setf z (max (or z 1)
(+ 1 (maximum-z-value (current-buffer)))))))
(defmethod send-to-back ((self node))
(setf (slot-value self 'z) 1))
#+end_src
** Destruction
#+begin_src lisp
......@@ -5833,6 +5829,14 @@ See also [[file:dictionary/Z-SORT.html][Z-SORT]].
(defmethod move-to-depth ((self node) depth)
(setf (slot-value self 'z) (cfloat depth)))
(defmethod bring-to-front ((self node))
(with-slots (z) self
(setf z (max (or z 1)
(+ 1 (maximum-z-value (current-buffer)))))))
(defmethod send-to-back ((self node))
(setf (slot-value self 'z) 1))
#+end_src
** TODO Task scheduler
......@@ -6167,6 +6171,7 @@ See also "Command shell" below.
(center help)
(bring-to-front help)))
#+end_src
** Handling events
#+begin_src lisp
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment