;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: ginspect.lisp,v 1.12 2006-09-06 11:07:36 espen Exp $
+;; $Id: ginspect.lisp,v 1.14 2006-09-15 12:46:30 espen Exp $
#+sbcl(require :gtk)
-#+cmu(asdf:oos 'asdf:load-op :gtk)
+#+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)
(defpackage "GINSPECT"
(:use "COMMON-LISP" "GFFI" "GLIB" "GTK" #+cmu"PCL" #+sbcl"SB-PCL" #+clisp"MOP")
(object (make-instance 'cell-renderer-text)))
(tree-view-append-column view column)
(cell-layout-pack column name :expand nil)
- (cell-layout-add-attribute column name 'text (column-index store 'name))
+ (cell-layout-add-attribute column name :text (tree-model-column-index store 'name))
(cell-layout-pack column object :expand t)
- (cell-layout-add-attribute column object 'text (column-index store 'pprinted)))
+ (cell-layout-add-attribute column object :text (tree-model-column-index store 'pprinted)))
(insert-object object store nil)