From 83b7577c3fb08c2925ded076d67a2d91bae1c9cc Mon Sep 17 00:00:00 2001 Message-Id: <83b7577c3fb08c2925ded076d67a2d91bae1c9cc.1715851081.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 9 Dec 2008 19:37:19 +0000 Subject: [PATCH] Updated for new pixbuf API Organization: Straylight/Edgeware From: espen --- examples/testgtk.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index a4bd8ef..514510d 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -27,7 +27,7 @@ ;; should probably be considered as being GPL'ed. -;; $Id: testgtk.lisp,v 1.43 2008-03-20 16:05:31 espen Exp $ +;; $Id: testgtk.lisp,v 1.44 2008-12-09 19:37:19 espen Exp $ #+sbcl(require :gtk) #+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk) @@ -951,8 +951,8 @@ (defun create-notebook-page (notebook page-num book-closed) (define-simple-dialog create-notebook (dialog "Notebook") (let ((main (make-instance 'v-box :parent dialog))) - (let ((book-open (gdk:pixbuf-new-from-xpm-data book-open-xpm)) - (book-closed (gdk:pixbuf-new-from-xpm-data book-closed-xpm)) + (let ((book-open (make-instance 'gdk:pixbuf :source book-open-xpm)) + (book-closed (make-instance 'gdk:pixbuf :source book-closed-xpm)) (notebook (make-instance 'notebook :border-width 10 :tab-pos :top :parent main))) -- [mdw]