Hi Martin, This should be possible--and as a matter of fact I used similar functionality in my MSc project. I had a table in which I could enter numbers, symbols, and even functions (which--using cells--got compiled in real time like this: (compiled-fn :initform (c? (compile ^fn))) )
I will try to locate the code later (unfortunately I am on a business trip right now, but I might find it somewhere anyways ...) Best Peter PS. We're seeing a lot of traffic (comparably) on this list lately. It's great to see people actually using cells-gtk. On Tue, Oct 6, 2009 at 8:37 PM, Martin Kielhorn < kielhorn.mar...@googlemail.com> wrote: > Hi, > I want a table with numbers and when I click on one number I want to change > it to > a new value. I managed to copy the table from test-gtk/test-tree-view.lisp > and I added > :editable t to the def-columns call. I can edit the number, but the system > doesn't store > the value back into one of my variables, e.g. (position$ (nth 2 *items*)). > So when I press > enter after the edit, the old value will be shown again. > > I hoped the :on-edit slot of listbox could be used for this task but the > format is never executed. > > Or is it only possible to do it like in the Cells-Tree-View example? > It seemed quite complicated to me, as I don't want two copies of branched > trees. > I think that is the next thing I would be glad to hear how :on-edit is to > be used. > > [I run the following code in sbcl with threads.] > > (require :asdf) > (require :cells-gtk) > > (defpackage :mk > (:use :cells :cl :cells-gtk)) > > (in-package :mk) > > (defmodel myapp (gtk-app) > () > (:default-initargs :width 400 :height 300 > :md-name :mk-top > :kids (c-in nil))) > (init-gtk) > (start-win 'myapp) > > (defmodel listbox-test-item () > ((position :accessor position$ :initarg :position :initform nil) > (curvature :accessor curvature$ :initarg :curvature :initform nil))) > > (defparameter *items* > (list (make-be 'listbox-test-item > :position (coerce (random 20) 'double-float) > :curvature (coerce (random 20) 'double-float)) > (make-be 'listbox-test-item > :position (coerce (random 20) 'double-float) > :curvature (coerce (random 20) 'double-float)))) > > (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"))) > :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))))))))) > > > Regards, Martin > -- > 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 >
_______________________________________________ cells-gtk-devel site list cells-gtk-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cells-gtk-devel
