(defform ("test" "form") ((file "~konstan/.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 (ppi self))
  (children 
   (make-collection-gadget 
    :geom-spec '(:bottom :pad 4)
    :gm 'packed-gm
    :children '((make-gray-button
		 :base-width 75
		 :geom-spec '(:right 75 :left-pad 40)
		 :value "Load"
		 :font "-*-*-medium-r-*-*-20-*-*-*-c-*-*-*"
		 :press-func '(load-file #!stw (value #!entry)))
		(entry
		 (make-entry-widget
		  :label "Filename:"
		  :geom-spec :fill
		  :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))))
