[gtk-cffi-cvs] CVS gtk-cffi/ext

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/ext
In directory tiger.common-lisp.net:/tmp/cvs-serv25018/ext

Added Files:
	addons.lisp 
Log Message:
Moved addons to gtk-cffi-ext




--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/addons.lisp	2011/12/31 17:20:56	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/addons.lisp	2011/12/31 17:20:56	1.1
(in-package :gtk-cffi)

(defmethod show ((seq sequence) &key &allow-other-keys)
  (show
   (gtk-model 
     'window
     ('scrolled-window
      ('tree-view :model 
                  (make-instance 
                   'lisp-model
                   :implementation 
                   (make-instance 'lisp-model-array 
                                  :array (map 'vector 
                                              (compose #'list 
                                                       #'princ-to-string) 
                                              seq) 
                                  :columns '(:string)))
                  :columns '("Array"))))))

;; (defun status-tree ()
;;   (let ((tree-model (make-instance 'tree-strore)))
;;     (show
;;      (gtk-model
;;        'window
;;        ('scrolled-window
;;         ('tree-view :model tree-model))))))