Changeset main,51 for main/cursor.lisp

Timestamp:

11/15/2007 07:42:55 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071115194255-7i0tnzsmi72fb1tr

Message:

Return cursor-position as list, because that's how it's set.

File:

• main/cursor.lisp (modified) (1 diff)

main/cursor.lisp

@@ -23 +23 @@
   (:method ((window window))
     (let ((ptr (window-pointer window)))
-      (values (getcury ptr)
-              (getcurx ptr)))))
+      (list (getcury ptr)
+            (getcurx ptr)))))
 
 (defgeneric (setf cursor-position) (p window)