From 1f091d0115dbcf40f1d01b14ffcdd8d76cd92a44 Mon Sep 17 00:00:00 2001 Message-Id: <1f091d0115dbcf40f1d01b14ffcdd8d76cd92a44.1714429048.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 30 Jan 2006 15:40:16 +0000 Subject: [PATCH] Bug fix Organization: Straylight/Edgeware From: espen --- gdk/gdktypes.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp index 420c9ef..bcd5ed7 100644 --- a/gdk/gdktypes.lisp +++ b/gdk/gdktypes.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gdktypes.lisp,v 1.20 2005-04-24 13:29:36 espen Exp $ +;; $Id: gdktypes.lisp,v 1.21 2006-01-30 15:40:16 espen Exp $ (in-package "GDK") @@ -42,11 +42,11 @@ (defclass color (boxed) :accessor color-red :type unsigned-short) (green - :allocation :alien + :allocation :alien :offset 6 :accessor color-green :type unsigned-short) (blue - :allocation :alien + :allocation :alien :offset 8 :accessor color-blue :type unsigned-short)) (:metaclass boxed-class)) @@ -98,7 +98,7 @@ (define-types-by-introspection "Gdk" ("GdkGCX11" :ignore t) ("GdkColor" :ignore t) ("GdkEvent" :ignore t) - ("GdkRectngle" :ignore t) + ("GdkRectangle" :ignore t) ("GdkCursor" :ignore t) ("GdkFont" :ignore t) ; deprecated ("GdkEventMask" :ignore t) ; manually defined -- [mdw]