;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: text-case-display-objects.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: July 26, 2002 15:21:35
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Saturday, November 9, 2002 at 10:08:08 by nicholson
;;;; ---------------------------------------------------------------------------

(in-package :textual-case-display)



(defclass text-case-display (fire-case-viewer::case-display-dialog)
  ()
  (:documentation "A case display dialog that operates on a textual representation
     of the case"))



(defclass text-display-ndl (numbered-datum-list)
  ())

(defclass text-display-individuals (text-display-ndl)
  ())

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




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