From: espen Date: Sun, 26 Feb 2006 23:46:55 +0000 (+0000) Subject: Added notes about deprecated functionality X-Git-Tag: clg-0-92~16 X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/da924068123552367f6fa9fc55ff859e8d5185bf Added notes about deprecated functionality --- diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index f7d7b59..fa844b1 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -26,7 +26,7 @@ ;; Kimball, Josh MacDonald and others. -;; $Id: testgtk.lisp,v 1.33 2006/02/13 16:05:29 espen Exp $ +;; $Id: testgtk.lisp,v 1.34 2006/02/26 23:46:55 espen Exp $ #+sbcl(require :gtk) #+sbcl(require :sb-posix) @@ -306,7 +306,8 @@ (signal-connect dialog :cancel #'widget-destroy :object t))) -;;; Cursors +;;; Cursors (Note: using the drawing function in Gdk is considered +;;; deprecated in clg, new code should use Cairo instead) (defun clamp (n min-val max-val) (declare (number n min-val max-val)) @@ -666,7 +667,8 @@ This one is underlined ( :pattern "_________________________ _ _________ _ _____ _ __ __ ___ ____ _____"))))) -;;; Layout +;;; Layout (Note: using the drawing function in Gdk is considered +;;; deprecated in clg, new code should use Cairo instead) (defun layout-expose (layout event) (when (eq (gdk:event-window event) (layout-bin-window layout))