;;; -*-Mode: LISP; Package: PICASSO; Base: 10; Syntax: Common-lisp -*-
;;;
;;; Postgres Interactive Common Application System for Shared Objects
;;;
;;; 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/frame,v $
;;;       $Author: johnb $
;;;       $Header: /n/hermes/pic2/picasso/lib/po/mosaic/RCS/frame,v 1.7 1991/11/19 02:27:47 johnb Exp smoot $
;;;       $Locker: smoot $
;;;

(defframe ("mosaic"  "frame") ()
  "This is the Mosaic frame" 
  (form (the-form ("form")))
  (panels (hs-panel ("hs" . "panel"))
	  (help-panel ("help" . "panel")))
  (menu-bar  
   ((game-opts ("Game Options" "Game Menu Pane"
;;;		 ("Quick Quit" (RET-TOOL T))
		 ("New Game" (progn
			       (New-Game)
			       (Clear-Board)
			       (Update-Next-Piece)
			       (Update-Totals)))
		 ("Automatic Play" (Auto-play))))
    (game-info ("Game Information" "Other Panel Pane"
		(hs-entry ("High Scores"
			   (progn
			     (setf (me-dimmed #!hs-entry) t)
			     (call #!hs-panel))))
		(help-entry ("Documentation" 
			     (progn 
			       (call #!help-panel)
			       (setf (me-dimmed #!help-entry) t))))))))
  )


