[Douglas Crosher] [mcclim-devel] Patch: xrender, define render-op type.

Christophe Rhodes <[email protected]> Fri, 17 Mar 2006 14:31:25 +0000
Newsgroups gmane.lisp.clx.devel
Message-ID <[email protected]>
--=-=-=

Another fix from mcclim-devel.

Cheers,

Christophe


--=-=-=
Content-Type: message/rfc822
Content-Disposition: inline

X-From-Line: [email protected] Thu Mar 16 05:14:19 2006
Return-path: <[email protected]>
Envelope-to: real-csr21@localhost
Delivery-date: Thu, 16 Mar 2006 05:14:19 +0000
Received: from localhost ([127.0.0.1])
	by mu with esmtp (Exim 4.60)
	(envelope-from <[email protected]>)
	id 1FJkoU-000245-Qk
	for real-csr21@localhost; Thu, 16 Mar 2006 05:14:18 +0000
Received: from imap.hermes.cam.ac.uk [131.111.8.150]
	by localhost with IMAP (fetchmail-6.2.5.4)
	for real-csr21@localhost (single-drop); Thu, 16 Mar 2006 05:14:18 +0000 (GMT)
Received: from ppsw-9-intramail.csi.cam.ac.uk ([192.168.128.139])
	by cyrus-13.csi.private.cam.ac.uk (Cyrus v2.1.16-HERMES)
	with LMTP; Thu, 16 Mar 2006 05:03:35 +0000
X-Sieve: CMU Sieve 2.2
X-Cam-SpamDetails: scanned, SpamAssassin (score=0)
X-Cam-AntiVirus: No virus found
X-Cam-ScannerInfo: http://www.cam.ac.uk/cs/email/scanner/
Received: from common-lisp.net ([80.68.86.115]:38220)
	by ppsw-9.csi.cam.ac.uk (mx.cam.ac.uk [131.111.8.149]:25)
	with esmtp (csa=unknown) id 1FJkdz-0001km-Tt (Exim 4.54) for [email protected]
	(return-path <[email protected]>); Thu, 16 Mar 2006 05:03:27 +0000
Received: by common-lisp.net (Postfix, from userid 65534)
	id B69C03800E; Thu, 16 Mar 2006 00:01:46 -0500 (EST)
Received: from common-lisp.net (localhost [127.0.0.1])
	by common-lisp.net (Postfix) with ESMTP id D25A63300E;
	Thu, 16 Mar 2006 00:01:44 -0500 (EST)
X-Original-To: [email protected]
Delivered-To: [email protected]
Received: by common-lisp.net (Postfix, from userid 65534)
	id 44AFB3200A; Thu, 16 Mar 2006 00:01:41 -0500 (EST)
Received: from gw.scieneer.com (unknown [139.130.216.140])
	by common-lisp.net (Postfix) with ESMTP id B056E32006
	for <[email protected]>;
	Thu, 16 Mar 2006 00:01:31 -0500 (EST)
Received: from [10.0.0.100] (dtc-pc.scieneer.com [10.0.0.100])
	by gw.scieneer.com (8.13.1/8.13.1) with ESMTP id k2G536RA019404
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO)
	for <[email protected]>; Thu, 16 Mar 2006 16:03:08 +1100
Message-ID: <[email protected]>
Date: Thu, 16 Mar 2006 16:03:06 +1100
From: Douglas Crosher <[email protected]>
Organization: Scieneer Pty Ltd
User-Agent: Mozilla Thunderbird 1.0.7-1.1.fc4 (X11/20050929)
X-Accept-Language: en-us, en
To: [email protected]
Subject: [mcclim-devel] Patch: xrender, define render-op type.
X-BeenThere: [email protected]
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: mcclim-devel.common-lisp.net
List-Unsubscribe: <http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel>, 
	<mailto:[email protected]?subject=unsubscribe>
List-Archive: <http://common-lisp.net/pipermail/mcclim-devel>
List-Post: <mailto:[email protected]>
List-Help: <mailto:[email protected]?subject=help>
List-Subscribe: <http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel>, 
	<mailto:[email protected]?subject=subscribe>
Sender: [email protected]
Errors-To: [email protected]
X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on clnet
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=unavailable 
	version=3.0.3
Lines: 51
Xref: mu list.free-clim:2840
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===-=-="

--===-=-=
Content-Type: text/plain; charset=iso-8859-1; format=flowed


* xrender.lisp: Define the 'render-op type.  Needed if type checking is enabled.

Regards
Douglas Crosher


--===-=-=
Content-Type: text/plain; name=patch-xrender-type
Content-Disposition: inline; filename=patch-xrender-type

Index: Experimental/freetype/xrender.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender.lisp,v
retrieving revision 1.2
diff -u -r1.2 xrender.lisp
--- Experimental/freetype/xrender.lisp	2 Dec 2004 09:11:41 -0000	1.2
+++ Experimental/freetype/xrender.lisp	16 Mar 2006 04:56:58 -0000
@@ -353,6 +353,10 @@
                      :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum)))
   )
 
+(deftype render-op ()
+  '(member :clear :src :dst :over :over-reverse :in :in-reverse
+	   :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum))
+    
 ;; Now these pictures objects are like graphics contexts. I was about
 ;; to introduce a synchronous mode, realizing that the RENDER protocol
 ;; provides no provision to actually query a picture object's values. 

--===-=-=
Content-Disposition: inline

_______________________________________________
mcclim-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel

--===-=-=--

--=-=-=--

_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
See http://www.cliki.net/clx for darcs URL(s)