Commit 3745f287 authored by hatchond's avatar hatchond
Browse files

typo fix in lib/clx-ext/clx-extensions.lisp.

wrong mapcar fix in gestures.lisp (due to the signature changes of modifier->modifier-mask.
parent 7ffaeacc
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: gestures.lisp,v 1.5 2003/08/28 14:50:35 hatchond Exp $
;;; $Id: gestures.lisp,v 1.6 2003/09/16 21:32:53 hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2002 Iban HATCHONDO
......@@ -135,15 +135,16 @@
;;;;
(defun translate-modifiers (display modifiers)
(defun translate-modifiers (dpy modifiers)
(cond ((keywordp modifiers)
(list (kb:modifier->modifier-mask display modifiers)))
(list (kb:modifier->modifier-mask dpy modifiers)))
((numberp modifiers)
(list modifiers))
((eq (car modifiers) :and)
(list (loop for mod in (cdr modifiers)
sum (kb:modifier->modifier-mask display mod))))
(t (mapcar #'kb:modifier->modifier-mask display modifiers))))
sum (kb:modifier->modifier-mask dpy mod))))
(t
(mapcar #'(lambda (m) (kb:modifier->modifier-mask dpy m)) modifiers))))
(defmacro action ((&rest f1) (&rest f2))
(when (or (eq (car f1) :release) (eq (car f2) :press)) (rotatef f1 f2))
......
;;; -*- Mode: Lisp; Package: CLX-EXTENSIONS -*-
;;; $Id: clx-extensions.lisp,v 1.3 2003/09/10 23:54:20 hatchond Exp $
;;; $Id: clx-extensions.lisp,v 1.4 2003/09/16 21:32:53 hatchond Exp $
;;;
;;; This file is part of Eclipse.
;;; Copyright (C) 2001, 2002 Iban HATCHONDO
......@@ -194,7 +194,7 @@
sequence which are used. The second value returned is nil if all elements
of the sequence were successfully translated; otherwise the index of the
first untranslated element is returned."
(xlib:text-width font seq :start start :end end :translate #'translate))
(xlib:text-width font sequence :start start :end end :translate translate))
(defun draw-centered-text (window gctxt seq &key color x y)
"Draw the filled text characters represented by the given sequence `seq'.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment