(defframe ("test"  "frame") ((file (picasso-path ".cshrc")))
  "This is the VIP frame" 
  (constants  (font1 "-*-courier-medium-r-*-*-12-*-*-*-m-*-*-*")
	      (font2 "-*-courier-medium-r-*-*-17-*-*-*-m-*-*-*")
	      (font3 "-*-courier-bold-r-*-*-12-*-*-*-m-*-*-*")
	      (font4 "-*-courier-bold-r-*-*-17-*-*-*-m-*-*-*")
	      (font5 "-*-lucidatypewriter-medium-r-*-*-12-*-*-*-m-*-*-*")
	      (font6 "-*-lucidatypewriter-bold-r-*-*-12-*-*-*-m-*-*-*")
	      (font7 "-*-fixed-*-r-*-*-16-*-*-*-*-*-*-*"))
  (forms (f1 ("test" "form")))
  (panels (destruct ("test" "panel" . "1")))
  (menu-bar '((edit-menu ("Edit" "Edit Menu Pane"
				 ("Load" nil)
				 ("Save" nil)
				 ("Search" nil :dimmed t)
				 ("Destruct" (call #!destruct))))
	      (font-menu ("Font" "Font Menu Pane"
				 ("Courier Medium"
					   (setf (font #!f1/stw) #!font1)
					   :center-font #!font1
					   :right "12")
				 ("Courier Bold"
					   (setf (font #!f1/stw) #!font3)
					   :center-font #!font3
					   :right "12")
				 ("Lucida Typewriter Medium"
					  (setf (font #!f1/stw) #!font5)
					  :center-font #!font5
					  :right "12")
				 ("Lucida Typewriter Bold"
					  (setf (font #!f1/stw) #!font6)
					  :center-font #!font6
					  :right "12")
				 ("Fixed Medium"
					 (setf (font #!f1/stw) #!font7)
					 :center-font #!font7
					 :right "16")
				 ("Courier Medium"
					   (setf (font #!f1/stw) #!font2)
					   :center-font #!font2
					   :right "17")
				 ("Courier Bold" (setf (font #!f1/stw) #!font4)
					   :center-font #!font4
					   :right "17")
				 ))
	      (misc-menu ("Misc" "Misc Menu Pane"
				 ("Re-Justify" (let ((mb (parent #!picasso-menu)))
						    (setf (gm mb)
							 (if (eql (gm mb)
								  'left-pack-gm)
							     'just-pack-gm
							     'left-pack-gm))))
				 (dimmer-entry
				  ("Dim" 
				   (progn 
				    (setf (me-dimmed #!campanile)
					  (not (me-dimmed #!campanile)))
				    (setf (me-center self)
					  (if (me-dimmed #!campanile)
					      "Un Dim"
					      "Dim")))
					 :left (make-image 
						:file "down-arrow.bitmap")
					 :right (make-image
						 :file "down-arrow.bitmap")))
				 (campanile
				  ((make-image :file "campanile.bitmap")
				   nil
				   :left "Pictures --->"
				   :right "<-- Too!"))))
	      (boss-menu ("Boss" "Duh Boss"
				 ((make-image :file "larry.bitmap")
				  nil)))))
  (init-code (format t "Hi there"))
  (exit-code (describe self)))

