X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/f5c99598e1a12d82a1e3223d4fdc90b3ceb144ad..83b7577c3fb08c2925ded076d67a2d91bae1c9cc:/examples/testgtk.lisp diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index b008a04..514510d 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -23,10 +23,11 @@ ;; Parts of this file are direct translations of code from 'testgtk.c' ;; distributed with the Gtk+ library, and thus covered by the GNU ;; Lesser General Public License and copyright Peter Mattis, Spencer -;; Kimball, Josh MacDonald and others. +;; Kimball, Josh MacDonald and others. To be safe the entire file +;; should probably be considered as being GPL'ed. -;; $Id: testgtk.lisp,v 1.40 2007-06-20 10:20:47 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) @@ -544,7 +545,7 @@ :message-type :error :visible t :text "Failed to load an image" :secondary-text (glib:gerror-message condition) - :signal (list :close #'widget-destroy :object t)) + :signal (list :ok #'widget-destroy :object t)) (return-from load-pixbufs nil)))) t) @@ -950,8 +951,8 @@ This one is underlined in quite a funky fashion" (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))) @@ -1795,7 +1796,7 @@ This one is underlined in quite a funky fashion" :child (create-label "Below"))) -;;; Tooltips test +;;; Tooltips test. Note that GtkTooltips has been deprecated in GTK+ 2.12 (define-simple-dialog create-tooltips (dialog "Tooltips" :default-width 200) (let ((tooltips (make-instance 'tooltips)))