Where should you keep the data in a celtk app. I tried doing the following...
(defmodel app (window)
((my-model :initform nil :initarg :model :accessor my-model))
(:default-initargs
:kids (c? (the-kids
(mk-row (:packing (c?pack-self))
(mk-popup-menubutton
:id :view-selector
:initial-value (c? (first (^entry-values)))
:entry-values (c? '(codelists items item-groups forms
events)))
(mk-text-widget
:id :display
:value (c? (if *odm*
(case (selection (fm^ :view-selector))
(codelists
(codelists *odm*))
(items
(items *odm*))
(t (xml *odm*)))))))))))
...but I couldn't work out how to access my-model from the text
widget's (c? ...). What you see above is what I changed it to in
order to make it access the global *odm* variable which is elsewhere
set to be a normal cells instance. Is there a way to keep it all in
the app? I'd like to make it so that my-model is set by the result of
a file-open dialog.
Cheers,
Andy
_______________________________________________
cells-devel site list
cells-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-devel
