It turns out if I store the data as strings, editing will work as expected.
With this definition of *items*:
(defparameter *items*
(list (make-be 'listbox-test-item
:position (prin1-to-string (coerce (random 20) 'double-float))
:curvature (prin1-to-string (coerce (random 20) 'double-float)))
(make-be 'listbox-test-item
:position (prin1-to-string (coerce (random 20) 'double-float))
:curvature (prin1-to-string (coerce (random 20) 'double-float)))))
and the following change to :columns
> (let ((top (find-widget :mk-top)))
> (setf
> (kids top)
> (list
> (mk-vbox
> :fm-parent top
> :kids
> (kids-list?
> (mk-listbox :md-name :listbox
> :selection-mode :single
> :columns (def-columns
> (:double (:title "Position") (lambda (node) '(:editable
> t)))
> (:double (:title "Curvature")))
>
:columns (def-columns
(:string (:title "Position") #'(lambda (node) '(:editable
t)))
(:string (:title "Curvature")))
> :items *items*
> :print-fn (lambda (item)
> (list (position$ item)
> (curvature$ item)))
> :on-edit (lambda (node col new-val)
> (format t "~a~%" (list node col new-val)))))))))
>
The output looks like this:
"----------UTILSRESET----------------------------------"
0> c-link> query link :mk-top cells-store1 nil
0> overwriting item :listbox listbox
*
(<unknown>:6092): Gtk-CRITICAL **: gtk_tree_store_set_value: assertion
`GTK_IS_TREE_STORE (tree_store)' failed
(#<LISTBOX-TEST-ITEM {C474379}> 0 8.0d0)
(<unknown>:6092): Gtk-CRITICAL **: gtk_tree_store_set_value: assertion
`GTK_IS_TREE_STORE (tree_store)' failed
(#<LISTBOX-TEST-ITEM {C474379}> 0 8.0d30)
--
Martin Kielhorn
Randall Division of Cell & Molecular Biophysics
King's College London, New Hunt's House
Guy's Campus, London SE1 1UL, U.K.
tel: +44 (0) 207 848 6519, fax: +44 (0) 207 848 6435
_______________________________________________
cells-gtk-devel site list
cells-gtk-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
