;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: case-viewer-registration.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: July 26, 2002 14:35:40
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Friday, July 26, 2002 at 15:23:56 by nicholson
;;;; ---------------------------------------------------------------------------

(in-package :textual-case-display)


;;; Need to register this case display pane with the case viewer system.

(fire-case-viewer:register-case-display-pane :text-case-display 'text-case-display 
  'make-text-case-display)


  



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