;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: zgraph-case-display.lsp
;;;;    System: 
;;;;    Author: Shawn Nicholson
;;;;   Created: June 25, 2002 07:24:22
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Monday, May 26, 2003 at 13:47:59 by nicholson
;;;; ---------------------------------------------------------------------------

(in-package :zgraph-case-display)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Case Display Methods
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmethod current-zgraph-display-individuals ((case-dialog zgraph-case-display))
  )

(defmethod current-zgraph-display-expressions ((case-dialog zgraph-case-display))
  )

(defmethod add-zgraph-display-individuals ((case-dialog zgraph-case-display) (new-individual-list list))
  )


(defmethod add-zgraph-display-expressions ((case-dialog zgraph-case-display) (new-expressions-list list))
  )

(defmethod remove-zgraph-display-individuals ((case-dialog zgraph-case-display) (indvs-to-delete list))
  )

(defmethod remove-zgraph-display-expressions ((case-dialog zgraph-case-display) (exprs-to-delete list))
  )



(defmethod fire-case-viewer::display-case (case-name (case-dialog zgraph-case-display))
  (let ((graph-obj (build-case-graph case-name)))
    (zgraph::set-zgraph-pane-graph case-dialog graph-obj)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;  Utilities
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; EVENT Handlers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;  Zgraph Case Display Window Creation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(defun make-zgraph-case-display (name &rest initargs &key  
                                    (owner (cg:screen cg:*system*))
                                    (class 'zgraph-case-display)
                                    &allow-other-keys)
  (let* ((other-initargs (qrg:remove-keywords '(:dialog-items :owner :name :class) initargs))
         (new-win (apply #'cg:make-window (append (list name
                                                        :title-bar nil
                                                        :class class
                                                        :owner owner)
                                                  other-initargs))))
    new-win))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;  Testing
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





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