chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
58ed743
)
TREE-MODEL-VALUE made a generic function
author
espen
<espen>
Fri, 3 Mar 2006 19:00:12 +0000
(19:00 +0000)
committer
espen
<espen>
Fri, 3 Mar 2006 19:00:12 +0000
(19:00 +0000)
gtk/gtktree.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtktree.lisp
b/gtk/gtktree.lisp
index 20f79ab93d9f79ff33d512b3839659dab82ebd24..81d647424e0ccd53859a404a14ac2a9cd026defa 100644
(file)
--- a/
gtk/gtktree.lisp
+++ b/
gtk/gtktree.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktree.lisp,v 1.1
7 2006-02-28 16:33:39
espen Exp $
+;; $Id: gtktree.lisp,v 1.1
8 2006-03-03 19:00:12
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-81,7
+81,9
@@
(defmethod initialize-instance ((list-store list-store) &key column-types
(call-next-method)
(%list-store-set-column-types list-store column-types)
(when column-names
(call-next-method)
(%list-store-set-column-types list-store column-types)
(when column-names
- (setf (object-data list-store 'column-names) column-names))
+ (setf
+ (object-data list-store 'column-names)
+ (coerce column-names 'vector)))
(when initial-content
(loop
with iter = (make-instance 'tree-iter)
(when initial-content
(loop
with iter = (make-instance 'tree-iter)
@@
-322,7
+324,9
@@
(defbinding %tree-model-get-value () nil
(column int)
(gvalue gvalue))
(column int)
(gvalue gvalue))
-(defun tree-model-value (model row column)
+(defgeneric tree-model-value (model row column))
+
+(defmethod tree-model-value ((model tree-model) row column)
(let ((index (column-index model column))
(iter (etypecase row
(tree-iter row)
(let ((index (column-index model column))
(iter (etypecase row
(tree-iter row)
@@
-461,7
+465,9
@@
(defun tree-model-row-setter (model)
(funcall setter value iter))
row setters)))))))
(funcall setter value iter))
row setters)))))))
-(defun (setf tree-model-value) (value model row column)
+(defgeneric (setf tree-model-value) (value model row column))
+
+(defmethod (setf tree-model-value) (value (model tree-model) row column)
(let ((iter (etypecase row
(tree-iter row)
(tree-path (multiple-value-bind (valid iter)
(let ((iter (etypecase row
(tree-iter row)
(tree-path (multiple-value-bind (valid iter)