;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: kb-browser-fire-zgraph-interface.lsp
;;;;    System: FIRE
;;;;    Author: Shawn Nicholson
;;;;   Created: September 27, 2001 17:56:29
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Saturday, October 6, 2001 at 15:01:45 by Nicholson
;;;; ---------------------------------------------------------------------------

(in-package :fire-kb-browser)

(defmethod knowledge-browser::goto-concept-node ((kb-b fire-kb-browser-info) concept)
  (let ((zgraph-app (knowledge-browser::zgraph kb-b))
	(concept-graph (fire-graphs:graph-concept-genls concept)))
    (zgraph::display-graph zgraph-app concept-graph 'zgraph-gds::kb-tree)))
    





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