;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XIT
;;;                       Module: Example Initialization
;;;                       (Version 1.0)
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/examples/start-toplevel.lisp
;;; File Creation Date: 6/23/89 10:31:37
;;; Last Modification Time: 12/09/92 09:49:43
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :xit)

(unless *default-host* (query-x-server-host))

(format t "~%--------- ~A is the X Server host ----------~%" *default-host*)

(open-toplevel-display "XIT Toplevel")
(make-toplevel :shell-title "XIT Toplevel")

(load (system-pathname :xit-utilities "system-menu"))

(format t "~%---------------- XIT toplevel created  ------------------------~%")
(format t "~%Enter one of ~%~% (1) xit::toplevel-loop ~% (2) xit::eval-toplevel-loop ~% (3) :loop ~%~%to start event loop.~%")
(format t "~%Use system menu (right button on toplevel) to load systems and utilities~%")

