Commit e918f8b1 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

sheet/sheet: The SHEET protocol-class.

  * The beginnings of the CLIM model for areas of the display
allocated for graphical output and event handling.

  * This is just the protocol-class and the predicate, the actual
guts of the protocol come later.
parent 6dfc1b7e
;;;
;;; nq-clim/sheet/sheet
;;;
;;; The SHEET protocol class (most of CLIM II 7.1).
;;;
(cl:defpackage :nq-clim/sheet/sheet
(:use :cl)
(:export
"SHEET"
"SHEETP"))
(cl:in-package :nq-clim/sheet/sheet)
;; The protocol class. Users may subclass this to provide other
;; objects that behave as sheets.
(defclass sheet () ())
;; The protocol predicate.
(defun sheetp (object)
"Return TRUE iif OBJECT is a SHEET."
(typep object 'sheet))
;;; EOF
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