(in-package "CLIM-USER")

(define-application-frame test-frame ()
  ((initial-string :initform nil))
  (:panes
   (tester (make-pane 'text-field)))
  (:layouts
   (default (vertically () tester))))

#|
(defmethod run-frame-top-level :before ((instance test-frame) &key)
  (setf (gadget-value (find-pane-named frame 'tester))
	"this doesn't"))
|#


(define-test-frame-command (com-test1
			     :menu "Test 1"
			     :name "Test 1")
    ()
    (setf (gadget-value (find-pane-named *application-frame* 'tester))
	  "this works"))

(run-frame-top-level (make-application-frame 'test-frame))