(defform ("test" "form") ((file (picasso-path ".cshrc")))
  "The editor test form"
  (gm 'packed-gm)
  (init-code 
   (progn (format t "And away we go!~%")
	  (setf (value #!entry) #!file)
	  (load-file #!stw #!file)
	  ))
  (exit-code (describe self))
  (children 
   (make-collection-gadget 
    :geom-spec '(:bottom :pad 4)
    :gm 'anchor-gm
    :children '((make-gray-button
		 :base-width 75
		 :geom-spec '(0.75 0 0.25 1.00  :arrow (:vert :horiz))
		 :value "Load"
		 :font "-*-*-medium-r-*-*-20-*-*-*-c-*-*-*"
		 :press-func '(load-file #!stw (value #!entry)))
		(entry
		 (make-entry-widget
		  :label "Filename:"
		  :geom-spec '(0 0 0.75 1.00 :arrow (:vert :horiz))
		  :vert-just :center
		  :horiz-just :left
		  :border-width 0
		  :pad 2
		  :return-function '(load-file #!stw (value #!entry))
		  :font "-*-*-medium-r-*-*-20-*-*-*-c-*-*-*"))))
   (stw
    (make-scrolling-text-widget
     :rows 25
     :geom-spec :fill))))
