;;; -*-Mode: LISP; Package: PICASSO; Base: 10; Syntax: Common-lisp -*-
;;;
;;; Copyright (c) 1990 Regents of the University of California
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted,
;;; provided that the above copyright notice appear in all copies and
;;; that both that copyright notice and this permission notice appear in
;;; supporting documentation, and that the name of the University of
;;; California not be used in advertising or publicity pertaining to
;;; distribution of the software without specific, written prior
;;; permission.  The University of California makes no representations
;;; about the suitability of this software for any purpose.  It is
;;; provided "as is" without express or implied warranty.
;;;
;;;
;;;       $Source: /n/hermes/pic2/picasso/lib/po/mosaic/RCS/tool,v $
;;;       $Author: johnb $
;;;       $Header: /n/hermes/pic2/picasso/lib/po/mosaic/RCS/tool,v 1.7 1991/11/19 02:27:51 johnb Exp smoot $
;;;       $Locker: smoot $
;;;

(deftool ("mosaic" "tool") ()
  "Tiling Game"
  (title "Mosaic") 
  (region '(1 1 606 539))
  (autoraise '())
  (frames (main-frame ("mosaic" "frame")))
  (init-code (progn
	(setf *user* (get-environment "USER"))
	(format t "Hello, ~a, welcome to Mosaic!~%" *user*)
	(Setup-Tiles)
	(Setup-Game)
	))
  (exit-code (format t "Bye!")))
 

#-mosaic-support
(progn
  (format t "Setting up.....~%")

#+sun4
(unless (load-picasso "lib/po/mosaic/compiled.fasl" :if-does-not-exist nil)
	(progn
	  (load-picasso "lib/po/mosaic/fix.cl" :if-does-not-exist nil)
	  (load-picasso "lib/po/mosaic/mosaic.cl")
	  (load-picasso "lib/po/mosaic/support.cl")))
#-sun4
  (progn
    (load-picasso "lib/po/mosaic/fix.cl" :if-does-not-exist nil)
    (load-picasso "lib/po/mosaic/mosaic.cl")
    (load-picasso "lib/po/mosaic/support.cl"))

  (push :mosaic-support *features*)

  (format t "Done with setup!~%")
  )
