[mcclim-devel] stupid newbie question re: initializing text-field

John Morrison jm at mak.com
Fri Sep 29 23:07:45 UTC 2006


On Friday 29 September 2006 18:38, Paul Werkowski wrote:
> Assuming you really meant this (whre INSTANCE is used instead of FRAME
> in (find-pane-named ...)
>
> (defmethod run-frame-top-level :before ((instance test-frame) &key)
>   (setf (gadget-value (find-pane-named instance 'tester))
>  "this doesn't"))

Doh!

Even so, when fixing it as you kindly indicated, it still bombs --
please see attached updated foo.lisp and a log file containing a
backtrace...

-jm


-- 
==== John Morrison
==== MAK Technologies Inc.
==== 68 Moulton Street, Cambridge, MA 02138
==== http://www.mak.com/
==== vox:617-876-8085 x115
==== fax:617-876-9208
==== jm at mak.com


-------------- next part --------------
(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 instance '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))
-------------- next part --------------
A non-text attachment was scrubbed...
Name: foo.log
Type: text/x-log
Size: 3751 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20060929/745762ec/attachment.bin>


More information about the mcclim-devel mailing list