;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: expression-glyph-graphic-mixin.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: November 14, 2002 14:22:48
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Saturday, November 16, 2002 at 20:09:31 by nicholson
;;;; ---------------------------------------------------------------------------

(in-package :text-editor-case-display)

(defclass expression-glyph-graphic-mixin ()
  ((screen-box :accessor screen-box :initform nil
               :documentation "The cg:box which outlines this expression
                  cached here so I can redraw partial screens without 
                  recomputing from the first expression every time")
   (comment-screen-box :accessor comment-screen-box :initform nil)
   (expression-screen-box :accessor expression-screen-box :initform nil)
   (highlighted? :accessor highlighted? :initform nil)
   ))







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; End of Code