X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/e4d1c6e4a7284689b124fbc182aa8791b0d06d0e..9c35ab2a65c1572aab7424ad6109fa98f412f7bb:/examples/testgtk.lisp diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index 858d894..a4bd8ef 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.41 2007-07-12 09:18:30 espen Exp $ +;; $Id: testgtk.lisp,v 1.43 2008-03-20 16:05:31 espen Exp $ #+sbcl(require :gtk) #+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk) @@ -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)))