;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XIT
;;;                       Module: Color Sheet Utility
;;;                       Version: 1.0
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Matthias Ressel
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/utilities/make-color-sheet.lisp
;;; File Creation Date: 05/25/92 17:11:21
;;; Last Modification Time: 06/11/92 13:28:41
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :user)

(pmds::load-system :xit-color-sheet)

(in-package :xit)

(defvar *color-sheet* nil)

(if (and (boundp '*display*) *display*
         (boundp '*toplevel*) *toplevel*)
    (setq *color-sheet* (make-color-sheet *toplevel*))
  (add-open-toplevel-hook 'make-color-sheet))

(totop-window *color-sheet*)


