From 8bc1cf79b862f73f475199118fd1b75e7cc3f083 Mon Sep 17 00:00:00 2001 Message-Id: <8bc1cf79b862f73f475199118fd1b75e7cc3f083.1714050555.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 9 Feb 2006 22:31:28 +0000 Subject: [PATCH] Added method ALLOCATE-FOREIGN Organization: Straylight/Edgeware From: espen --- gdk/gdk.lisp | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp index 6528895..d6b7f6e 100644 --- a/gdk/gdk.lisp +++ b/gdk/gdk.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: gdk.lisp,v 1.20 2006-02-08 22:20:22 espen Exp $ +;; $Id: gdk.lisp,v 1.21 2006-02-09 22:31:28 espen Exp $ (in-package "GDK") @@ -422,14 +422,12 @@ (defbinding rgb-init () nil) ;;; Cursor -(defmethod initialize-instance ((cursor cursor) &key type mask fg bg - (x 0) (y 0) (display (display-get-default))) - (setf - (foreign-location cursor) - (etypecase type - (keyword (%cursor-new-for-display display type)) - (pixbuf (%cursor-new-from-pixbuf display type x y)) - (pixmap (%cursor-new-from-pixmap type mask fg bg x y))))) +(defmethod allocate-foreign ((cursor cursor) &key type mask fg bg + (x 0) (y 0) (display (display-get-default))) + (etypecase type + (keyword (%cursor-new-for-display display type)) + (pixbuf (%cursor-new-from-pixbuf display type x y)) + (pixmap (%cursor-new-from-pixmap type mask fg bg x y)))) (defbinding %cursor-new-for-display () pointer -- [mdw]