;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: text-editor-case-display-classes.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: November 14, 2002 08:42:29
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Thursday, November 14, 2002 at 10:02:27 by nicholson
;;;; ---------------------------------------------------------------------------

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

;;; Subclass this off fire-case-viewer::case-display-dialog
;;;  as described in display-registration.lsp
;;;
(defclass text-editor-case-display (fire-case-viewer::case-display-dialog)
  ()
  (:documentation "A case display dialog that operates on a textual representation
     of the case"))


(defclass text-editor-display-expressions ()
  ((pidginize? :accessor pidginize? :initform nil :initarg :pidginize? 
               :documentation "A flag indicating whether or not expressions should be printed in 
                  pidgin")
   ))


(defclass text-editor-display-expressions-pane (cg:dialog)
  ())




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