;;; -*- Mode:Common-Lisp; Package:GLOSS; Fonts:(COURIER HL12B HL12BI); Base:10 -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;;                     TEXAS INSTRUMENTS INCORPORATED.
;;;                              P.O. BOX 2909
;;;                           AUSTIN, TEXAS 78769
;;;                                 MS 2151
;;;
;;; Copyright (C) 1985, Texas Instruments Incorporated. All rights reserved.
;;; Copyright (c) 1985, Texas Instruments Incorporated.  All Rights Reserved.
;;; Copyright (C) 1986, Texas Instruments Incorporated. All rights reserved.
;1;;These are initializations for the glossary.*
;1;;This file should be loaded last.*


(COMPILE-FLAVOR-METHODS alph-menu-pane
			entry-menu-pane glossary-text-pane glossary-frame)

(DEFUN initialize-glossary (&optional new-glossary-p)
  "2Initializes the glossary.  This includes building the window and loading the default glossary entries.*"
  (DECLARE (SPECIAL *glossary-frame* binary-format-version temporary-glossary-entry-list
		    *glossary*))
  (LET ((default-cons-area *glossary-area*))
    (WHEN new-glossary-p
      (SETQ *glossary*
	    (MAKE-INSTANCE 'glossary
			   :name "Main Glossary"
			   :file-to-load *default-pathname*
			   )))
;    (WHEN (BOUNDP 'binary-format-version)
;      (SELECTQ binary-format-version
;	;1;Only one format for the present*
;	(1. (UNLESS (NULL temporary-glossary-entry-list)
;	      (SEND *glossary* :add-glossary-entry-list temporary-glossary-entry-list)))
;	(t (tv:notify nil "The version of the binary glossary file (~A) is unknown."
;		      binary-format-version))
;	))
    (PUSH *glossary* *list-of-glossaries*)
     ;1;Instance of the glossary window is not created in order to save space.*
    ;(SETQ *glossary-frame* (MAKE-INSTANCE 'glossary-frame :activate-p t))
    ))



;(ADD-INITIALIZATION "Initialize Glossary"
;		    '(initialize-glossary)
;		    '(:once))

;1;; Actually do the work here*
(initialize-glossary t)