Typical window class definition

(defclass paint-buffer (frame-with-single-child)

())

(defclass paint-pane (bitmap-pane)

((ischanged :initform nil :accessor buffer-ischanged)

(file :initform nil :accessor buffer-file)

(objects :initform nil :accessor buffer-objects)

(selections :initform nil :accessor buffer-selections)

(mouse-x :initform 0 :accessor mouse-x)

(mouse-y :initform 0 :accessor mouse-y)))

;;; Associate the two

(defmethod default-pane-class ((obj paint-buffer))

'paint-pane)

Previous slide

Next slide

Back to first slide

View graphic version