Now I have a real app going. Next problem:
I want to do something resembling the :pulse-image in test-gtk, that
is a widget that changes text depending on some cell.
The difference here is that it depends on a cell in its own instance,
but I get the same problem if I put it in another instance, like in the
app itself or in a global instance of a specially designed class.
This is a minimal app showing the problem. Setting of the value works,
and the display is changed, But when I close the app, it hangs.
If I just close it without executing the setf, it closes normally.
Any ideas?
(cells:defmodel statebar (cgtk:hbox)
((busy :accessor busy :initform (cells:c-in nil)))
(:default-initargs
:md-name :statebar
:kids (cgtk:kids-list?
(cgtk:mk-label :text (if (busy cells:self) "Busy"
"NotBusy"))
(cgtk:mk-label :markup (cgtk:with-markup (:background (if
(busy cells:self) :yellow :brown))
(if (busy cells:self) "Busy" "NotBusy"))))))
(cells:defmodel my-app (cells-gtk:gtk-app)
()
(:default-initargs
:kids (cells:c? (cells:the-kids
(cells-gtk:mk-vbox
:kids (cells-gtk:kids-list?
(make-instance 'statebar :fm-parent
cells:*parent*)))))))
#|
(cells-gtk:start-app 'my-app)
|#
#|
(cgtk:with-widget (w :statebar) (setf (busy w) t))
|#
_______________________________________________
cells-gtk-devel site list
cells-gtk-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
